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 our ($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         $debian_sources = "/etc/debbugs/indices/ftp.sources";
  19         $pseudolist     = "/org/bugs.debian.org/etc/pseudo-packages.description";
  20         $versionindex   = "/org/bugs.debian.org/versions/indices/versions.idx";
  21         $versionpkgdir  = "/org/bugs.debian.org/versions/pkg";
  22 } elsif ($host eq "merkel") {
  23         $spooldir       = "/org/bugs.debian.org/spool/db-h";
  24         $maintainerlist = "/etc/debbugs/Maintainers";
  25         $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
  26         $debian_sources = "/etc/debbugs/indices/ftp.sources";
  27         $pseudolist     = "/org/bugs.debian.org/etc/pseudo-packages.description";
  28         $versionindex = "/org/bugs.debian.org/versions/indices/versions.idx";
  29         $versionpkgdir = "/org/bugs.debian.org/versions/pkg";
  30 } else {
  31         die "Unknown machine, please configure paths in bugcfg.pm\n";
  32 }
  33
  34 our $btsURL                     = "http://www.debian.org/Bugs/";
  35 our @architectures              = ( "i386", "m68k", "alpha", "sparc", "powerpc", "arm", "hppa", "ia64", "mips", "mipsel", "s390" );
  36 our @sections           = ( "main", "contrib", "non-free" );
  37 our @priorities         = ( "serious", "grave", "critical" );
  38 our @skiptags           = ( );
  39
  40 1;
  41