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
sub ShowVersion() {
print "$Version\n";
-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;
}
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) {
} 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/));
}
}
}
-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);