bug_report.pl sanity patch

[Andreas Mohr]

Hi all,

in order to keep my mental sanity, I'm posting this patch to increment
bug_report.pl log output from 200 lines to 3000 lines
(wine relay log has grown *much* more verbose and thus *much* less
useful with short logs than it used to be, thus making me go mad
whenever I see a bug_report.pl log).

I also added Win XP (ugh !) as a listed Windows version.
(I'm still wondering whether maybe I shouldn't have done that, though)



Index: tools/bug_report.pl
===================================================================
RCS file: /home/wine/wine/tools/bug_report.pl,v
retrieving revision 1.15
diff -u -r1.15 bug_report.pl
--- tools/bug_report.pl	1 Jun 2002 02:55:52 -0000	1.15
+++ tools/bug_report.pl	27 Dec 2002 14:52:19 -0000
@@ -216,7 +216,8 @@
       "4 - Windows NT 3.5x\n".
       "5 - Windows NT4.x\n".
       "6 - Windows 2000\n".
-      "7 - Other\n\n";
+      "7 - Windows XP\n".
+      "8 - Other\n\n";
 do
 	{
 	print "Enter the number that corresponds to your windows version: ";
@@ -237,8 +238,10 @@
 } elsif ($winver =~ 5) {
 	$winver="Windows NT 4.x";
 } elsif ($winver =~ 6) {
-	$winver="Windows NT 5.x";
+	$winver="Windows 2000";
 } elsif ($winver =~ 7) {
+	$winver="Windows XP";
+} elsif ($winver =~ 8) {
 	print "What version of Windows are you using? ";
 	$winver=<STDIN>;
 	chomp $winver;
@@ -325,24 +328,24 @@
 		$var13 = qq{
 		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
-		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):
 		};
 		print do_var($var13);
 	} elsif ($debuglevel =~ 3) {
 		$var14 = qq{
 		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);
 	}
 	$lastnlines=<STDIN>;
 	chomp $lastnlines;
 	if ($lastnlines =~ /^\s*$/) {
-	$lastnlines=200;
+	$lastnlines=3000;
 	}
 } elsif ($debuglevel =~ 1) {
-	$lastnlines=200;
+	$lastnlines=3000;
 }
 if ($debuglevel > 1) {
 	$var15 = qq{

-- 
Andreas Mohr                        Stauferstr. 6, D-71272 Renningen, Germany