X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugcfg.pm;h=9293e0d8d4273f2cf2612e2ea9df49c73b24e894;hp=ebe515dbc7e8b825217dacfac3cacc3dbb86daef;hb=c0f4a4d5ce63338390dfd851c4b403769266d0d7;hpb=79a7d8380b9712a363a95e8998d6ba3e95ff581b

diff --git a/bugcfg.pm b/bugcfg.pm
index ebe515d..9293e0d 100644
--- a/bugcfg.pm
+++ b/bugcfg.pm
@@ -1,35 +1,32 @@
 #! /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";
-}
-
-our $btsURL			= "http://www.debian.org/Bugs/";
-our @architectures		= ( "i386", "amd64", "alpha", "sparc", "powerpc", "arm", "hppa", "ia64", "mips", "mipsel", "s390" );
+$spooldir = $config{spool_dir}.'/db-h';
+$maintainerlist = $config{maintainer_file};
+$debian_ftproot = $config{package_source};
+$debian_sources = $config{package_source};
+$pseudolist = $config{pseudo_desc_file};
+
+$debian_sources	= "/etc/debbugs/indices/ftp.sources";
+
+$debian_ftproot = "/org/bugs.debian.org/etc/indices/ftp/testing";
+
+
+# check out:
+# http://release.debian.org/wheezy/arch_qualify.html
+# and then generally include architectures which are currently in testing
+our @architectures = qw(amd64 armel armhf i386 ia64 kfreebsd-amd64 kfreebsd-i386 mips mipsel powerpc s390 s390x sparc);
 our @sections		= ( "main", "contrib", "non-free" );
-our @priorities		= ( "serious", "grave", "critical" );
+our @priorities		= @{$config{strong_severities}};
 our @skiptags		= ( );
 
 1;