bug => $f,
status => $bug,
dist => $dist,
- arch => [ qw(alpha amd64 arm hppa i386 ia64 mips mipsel powerpc s390 sparc) ]
+ arch => \@bugcfg::architectures
);
# ignore bugs that are absent/fixed in this distribution, include everything
sub wwwnumber() {
my $number = shift; # Number of bug to html-ize
-# my $section); # Section for the bug
"<A HREF=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?archive=no&bug=" .
urlsanit($number) . '">' . htmlsanit($number) . '</A>';
-# ($section=$number) =~ s/([0-9]{2}).*/$1/;
-# "<A HREF=\"${btsURL}/db/$section/$number.html\">$number</A>";
}
sub wwwname() {
"<A HREF=\"http://bugs.debian.org/cgi-bin/pkgreport.cgi?archive=no&pkg=" .
urlsanit($name) . '">' . htmlsanit($name) . '</A>';
-# "<A HREF=\"${btsURL}/db/pa/l$name.html\">$name</A>";
}
sub check_worry {