Start work on use strict/warnings; start with bugcfg.
[bugscan.git] / bugcfg.pm
1 #! /usr/bin/perl
2 # vim: ts=4 sw=4 nowrap
3
4 use strict;
5 use warnings;
6 package bugcfg;
7 our ($spooldir,$maintainerlist,$debian_ftproot,$nonUS_ftproot,$debian_sources,$nonUS_sources,$pseudolist);
8 our ($nonuslist,$versionindex,$versionpkgdir);
9
10 # General configuration stuff
11
12 my $host=`hostname`;
13 chomp $host;
14 if ($host eq "master" or $host eq "spohr" or $host eq "rietz") {
15         $spooldir       = "/org/bugs.debian.org/debbugs/spool/db-h";
16         $maintainerlist = "/etc/debbugs/Maintainers";
17         $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
18         $nonUS_ftproot  = "/org/bugs.debian.org/etc/indices/nonus/testing";
19         $debian_sources = "/etc/debbugs/indices/ftp.sources";
20         $nonUS_sources  = "/etc/debbugs/indices/nonus.sources";
21         $pseudolist     = "/org/bugs.debian.org/etc/pseudo-packages.description";
22         $nonuslist      = "/debian/home/maor/masterfiles/Packages.non-US";
23         $versionindex   = "/org/bugs.debian.org/versions/indices/versions.idx";
24         $versionpkgdir  = "/org/bugs.debian.org/versions/pkg";
25 } elsif ($host eq "merkel") {
26         $spooldir       = "/org/bugs.debian.org/spool/db-h";
27         $maintainerlist = "/etc/debbugs/Maintainers";
28         $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
29         $nonUS_ftproot  = "/org/bugs.debian.org/etc/indices/nonus/testing";
30         $debian_sources = "/etc/debbugs/indices/ftp.sources";
31         $nonUS_sources  = "/etc/debbugs/indices/nonus.sources";
32         $pseudolist     = "/org/bugs.debian.org/etc/pseudo-packages.description";
33         $nonuslist      = "/debian/home/maor/masterfiles/Packages.non-US";
34         $versionindex = "/org/bugs.debian.org/versions/indices/versions.idx";
35         $versionpkgdir = "/org/bugs.debian.org/versions/pkg";
36 } else {
37         die "Unknown machine, please configure paths in bugcfg.pm\n";
38 }
39
40 my $btsURL                      = "http://www.debian.org/Bugs/";
41 my @architectures               = ( "i386", "m68k", "alpha", "sparc", "powerpc", "arm", "hppa", "ia64", "mips", "mipsel", "s390" );
42 my @sections            = ( "main", "contrib", "non-free" );
43 my @priorities          = ( "serious", "grave", "critical" );
44 my @skiptags            = ( );
45
46 1;
47