reassign #272077 bugs.debian.org
tags #272077 patch
thanks
Here's my patch for this issue (and for others, too). Actually I think
bugs.debian.org is the right place for this bug, but I thought I could
get it fixed more quickly than it turned out :/
diff --exclude '*~' -Naur bugscan/bugcfg.pm bugscan.neu/bugcfg.pm
--- bugscan/bugcfg.pm 2004-01-17 10:38:20.000000000 +0100
+++ bugscan.neu/bugcfg.pm 2004-09-25 00:13:16.000000000 +0200
@@ -14,6 +14,16 @@
$nonUS_sources = "/etc/debbugs/indices/nonus.sources";
$pseudolist =
"/org/bugs.debian.org/etc/pseudo-packages.description";
$nonuslist = "/debian/home/maor/masterfiles/Packages.non-US";
+} elsif ($host eq "merkel") {
+ $spooldir = "/org/bugs.debian.org/spool/db-h";
+ $maintainerlist = "/org/bugs.debian.org/etc/Maintainers";
+ $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
+ $nonUS_ftproot = "/org/bugs.debian.org/etc/indices/nonus/testing";
+ $debian_sources = "/org/bugs.debian.org/etc/indices/ftp.sources";
+ $nonUS_sources = "/org/bugs.debian.org/etc/indices/nonus.sources";
+ $pseudolist =
"/org/bugs.debian.org/etc/pseudo-packages.description";
+ $nonuslist = "/debian/home/maor/masterfiles/Packages.non-US";
+
} elsif ($host eq "lightning") {
$spooldir = "/debian/home/iwj/debian-bugs/spool/db";
$maintainerlist = "/debian/debian/indices/Maintainers";
diff --exclude '*~' -Naur bugscan/bugreport bugscan.neu/bugreport
--- bugscan/bugreport 2004-02-23 13:19:55.000000000 +0100
+++ bugscan.neu/bugreport 2004-09-25 00:49:40.000000000 +0200
@@ -142,7 +142,7 @@
$worrytotal++ unless (
$bugs{$nr} =~ m/^\[[^]]*I/ or
$bugs{$nr} =~ m/ \[[^]]*X/ or
- ($bugs{$nr} =~ m/ \[[^]]*[OSU]/ and $bugs{$nr}
!~ m/ \[[^]]*T/));
+ ($bugs{$nr} =~ m/ \[[^]]*[OSUE]/ and $bugs{$nr}
!~ m/ \[[^]]*T/));
if (not defined($exclude{$nr})) {
$bugcount++;
diff --exclude '*~' -Naur bugscan/dohtml bugscan.neu/dohtml
--- bugscan/dohtml 2004-02-12 20:18:07.000000000 +0100
+++ bugscan.neu/dohtml 2004-09-25 00:57:42.000000000 +0200
@@ -65,8 +65,8 @@
<p>
Some bugs have an additional set of tags indicating they only apply
to a particular release: O for oldstable (potato), S for stable (woody),
-T for testing (sarge) or U for unstable (sid). X indicates that the package
-is not in testing.
+T for testing (sarge), U for unstable (sid) or E for experimental.
+X indicates that the package is not in testing.
<p>
diff --exclude '*~' -Naur bugscan/scanlib.pm bugscan.neu/scanlib.pm
--- bugscan/scanlib.pm 2004-02-23 13:40:11.000000000 +0100
+++ bugscan.neu/scanlib.pm 2004-09-25 00:47:28.000000000 +0200
@@ -221,6 +221,8 @@
$relinfo .= ($s_tags =~ /\bsarge(|\s.*)$/ ? "T" : "");
# sarge-ignore matches \bsarge\b :(
$relinfo .= ($s_tags =~ /\bsid\b/ ? "U" : "");
+ $relinfo .= ($s_tags =~ /^(|.*\s)experimental\b/ ? "E" : "");
+ # experimental matches fixed-in-experimental
$taginfo = "[";
$taginfo .= ($s_tags =~ /\bpending\b/ ? "P" : " ");
@@ -274,7 +276,7 @@
open(P, $file) or die "open $file: $!";
while (<P>) {
chomp;
- if (m/^[0-9]+ /) {
+ if (m/^[0-9]+ / and not m/^3270 /) { # plz no more packages
with only digits in the name - djpig
($bug,$subject)=split(/ /, $_, 2);
$bugs{$bug}=$subject;
$packagelist{$pkg} .= "$bug ";
Gruesse,
--
Frank Lichtenheld <[EMAIL PROTECTED]>
www: http://www.djpig.de/
