#! /usr/bin/perl
-# vim: ts=4 sw=4 nowrap
+# vim: ts=8 sw=8 nowrap
use strict;
use warnings;
package bugcfg;
our ($spooldir,$maintainerlist,$debian_ftproot,$debian_sources,$pseudolist);
+use Debbugs::Config qw(:config);
+
# General configuration stuff
-my $host=`hostname`;
-chomp $host;
-if ($host eq "master" or $host eq "spohr" or $host eq "rietz") {
- $spooldir = "/org/bugs.debian.org/debbugs/spool/db-h";
- $maintainerlist = "/etc/debbugs/Maintainers";
- $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
- $debian_sources = "/etc/debbugs/indices/ftp.sources";
- $pseudolist = "/org/bugs.debian.org/etc/pseudo-packages.description";
-} elsif ($host eq "merkel") {
- $spooldir = "/org/bugs.debian.org/spool/db-h";
- $maintainerlist = "/etc/debbugs/Maintainers";
- $debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
- $debian_sources = "/etc/debbugs/indices/ftp.sources";
- $pseudolist = "/org/bugs.debian.org/etc/pseudo-packages.description";
-} else {
- die "Unknown machine, please configure paths in bugcfg.pm\n";
+$spooldir = $config{spool_dir}.'/db-h';
+$maintainerlist = $config{maintainer_file};
+$debian_sources = "/etc/debbugs/indices/ftp.sources";
+$debian_ftproot = "/srv/bugs.debian.org/etc/indices/ftp/testing";
+$pseudolist = $config{pseudo_desc_file};
+
+# this is just the default, and should always be overriden by the
+# Debbugs::Config; set values
+our $debian_releases = {testing => 'stretch',
+ stable => 'jessie',
+ unstable => 'sid',
+ oldstable => 'wheezy',
+ };
+# figure out debian releases from distribution aliases
+for my $alias (keys %{$config{distribution_aliases}//{}}) {
+ next if $alias eq $config{distribution_aliases}{$alias};
+ $debian_releases->{$config{distribution_aliases}{$alias}} =
+ $alias;
}
-our $btsURL = "http://www.debian.org/Bugs/";
-our @architectures = ( "i386", "amd64", "alpha", "sparc", "powerpc", "arm", "hppa", "ia64", "mips", "mipsel", "s390" );
+# check out:
+# http://release.debian.org/stretch/arch_qualify.html
+# and then generally include architectures which are currently in testing
+our @architectures = qw(all amd64 arm64 armel armhf i386 mips64el mipsel ppc64el s390x);
our @sections = ( "main", "contrib", "non-free" );
-our @priorities = ( "serious", "grave", "critical" );
+our @priorities = @{$config{strong_severities}};
our @skiptags = ( );
1;