X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugreport;h=1686ae88e0ab0ab86dc76b5277d32276d381d64c;hp=85c77168d2af8b44c48d5c0c0f523129fa4cc08f;hb=4ef8564c7e87c67015de727dbf9bd23a51f927d3;hpb=e5d969744101034c2ccc00fa5cc24718bc202f2b;ds=sidebyside diff --git a/bugreport b/bugreport index 85c7716..1686ae8 100755 --- a/bugreport +++ b/bugreport @@ -12,10 +12,6 @@ use warnings; my $Version = "BugReport 1.4\nCopyright (C) 1998-2002 Wichert Akkerman \n"; my $html = 0; my $statusfile = "status"; -my $commentsfile = "comments"; -my $NMUfile = "/debian/home/doogie/public_html/incoming/bugs_closed"; -$NMUfile = "/debian/home/doogie/chgscan/db/bugs_closed"; # Changed as of request by dark -Joey, 99/11/22 -$NMUfile = "http://auric.debian.org/~doogie/incoming/bugs_closed"; # Changed as of request by dark -Joey, 99/11/22 sub ShowVersion() { print "$Version\n"; @@ -35,7 +31,6 @@ Options: -t show bugs relevant for testing only -d only list these distributions (comma-separated) -S use different statusfile - -C use different commentsfile EOF exit 0; } @@ -84,11 +79,6 @@ sub MakeBuglist() { for my $p (sort {$a cmp $b} keys %scanlib::packagelist) { next if (defined $bugcfg::exclude{$p}); $header = 0; - if (defined $scanlib::comments{$p}) { - $header=1; - &PrintPackageHeader($p); - print $scanlib::comments{$p}; - } for $nr (sort @{$scanlib::packagelist{$p}}) { next if (defined $bugcfg::exclude{$nr}); if (! $header) { @@ -118,8 +108,6 @@ sub MakeBuglist() { } else { printf(" %-6d %s\n", $nr, $scanlib::bugs{$nr}); } - print $scanlib::comments{$nr} if (defined($scanlib::comments{$nr})); - print "[FIX] Fixed by package " . $scanlib::NMU{$nr, "source"} . ", version " . $scanlib::NMU{$nr, "version"} . " in Incoming\n" if (defined $scanlib::NMU{$nr}); print "" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ || $scanlib::bugs{$nr} =~ m/ \[[^]]*X/)); } @@ -190,18 +178,15 @@ sub FilterBugs() { } } -our ($opt_h,$opt_V,$opt_S,$opt_C,$opt_H,$opt_d,$opt_t,$opt_s,$opt_l); +our ($opt_h,$opt_V,$opt_S,$opt_H,$opt_d,$opt_t,$opt_s,$opt_l); -getopts('VhHlstd:S:C:'); +getopts('VhHlstd:S:'); ShowUsage if ($opt_h); ShowVersion if ($opt_V); $statusfile=$opt_S if ($opt_S); -$commentsfile=$opt_C if ($opt_C); $html=1 if ($opt_H); scanlib::readstatus($statusfile); -scanlib::readcomments($commentsfile); -# scanlib::readNMUstatus($NMUfile); FilterPackages($opt_d) if ($opt_d); FilterBugs() if ($opt_t);