bugcfg.pm

   1 #! /usr/bin/perl
   2 # vim: ts=8 sw=8 nowrap
   3
   4 use strict;
   5 use warnings;
   6 package bugcfg;
   7 our ($spooldir,$maintainerlist,$debian_ftproot,$debian_sources,$pseudolist);
   8
   9 use Debbugs::Config qw(:config);
  10
  11 # General configuration stuff
  12
  13 $spooldir = $config{spool_dir}.'/db-h';
  14 $maintainerlist = $config{maintainer_file};
  15 $debian_sources = "/etc/debbugs/indices/ftp.sources";
  16 $debian_ftproot = "/srv/bugs.debian.org/etc/indices/ftp/testing";
  17 $pseudolist = $config{pseudo_desc_file};
  18
  19 # this is just the default, and should always be overriden by the
  20 # Debbugs::Config; set values
  21 our $debian_releases = {testing => 'stretch',
  22                         stable  => 'jessie',
  23                         unstable => 'sid',
  24                         oldstable => 'wheezy',
  25                        };
  26 # figure out debian releases from distribution aliases
  27 for my $alias (keys %{$config{distribution_aliases}//{}}) {
  28     next if $alias eq $config{distribution_aliases}{$alias};
  29     $debian_releases->{$config{distribution_aliases}{$alias}} =
  30         $alias;
  31 }
  32
  33 # check out:
  34 # http://release.debian.org/stretch/arch_qualify.html
  35 # and then generally include architectures which are currently in testing
  36 our @architectures = qw(all amd64 arm64 armel armhf i386 mips64el mipsel ppc64el s390x);
  37 our @sections           = ( "main", "contrib", "non-free" );
  38 our @priorities         = @{$config{strong_severities}};
  39 our @skiptags           = ( );
  40
  41 1;
  42