$gWebDomain = "$gWebHost/$gWebHostBugDir";
$gCGIDomain = "$gWebDomain/Bugs/cgi"; # e.g. cgi.debian.org
$gPackagePages = "packages.debian.org"; # e.g. packages.debian.org
+$gSubscriptionDomain = "packages.something"; # e.g. packages.qa.debian.org
$gMaintainerFileOverride = "$gConfigDir/Maintainers.override";
$gUnknownMaintainerEmail = "$gMaintainerEmail";
$gPackageSource = "$gConfigDir/indices/sources";
$gWebDomain will probably exist already; change it as shown above.
+$gSubscriptionDomain is optional.
+
$gMaintainerFileOverride is the name of a file used to manually override the
Maintainers file (which is often automatically generated).
require '/etc/debbugs/config';
require '/etc/debbugs/text';
-use vars(qw($gHTMLTail $gSpoolDir));
+use vars(qw($gEmailDomain $gHTMLTail $gSpoolDir));
my %param = readparse();
"</HEAD>\n" .
'<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080">' .
"\n";
-print "<H1>" . "$debbugs::gProject $debbugs::gBug report logs - <A HREF=\"mailto:$ref\@bugs.debian.org\">$short</A>" .
+print "<H1>" . "$debbugs::gProject $debbugs::gBug report logs - <A HREF=\"mailto:$ref\@$gEmailDomain\">$short</A>" .
"<BR>" . htmlsanit($status{subject}) . "</H1>\n";
print "$descriptivehead\n";
&template("sources", "$gConfigDir/indices");
&template("nextnumber", $gSpoolDir);
+&touch("$gSpoolDir/index.archive.realtime");
+&touch("$gSpoolDir/index.db.realtime");
# stuff used when testing (comment out the above)
#unshift @INC, "../";
}
}
+sub touch {
+ my $name = shift;
+ unless (-f $name) {
+ open TOUCH, ">> $name" or die "open $name: $!";
+ close TOUCH;
+ print "created empty $name.\n";
+ }
+}
+
sub writefiles {
local ($html, $text, $name) = @_;
# first HTML
# This is the bugs.debian.org debbugs configuration file.
-# $Id: config.debian,v 1.14 2002/10/03 12:49:43 cjwatson Exp $
+# $Id: config.debian,v 1.15 2002/11/17 22:45:16 cjwatson Exp $
# Domains
$gEmailDomain = "bugs.debian.org";
$gCGIPath = "/cgi-bin/";
$gCGIDomain = "http://$gCGIHost$gCGIPath";
$gMirrors = ""; # comma separated list
+$gSubscriptionDomain = "packages.qa.debian.org";
# Project identification
$gProject = "Debian";
# This is the template debbugs configuration file.
# You *must* edit it in order for debbugs to work.
-# $Id: config.in,v 1.15 2002/11/17 16:00:54 cjwatson Exp $
+# $Id: config.in,v 1.16 2002/11/17 22:45:16 cjwatson Exp $
# Domains
$gEmailDomain = "bugs.something"; # e.g. bugs.debian.org
$gCGIDomain = "$gWebDomain/Bugs/cgi"; # e.g. cgi.debian.org
$gMirrors = ""; # comma separated list
$gPackagePages = "packages.debian.org"; # e.g. packages.debian.org
+$gSubscriptionDomain = "packages.something"; # e.g. packages.qa.debian.org
# Project identification
$gProject = "Something"; # e.g. Debian
#!/usr/bin/perl
-# $Id: db2html.in,v 1.10 2002/10/15 23:33:37 cjwatson Exp $
+# $Id: db2html.in,v 1.11 2002/11/17 22:45:16 cjwatson Exp $
# usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
#load the necessary libraries/configuration
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$config_path/text");
# -*- perl -*-
-# $Id: errorlib.in,v 1.16 2002/11/17 21:04:34 cjwatson Exp $
+# $Id: errorlib.in,v 1.17 2002/11/17 22:45:16 cjwatson Exp $
sub F_SETLK { 6; } sub F_WRLCK{ 1; }
$flockstruct= 'sslll'; # And there ought to be something for this too.
&filelock("debbugs.trace.lock");
&appendfile("debbugs.trace","archive $ref\n");
my $line = update_realtime(
- "/org/bugs.debian.org/spool/index.db.realtime",
+ "$gSpoolDir/index.db.realtime",
$ref,
"REMOVE");
- update_realtime("/org/bugs.debian.org/spool/index.archive.realtime",
+ update_realtime("$gSpoolDir/index.archive.realtime",
$ref, $line);
&unfilelock;
}
$firstpkg, $ref, $stuff[1], $whendone, $stuff[0],
$severity, $stuff[5];
- update_realtime("/org/bugs.debian.org/spool/index.db.realtime", $ref, $k);
+ update_realtime("$gSpoolDir/index.db.realtime", $ref, $k);
&unfilelock;
}
#!/usr/bin/perl
-# $Id: expire.in,v 1.13 2002/11/17 21:04:34 cjwatson Exp $
+# $Id: expire.in,v 1.14 2002/11/17 22:45:16 cjwatson Exp $
# Load modules and set envirnment
use File::Copy;
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$config_path/text");
#!/usr/bin/perl
-# $Id: html-control.in,v 1.7 2001/08/16 17:43:45 doogie Exp $
+# $Id: html-control.in,v 1.8 2002/11/17 22:45:16 cjwatson Exp $
use POSIX;
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$lib_path/errorlib");
#!/usr/bin/perl
-# $Id: html-install.in,v 1.3 2001/08/16 17:46:00 doogie Exp $
+# $Id: html-install.in,v 1.4 2002/11/17 22:45:16 cjwatson Exp $
# Takes 1 argument - directory tree to install into
# Tree _must_ be synch'd with one used by db2html to generate file
use POSIX;
-$config_path = '/org/bugs.debian.org/etc';
+$config_path = '/etc/debbugs';
require("$config_path/config");
$ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
#!/usr/bin/perl
-# $Id: mailsummary.in,v 1.9 2002/09/22 15:20:08 cjwatson Exp $
+# $Id: mailsummary.in,v 1.10 2002/11/17 22:45:16 cjwatson Exp $
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$lib_path/errorlib");
#!/usr/bin/perl
-# $Id: process.in,v 1.56 2002/11/11 10:19:44 joy Exp $
+# $Id: process.in,v 1.57 2002/11/17 22:45:16 cjwatson Exp $
#
# Usage: process nn
# Temps: incoming/Pnn
use Mail::Address;
use MIME::Parser;
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require "$config_path/config";
require "$lib_path/errorlib";
$anymaintfound=0; $anymaintnotfound=0;
for $p (split(m/[ \t?,()]+/,$s_package)) {
$p =~ y/A-Z/a-z/;
- if (defined($pkgsrc{$p})) {
- push @addsrcaddrs, "$pkgsrc{$p}\@packages.qa.debian.org";
- } else {
- push @addsrcaddrs, "$p\@packages.qa.debian.org";
+ if (defined $gSubscriptionDomain) {
+ if (defined($pkgsrc{$p})) {
+ push @addsrcaddrs, "$pkgsrc{$p}\@$gSubscriptionDomain";
+ } else {
+ push @addsrcaddrs, "$p\@$gSubscriptionDomain";
+ }
}
if (defined($maintainerof{$p})) {
print DEBUG "maintainer add >$p|$maintainerof{$p}<\n";
#!/usr/bin/perl
-# $Id: processall.in,v 1.8 2002/10/06 22:54:48 cjwatson Exp $
+# $Id: processall.in,v 1.9 2002/11/17 22:45:16 cjwatson Exp $
#
# Usage: processall
#
# Creates: incoming/E.nn
# Stop; process/stop
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require "$config_path/config";
require "$lib_path/errorlib";
#!/usr/bin/perl -w
-# $Id: rebuild.in,v 1.4 2001/08/16 17:51:33 doogie Exp $
+# $Id: rebuild.in,v 1.5 2002/11/17 22:45:16 cjwatson Exp $
# Load modules and set envirnment
use File::Copy;
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$lib_path/errorlib");
#!/usr/bin/perl
-# $Id: receive.in,v 1.13 2002/11/04 16:32:02 cjwatson Exp $
+# $Id: receive.in,v 1.14 2002/11/17 22:45:16 cjwatson Exp $
# usage: mail is piped directly into program
#set umask in order to have group-writable incoming/*
#umask(002);
#load configuration file
-$config_path = '/org/bugs.debian.org/etc';
-#$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+#$lib_path = '/usr/lib/debbugs';
require "$config_path/config";
-$ENV{'PATH'} = '/org/bugs.debian.org/scripts:'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
#set source of mail delivery
#sets any prefix needed to get mailer to add it to error mail
#!/usr/bin/perl
-# $Id: service.in,v 1.61 2002/11/08 14:01:33 ajt Exp $
+# $Id: service.in,v 1.62 2002/11/17 22:45:16 cjwatson Exp $
# ^ more or less ^
#
# Usage: service <code>.nn
use File::Copy;
use MIME::Parser;
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require "$config_path/config";
require "$lib_path/errorlib";
for $p (split(m/[ \t?,()]+/,$_[0])) {
$p =~ y/A-Z/a-z/;
$pshow= ($p =~ m/[-+.a-z0-9]+/ ? $& : '');
- if (defined($pkgsrc{$p})) {
- push @bcc, "$pkgsrc{$p}\@packages.qa.debian.org";
- } else {
- push @bcc, "$p\@packages.qa.debian.org";
+ if (defined $gSubscriptionDomain) {
+ if (defined($pkgsrc{$p})) {
+ push @bcc, "$pkgsrc{$p}\@$gSubscriptionDomain";
+ } else {
+ push @bcc, "$p\@$gSubscriptionDomain";
+ }
}
if (defined($maintainerof{$p})) {
$addmaint= $maintainerof{$p};
#!/usr/bin/perl
-# $Id: summary.in,v 1.5 2001/08/19 02:09:18 doogie Exp $
+# $Id: summary.in,v 1.6 2002/11/17 22:45:16 cjwatson Exp $
-$config_path = '/org/bugs.debian.org/etc';
-$lib_path = '/org/bugs.debian.org/scripts';
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$lib_path/errorlib");