Use @bugcfg::architectures (and fix that) instead of hardcoding a list
[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,$debian_sources,$pseudolist);
8
9 # General configuration stuff
10
11 my $host=`hostname`;
12 chomp $host;
13 if ($host eq "master" or $host eq "spohr" or $host eq "rietz") {
14         $spooldir       = "/org/bugs.debian.org/debbugs/spool/db-h";
15         $maintainerlist = "/etc/debbugs/Maintainers";
16         $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
17         $debian_sources = "/etc/debbugs/indices/ftp.sources";
18         $pseudolist     = "/org/bugs.debian.org/etc/pseudo-packages.description";
19 } elsif ($host eq "merkel") {
20         $spooldir       = "/org/bugs.debian.org/spool/db-h";
21         $maintainerlist = "/etc/debbugs/Maintainers";
22         $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
23         $debian_sources = "/etc/debbugs/indices/ftp.sources";
24         $pseudolist     = "/org/bugs.debian.org/etc/pseudo-packages.description";
25 } else {
26         die "Unknown machine, please configure paths in bugcfg.pm\n";
27 }
28
29 our $btsURL                     = "http://www.debian.org/Bugs/";
30 our @architectures              = ( "i386", "amd64", "alpha", "sparc", "powerpc", "arm", "hppa", "ia64", "mips", "mipsel", "s390" );
31 our @sections           = ( "main", "contrib", "non-free" );
32 our @priorities         = ( "serious", "grave", "critical" );
33 our @skiptags           = ( );
34
35 1;
36