X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugcfg.pm;h=1a54ba4f4415cc7a019a20c34bc9ea58c6dc83ad;hp=d8f1852af6d994cbc5349b6990df5a188b9d23e2;hb=HEAD;hpb=d5a0b74a3ddd8ad47fb594e890dfd0f454627655

diff --git a/bugcfg.pm b/bugcfg.pm
index d8f1852..efa475b 100644
--- a/bugcfg.pm
+++ b/bugcfg.pm
@@ -1,34 +1,42 @@
 #! /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
 
-$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";
-	$nonUS_ftproot	= "/org/bugs.debian.org/etc/indices/nonus/testing";
-	$debian_sources	= "/etc/debbugs/indices/ftp.sources";
-	$nonUS_sources	= "/etc/debbugs/indices/nonus.sources";
-	$pseudolist	= "/org/bugs.debian.org/etc/pseudo-packages.description";
-	$nonuslist	= "/debian/home/maor/masterfiles/Packages.non-US";
-} elsif ($host eq "lightning") {
-	$spooldir	= "/debian/home/iwj/debian-bugs/spool/db";
-	$maintainerlist = "/debian/debian/indices/Maintainers";
-	$ftproot	= "/debian/debian/dists/potato/";
-	$pseudolist	= "/debian/home/maor/masterfiles/pseudo-packages.description";
-	$nonuslist	= "/debian/home/maor/masterfiles/Packages.non-US";
-} 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;
 }
 
-$btsURL			= "http://www.debian.org/Bugs/";
-@architectures		= ( "i386", "m68k", "alpha", "sparc", "powerpc", "arm", "hppa", "ia64", "mips", "mipsel", "s390" );
-@sections		= ( "main", "contrib", "non-free" );
-@priorities		= ( "serious", "grave", "critical" );
-@skiptags		= ( "wontfix", "fixed" );
+# check out:
+# http://release.debian.org/testing/arch_qualify.html
+# and then generally include architectures which are currently in testing
+our @architectures = qw(all amd64 arm64 armel armhf i386 ppc64el s390x);
+our @sections		= ( "main", "contrib", "non-free", "non-free-firmware" );
+our @priorities		= @{$config{strong_severities}};
+our @skiptags		= ( );
 
 1;