Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-cw
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-cw
Commits
709cc314
Commit
709cc314
authored
Nov 26, 2003
by
Ivan Leo Murray-Smith
Committed by
Alexandre Julliard
Nov 26, 2003
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Changed Adam Sacarny's email, and -debugmsg to --debugmsg.
parent
3e54350d
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
14 deletions
+10
-14
bug_report.pl
tools/bug_report.pl
+10
-14
No files found.
tools/bug_report.pl
View file @
709cc314
#!/usr/bin/perl
##Wine Quick Debug Report Maker Thingy (WQDRMK)
## Copyright (c) 1998-1999 Adam Sacarny
## Copyright (c) 1998-1999 Adam Sacarny
jazz@cscweb.net ICQ: 19617831
##Do not say this is yours without my express permisson, or I will
##hunt you down and kill you like the savage animal I am.
##
...
...
@@ -39,10 +39,6 @@
##January 26, 1999 - Fixed various bugs...
## - Made newbie mode easier
##January 25, 1999 - Initial Release
## -------------------------------------------
##| IRCNET/UNDERNET: jazzfan AOL: Jazzrock12 |
##| ICQ: 19617831|
## -------------------------------------------
sub
do_var
{
$var
=
$_
[
0
];
$var
=~
s/\t//g
;
...
...
@@ -54,10 +50,10 @@ $var0 = qq{
What is your level of Wine expertise? 1-newbie 2-intermediate 3-advanced
1 - Makes a debug report as defined in the Wine documentation. Best
for new Wine users. If you're not sure what -debugmsg is, then
for new Wine users. If you're not sure what -
-
debugmsg is, then
use this mode.
2 - Makes a debug report that is more customizable (Example: you can
choose what -
debugmsg
's to use). You are asked more questions in
choose what -
-debugmsg
's to use). You are asked more questions in
this mode. May intimidate newbies.
3 - Just like 2, but not corner cutting. Assumes you know what you're
doing so it leaves out the long descriptions.
...
...
@@ -308,20 +304,20 @@ if ($debuglevel > 1) {
$var11
=
qq{
Enter any extra debug options. Default is +relay - If you don't
know what options to use, just hit enter, and I'll use those (Example, the
developer tells you to re-run with -debugmsg +dosfs,+module you would type
developer tells you to re-run with -
-
debugmsg +dosfs,+module you would type
in +dosfs,+module). Hit enter if you're not sure what to do:
}
;
print
do_var
(
$var11
);
}
elsif
(
$debuglevel
=~
3
)
{
$var12
=
qq{
Enter any debug options you would like to use. Just enter parts after
-debugmsg. Default is +relay:
-
-
debugmsg. Default is +relay:
}
;
print
do_var
(
$var12
);
}
$debugopts
=<
STDIN
>
;
chomp
$debugopts
;
if
(
$debugopts
=~
/-debugmsg /
)
{
if
(
$debugopts
=~
/-
-
debugmsg /
)
{
(
$crap
,
$debugopts
)
=
split
/ /
,
$debugopts
;
}
if
(
$debugopts
=~
/^\s*$/
)
{
...
...
@@ -477,7 +473,7 @@ if ($dbgoutfile ne "no file") {
}
elsif
(
defined
$pid
)
{
close
(
0
);
close
(
1
);
close
(
2
);
exec
"echo quit | $wineloc -debugmsg $debugopts $extraops \"$program\" > $dbgoutfile 2>&1"
;
exec
"echo quit | $wineloc -
-
debugmsg $debugopts $extraops \"$program\" > $dbgoutfile 2>&1"
;
}
else
{
die
"couldn't fork"
;
...
...
@@ -504,7 +500,7 @@ elsif ($outfile ne "no file" and $dbgoutfile eq "no file") {
}
elsif
(
defined
$pid
)
{
close
(
0
);
close
(
1
);
close
(
2
);
exec
"echo quit | $wineloc -debugmsg $debugopts $extraops \"$program\" 2>&1| tee $tmpoutfile | tail -n $lastnlines > $outfile"
;
exec
"echo quit | $wineloc -
-
debugmsg $debugopts $extraops \"$program\" 2>&1| tee $tmpoutfile | tail -n $lastnlines > $outfile"
;
}
else
{
die
"couldn't fork"
;
...
...
@@ -536,7 +532,7 @@ else {
}
;
print
do_var
(
$var27
);
$blah
=<
STDIN
>
;
system
(
"$wineloc -debugmsg $debugmsg $extraops \"$program\""
);
system
(
"$wineloc -
-
debugmsg $debugmsg $extraops \"$program\""
);
}
sub
generate_outfile
{
open
(
OUTFILE
,
">$outfile"
);
...
...
@@ -551,7 +547,7 @@ CPU: $cpu
GCC Version: $gccver
Program: $progname
Program Type: $progbits
Debug Options: -debugmsg $debugopts
Debug Options: -
-
debugmsg $debugopts
Other Extra Commands Passed: $extraops
Extra ./configure Commands: $configopts
Wine Dependencies:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment