$maintainer{$a}= $b;
}
close(MM);
+ open(MM,"$gMaintainerFileOverride") or &quit("open $gMaintainerFileOverride: $!");
+ while(<MM>) {
+ next unless m/^(\S+)\s+(\S.*\S)\s*$/;
+ ($a,$b)=($1,$2);
+ $a =~ y/A-Z/a-z/;
+ $maintainer{$a}= $b;
+ }
+ close(MM);
return \%maintainer;
}
# This is the bugs.debian.org debbugs configuration file.
-# $Id: config.debian,v 1.10 2000/12/05 22:20:15 joy Exp $
+# $Id: config.debian,v 1.11 2001/04/24 19:10:26 doogie Exp $
# Domains
$gEmailDomain = "bugs.debian.org";
# Required data files
$gMaintainerFile = "$gConfigDir/Maintainers";
+$gMaintainerFileOverride = "$gConfigDir/Maintainers.override";
$gPseudoDescFile = "$gConfigDir/pseudo-packages.description";
# This is the template debbugs configuration file.
# You *must* edit it in order for debbugs to work.
-# $Id: config.in,v 1.12 2001/01/27 22:09:01 joy Exp $
+# $Id: config.in,v 1.13 2001/04/24 19:10:26 doogie Exp $
# Domains
$gEmailDomain = "bugs.something"; # e.g. bugs.debian.org
# Required data files
$gMaintainerFile = "$gConfigDir/Maintainers";
+$gMaintainerFileOverride = "$gConfigDir/Maintainers.override";
$gPseudoDescFile = "$gConfigDir/pseudo-packages.description";
-# $Id: config.in.default,v 1.2 1999/09/02 22:27:29 gecko Exp $
+# $Id: config.in.default,v 1.3 2001/04/24 19:10:26 doogie Exp $
#domains
$gEmailDomain = "bugs.top.domain"; #bugs.debian.org
$gListDomain = "lists.top.domain"; #lists.debian.org
#data files
$gMaintainerFile = "/etc/debbugs/Maintainers";
+$gMaintainerFileOverride = "/etc/debbugs/Maintainers.override";
$gPseudoDescFile = "/etc/debbugs/pseudo-packages.description";
#lists
#!/usr/bin/perl
-# $Id: process.in,v 1.26 2001/03/18 05:13:52 doogie Exp $
+# $Id: process.in,v 1.27 2001/04/24 19:10:26 doogie Exp $
#
# Usage: process nn
# Temps: incoming/Pnn
$maintainerof{$1}= $2;
}
close(MAINT);
+ open(MAINT,"$gMaintainerFileOverride") || die &quit("maintainers.override open: $!");
+ while (<MAINT>) {
+ m/^\n$/ && next;
+ m/^\s*$/ && next;
+ m/^(\S+)\s+(\S.*\S)\n$/ || &quit("maintainers.override bogus \`$_'");
+ $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
+ $maintainerof{$1}= $2;
+ }
+ close(MAINT);
$anymaintfound=0; $anymaintnotfound=0;
for $p (split(m/[ \t?,()]+/,$s_package)) {
$p =~ y/A-Z/a-z/;
#!/usr/bin/perl
-# $Id: service.in,v 1.34 2001/03/18 05:59:43 doogie Exp $
+# $Id: service.in,v 1.35 2001/04/24 19:10:26 doogie Exp $
# ^ more or less ^
#
# Usage: service <code>.nn
$maintainerof{$1}= $2;
}
close(MAINT);
+ open(MAINT,"$gMaintainerFileOverride") || die &quit("maintainers.override open: $!");
+ while (<MAINT>) {
+ m/^\n$/ && next;
+ m/^\s*$/ && next;
+ m/^(\S+)\s+(\S.*\S)\n$/ || &quit("maintainers.override bogus \`$_'");
+ $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
+ $maintainerof{$1}= $2;
+ }
}
sub sendinfo {
#!/usr/bin/perl
-# $Id: summary.in,v 1.2 1999/09/02 22:27:29 gecko Exp $
+# $Id: summary.in,v 1.3 2001/04/24 19:10:26 doogie Exp $
require('/etc/debbugs/config');
require('/usr/lib/debbugs/errorlib');
$maintainer{$a}= $b;
}
close(M);
+open(M,"$gMaintainerFileOverride") || &quit("open $gMaintainerFileOverride: $!");
+while (<M>) {
+ m/^(\S+)\s+(\S.*\S)\s*$/ || warn "$_ ?";
+ ($a,$b)=($1,$2);
+ $a =~ y/A-Z/a-z/;
+ $maintainer{$a}= $b;
+}
+close(M);
+
defined($startdate= time) || &quit("failed to get time: $!");