Increment log output from 200 lines to 3000 lines.
Added Win XP as a listed Windows version.
This commit is contained in:
parent
e9ba70c364
commit
3e7628e901
|
@ -216,7 +216,8 @@ print "\nWhat version of windows are you using with wine?\n\n".
|
||||||
"4 - Windows NT 3.5x\n".
|
"4 - Windows NT 3.5x\n".
|
||||||
"5 - Windows NT4.x\n".
|
"5 - Windows NT4.x\n".
|
||||||
"6 - Windows 2000\n".
|
"6 - Windows 2000\n".
|
||||||
"7 - Other\n\n";
|
"7 - Windows XP\n".
|
||||||
|
"8 - Other\n\n";
|
||||||
do
|
do
|
||||||
{
|
{
|
||||||
print "Enter the number that corresponds to your windows version: ";
|
print "Enter the number that corresponds to your windows version: ";
|
||||||
|
@ -237,8 +238,10 @@ if ($winver =~ 0) {
|
||||||
} elsif ($winver =~ 5) {
|
} elsif ($winver =~ 5) {
|
||||||
$winver="Windows NT 4.x";
|
$winver="Windows NT 4.x";
|
||||||
} elsif ($winver =~ 6) {
|
} elsif ($winver =~ 6) {
|
||||||
$winver="Windows NT 5.x";
|
$winver="Windows 2000";
|
||||||
} elsif ($winver =~ 7) {
|
} elsif ($winver =~ 7) {
|
||||||
|
$winver="Windows XP";
|
||||||
|
} elsif ($winver =~ 8) {
|
||||||
print "What version of Windows are you using? ";
|
print "What version of Windows are you using? ";
|
||||||
$winver=<STDIN>;
|
$winver=<STDIN>;
|
||||||
chomp $winver;
|
chomp $winver;
|
||||||
|
@ -325,24 +328,24 @@ if ($debuglevel > 1) {
|
||||||
$var13 = qq{
|
$var13 = qq{
|
||||||
How many trailing lines of debugging info do you want to include in the report
|
How many trailing lines of debugging info do you want to include in the report
|
||||||
you're going to submit (First file)? If a developer asks you to include
|
you're going to submit (First file)? If a developer asks you to include
|
||||||
the last 1000 lines, enter 1000 here. Default is 200, which is reached by
|
the last 15000 lines, enter 15000 here. Default is 3000, which is reached by
|
||||||
pressing enter. (If you're not sure, just hit enter):
|
pressing enter. (If you're not sure, just hit enter):
|
||||||
};
|
};
|
||||||
print do_var($var13);
|
print do_var($var13);
|
||||||
} elsif ($debuglevel =~ 3) {
|
} elsif ($debuglevel =~ 3) {
|
||||||
$var14 = qq{
|
$var14 = qq{
|
||||||
Enter how many lines of trailing debugging output you want in your nice
|
Enter how many lines of trailing debugging output you want in your nice
|
||||||
formatted report. Default is 200:
|
formatted report. Default is 3000:
|
||||||
};
|
};
|
||||||
print do_var($var14);
|
print do_var($var14);
|
||||||
}
|
}
|
||||||
$lastnlines=<STDIN>;
|
$lastnlines=<STDIN>;
|
||||||
chomp $lastnlines;
|
chomp $lastnlines;
|
||||||
if ($lastnlines =~ /^\s*$/) {
|
if ($lastnlines =~ /^\s*$/) {
|
||||||
$lastnlines=200;
|
$lastnlines=3000;
|
||||||
}
|
}
|
||||||
} elsif ($debuglevel =~ 1) {
|
} elsif ($debuglevel =~ 1) {
|
||||||
$lastnlines=200;
|
$lastnlines=3000;
|
||||||
}
|
}
|
||||||
if ($debuglevel > 1) {
|
if ($debuglevel > 1) {
|
||||||
$var15 = qq{
|
$var15 = qq{
|
||||||
|
|
Loading…
Reference in New Issue