Commit c85f0992 authored by Adam Sacarny's avatar Adam Sacarny Committed by Alexandre Julliard

Much nicer way to select wine's location.

Option to disable creation of debugging output. Debugging output is now created in directory script was started in.
parent ee719954
......@@ -6,6 +6,9 @@
##hunt you down and kill you like the savage animal I am.
##Released under the WINE licence
##Changelog:
##April 19, 1999 - Much nicer way to select wine's location
## - Option to disable creation of a debugging output
## - Now places debugging output where it was started
##April 4, 1999 - Sanity check for file locations/wine strippedness
## - Various code cleanups/fixes
##March 21, 1999 - Bash 2.0 STDERR workaround (Thanks Ryan Cumming!)
......@@ -43,7 +46,7 @@ $var0 = qq{
print do_var($var0);
$debuglevel=<STDIN>;
chomp $debuglevel;
until ($debuglevel < 4) {
until ($debuglevel == 1 or $debuglevel == 2 or $debuglevel == 3) {
print "Enter a number from 1-3!\n";
$debuglevel=<STDIN>;
chomp $debuglevel;
......@@ -56,9 +59,11 @@ if ($debuglevel < 3) {
thousands of lines). To (hopefully) get the bug fixed, attach the first
file to a messsage sent to the comp.emulators.ms-windows.wine newsgroup.
The developers might ask you for "the last XX number of lines from the
report". If so, post the second file (It will be compressed with gzip
later, so leave off the .gz). If you feel like it, post both files at the
same time. I don't care.
report". If so, run the command:
gzip -d (output file)|tail -n (number of lines) > outfile
And post outfile.
If you do not want to create one of the files, just type in "no file"
and hit enter.
};
print do_var($var1);
} elsif ($debuglevel =~ 3) {
......@@ -67,10 +72,12 @@ if ($debuglevel < 3) {
1. Formatted debug report you might want to post to the newsgroup
2. File with ALL the debug output (It will later be compressed with
gzip, so leave off the trailing .gz)
If you do not want to create one of the files, just type in "no file"
and I'll skip it.
};
print do_var($var2);
}
print "Enter the filename for this debug report (The first file):\n";
print "Enter the formatted debug output (The first file):\n";
$outfile=<STDIN>;
chomp $outfile;
$var23 = qq{
......@@ -81,7 +88,7 @@ while ($outfile =~ /^(\s)*$/) {
$outfile=<STDIN>;
chomp $outfile;
}
print "Enter the file for the debug output (The second file):\n";
print "Enter the file for the full debug output (The second file):\n";
$dbgoutfile=<STDIN>;
chomp $dbgoutfile;
while ($dbgoutfile =~ /^(\s)*$/) {
......@@ -89,43 +96,66 @@ while ($dbgoutfile =~ /^(\s)*$/) {
$dbgoutfile=<STDIN>;
chomp $dbgoutfile;
}
if ($debuglevel =~ 1) {
print "Looking for wine...\n";
$wineloc=`which wine`;
print "Looking for wine...\n";
$whereis=`whereis wine`;
chomp $whereis;
print "Choose one of the following options:\n";
$whereis =~ s/^wine\: //;
@locations = split(/\s/,$whereis);
print "1. Unlisted (I'll prompt you for a new location\n";
print "2. Unsure (I'll use #3, that's probably it)\n";
$i=2;
foreach $location (@locations) {
$i++;
print "$i. $location\n";
}
sub select_wineloc {
print "Enter the number that corresponds to wine's location:";
$wineloc=<STDIN>;
chomp $wineloc;
if ($wineloc =~ "") {
print "Couldn't find wine...\n";
$var3 = qq{
Enter the full path to wine. The path should look like
/path/to/wine/wine. Get it? It's the directories leading up to the
wine file, and then the actual wine file (Example: /home/wine/wine):
$yes = 1 if $wineloc == 1 or $wineloc == 2;
$i=3;
foreach $location (@locations) {
$yes = 1 if $wineloc eq $i++;
}
while ($yes ne "1") {
print "Enter the number the corresponds to wine's location:";
$wineloc=<STDIN>;
chomp $wineloc;
$i=1;
foreach $location (@locations) {
$yes = 1 if $wineloc eq $i++;
}
}
if ($wineloc == 1) {
$var25 = qq{
Enter the full path to wine (Example: /usr/bin/wine):
};
print do_var($var3);
$wineloc=<STDIN>;
chomp $wineloc;
} else {
print "Found wine: $wineloc\n"
}
}
if ($debuglevel > 1) {
if ($debuglevel =~ 2) {
$var4 = qq{
Enter the full path to wine. The path should look like
/path/to/wine/wine. Get it? It's the directories leading up to the
wine file, and then the actual wine file (Example: /home/wine/wine):
$var26 = qq{
Please enter the full path to wine. A full path is the
directories leading up to a program's location, and then the
program. For example, if you had the program "wine" in the
directory "/usr/bin", you would type in "/usr/bin/wine". Now
try:
};
print do_var($var4);
} elsif ($debuglevel =~ 3) {
print "Enter the full path to wine (Example: /home/wine/wine):\n";
print do_var($var25) if $debuglevel == 3;
print do_var($var26) if $debuglevel < 3;
$wineloc=<STDIN>;
chomp $wineloc;
while ($wineloc =~ /^(\s)*$/) {
print do_var($var23);
$wineloc=<STDIN>;
chomp $wineloc;
}
}
elsif ($wineloc == 2) {
$wineloc=$locations[0];
}
else {
$wineloc=$locations[$wineloc-3];
}
$wineloc=<STDIN>;
chomp $wineloc;
}
while ($wineloc =~ /^(\s)*$/) {
print do_var($var23);
$wineloc=<STDIN>;
chomp $wineloc;
}
&select_wineloc;
print "Checking if $wineloc is stripped...\n";
$ifstrip = `nm $wineloc 2>&1`;
while ($ifstrip =~ /no symbols/) {
......@@ -136,14 +166,17 @@ while ($ifstrip =~ /no symbols/) {
this script. Note: stripped versions make useless debug reports
};
print do_var($var24);
print "Enter the full path to wine:\n";
$wineloc=<STDIN>;
chomp $wineloc;
while ($wineloc =~ /^(\s)*$/) {
print do_var($var23);
$wineloc=<STDIN>;
chomp $wineloc;
}
&select_wineloc;
$ifstrip = `nm $wineloc 2>&1`;
}
while ($ifstrip =~ /not recognized/) {
$var26 = qq{
Looks like you gave me something that isn't a wine binary (It could be a
text file). Try again.
};
print do_var($var26);
&select_wineloc;
print "Checking if $wineloc is stripped...\n";
$ifstrip = `nm $wineloc 2>&1`;
}
$var5 = qq{
......@@ -153,7 +186,7 @@ What version of windows are you using with wine? 0-None, 1-Win3.x,
};
print do_var($var5);
$winver=<STDIN>;
until ($winver < 7) {
until ($winver == 0 or $winver == 1 or $winver == 2 or $winver == 3 or $winver == 4 or $winver == 5 or $winver == 6 or $winver == 7) {
$var6 = qq{
No! Enter a number from 0 to 7 that corresponds to your windows version!
};
......@@ -218,7 +251,7 @@ bit (Windows 9x, NT3.x and up), or 2 if you are unsure:
print do_var($var10);
$progbits=<STDIN>;
chomp $progbits;
until ($progbits < 3) {
until ($progbits == 0 or $progbits == 1 or $progbits == 2) {
print "You must enter 0, 1 or 2!\n";
$progbits=<STDIN>;
chomp $progbits
......@@ -378,17 +411,42 @@ if ($debuglevel < 3) {
}
$bashver=qw("/bin/bash -version");
if ($bashver =~ /2\./) { $outflags = "2>" }
else { $outflags = ">&" }
else { $outflags = ">\&" }
print "Hit enter to start wine!\n";
$blank=<STDIN>;
$dir=$program;
$dir=~m#(.*)/#;
$dir=$1;
use Cwd;
$nowdir=getcwd;
chdir($dir);
system("echo quit|$wineloc -debugmsg $debugopts $extraops \"$program\" $outflags $dbgoutfile");
$lastlines=`tail -n $lastnlines $dbgoutfile`;
system("gzip $dbgoutfile");
open(OUTFILE,">$outfile");
if ($outfile eq "no file" and $dbgoutfile ne "no file") {
system("echo quit|$wineloc -debugmsg $debugopts $extraops \"$program\" $outflags $nowdir/$dbgoutfile");
system("gzip $nowdir/$dbgoutfile");
}
elsif ($outfile ne "no file" and $dbgoutfile ne "no file") {
system("echo quit|$wineloc -debugmsg $debugopts $extraops \"$program\" $outflags $nowdir/$dbgoutfile");
$lastlines=`tail -n $lastnlines $nowdir/$dbgoutfile`;
system("gzip $nowdir/$dbgoutfile");
&generate_outfile;
}
elsif ($outfile ne "no file" and $dbgoutfile eq "no file"){
$lastlines=`echo quit|$wineloc -debugmsg $debugopts $extraops "$program" 2>&1 | tail -n $lastnlines`;
&generate_outfile;
}
else {
$var27 = qq{
I guess you don't want me to make any debugging output. I'll send
it to your terminal. This will be a *lot* of output -- hit enter to
continue, control-c to quit.
Repeat: this will be a lot of output!
};
print do_var($var27);
$blah=<STDIN>;
system("$wineloc -debugmsg $debugmsg $extraops \"$program\"");
}
sub generate_outfile {
open(OUTFILE,">$nowdir"."\/"."$outfile");
print OUTFILE <<EOM;
Auto-generated debug report by Wine Quick Debug Report Maker Thingy:
WINE Version: $winever
......@@ -410,17 +468,25 @@ $lastlines
I have a copy of the full debug report, if it is needed.
Thank you!
EOM
}
$var22 = qq{
Great! We're finished making the debug report. Do whatever with it. The
filename for it is:
Great! We're finished making the debug report. Do whatever with it.
};
$var28 = qq{
The filename for the formatted report is:
$outfile
};
$var29 = qq{
The filename for the compressed full debug is:
$dbgoutfile.gz
Note that it is $dbgoutfile.gz, since I compressed it with gzip for you.
};
$var30 = qq{
Having problems with the script? Tell the wine newsgroup
(comp.emulators.ms-windows.wine).
};
print do_var($var22);
print do_var($var28) if $outfile ne "no file";
print do_var($var29) if $dbgoutfile ne "no file";
print do_var($var30);
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment