Use @bugcfg::architectures (and fix that) instead of hardcoding a list

[bugscan.git] / bugreport

diff --git a/bugreport b/bugreport
index 85c77168d2af8b44c48d5c0c0f523129fa4cc08f..63f887412bc5c2e44e0c564ceca1e55e949f77ba 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -12,7 +12,6 @@ use warnings;
 my $Version            = "BugReport 1.4\nCopyright (C) 1998-2002 Wichert Akkerman <wakkerma\@debian.org>\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
@@ -35,7 +34,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 +82,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,7 +111,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 "</span>" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
                                                      $scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
@@ -190,17 +182,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);