my $Version = "BugReport 1.4\nCopyright (C) 1998-2002 Wichert Akkerman <wakkerma\@debian.org>\n";
my $html = 0;
my $statusfile = "status";
-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";
} else {
printf(" %-6d %s\n", $nr, $scanlib::bugs{$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/));
}
$html=1 if ($opt_H);
scanlib::readstatus($statusfile);
-# scanlib::readNMUstatus($NMUfile);
FilterPackages($opt_d) if ($opt_d);
FilterBugs() if ($opt_t);
# %maintainer - map from packagename to maintainer
# %section - map from packagename to section in the FTP-site
# %packagelist - map from packagename to bugreports
-# %NMU - map with NMU information
use lib qw(/org/bugs.debian.org/perl);
use LWP::UserAgent;
require bugcfg;
package scanlib;
-our (%premature,%exclude,%maintainer,%section,%packagelist,%NMU,%debbugssection,%bugs);
+our (%premature,%exclude,%maintainer,%section,%packagelist,%debbugssection,%bugs);
# Read the list of maintainer
}
-sub readNMUstatus() {
- my $bug; # Number of current bug
- my $source; # Source upload which closes this bug.
- my $version; # Version where this bug was closed.
- my $flag; # Whether this paragraph has been processed.
- my ($field, $value);
-
- for (split /\n/, LWP::UserAgent->new->request(HTTP::Request->new(GET => shift))->content) {
- chomp;
- if (m/^$/) {
- $NMU{$bug} = 1;
- $NMU{$bug, "source"} = $source;
- $NMU{$bug, "version"} = $version;
- $flag = 0;
- } else {
- ($field, $value) = split(/: /, $_, 2);
- $bug = $value if($field =~ /bug/i);
- $source = $value if($field =~ /source/i);
- $version = $value if($field =~ /version/i);
- $flag = 1;
- }
- }
- if ($flag) {
- $NMU{$bug} = 1;
- $NMU{$bug, "source"} = $source;
- $NMU{$bug, "version"} = $version;
- }
- close P;
-}
-
-
sub urlsanit {
my $url = shift;
$url =~ s/%/%25/g;