X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FConfig.pm;h=538e912e855a965485eeffde8f4c9d8353f5befb;hb=f27f1fcc5bffc0696f694e962eb40dbb0c554855;hp=73d3542a8cf77c854d3f1b799cd50a143d4e1e7a;hpb=47c93cb066364b11f0b216589ddc68671435b060;p=deb%2Fpackages.git

diff --git a/lib/Packages/Config.pm b/lib/Packages/Config.pm
index 73d3542..538e912 100644
--- a/lib/Packages/Config.pm
+++ b/lib/Packages/Config.pm
@@ -9,13 +9,13 @@ use Packages::CGI;
 our @ISA = qw( Exporter );
 
 our ( $TOPDIR, $DBDIR, $ROOT, $HOME, $CONTACT_MAIL, $WEBMASTER_MAIL,
-      $SEARCH_PAGE, $SEARCH_URL,
+      $SEARCH_PAGE, $SEARCH_URL, @LANGUAGES, $LOCALES,
       $SRC_SEARCH_URL, $CONTENTS_SEARCH_CGI,
       $CN_HELP_URL, $BUG_URL, $SRC_BUG_URL, $QA_URL, $DDPO_URL,
       @SUITES, @SECTIONS, @ARCHIVES, @ARCHITECTURES,
       %FTP_SITES );
 our @EXPORT_OK = qw( $TOPDIR $DBDIR $ROOT $HOME $CONTACT_MAIL
-		     $WEBMASTER_MAIL
+		     $WEBMASTER_MAIL @LANGUAGES $LOCALES
 		     $SEARCH_PAGE $SEARCH_URL
 		     $SRC_SEARCH_URL $CONTENTS_SEARCH_CGI
 		     $CN_HELP_URL $BUG_URL $SRC_BUG_URL $QA_URL $DDPO_URL
@@ -39,6 +39,7 @@ sub init {
 	    $TOPDIR = $1 if /^\s*topdir="?([^\"]*)"?\s*$/o;
 	    $ROOT = $1 if /^\s*root="?([^\"]*)"?\s*$/o;
 	    $HOME = $1 if /^\s*home="?([^\"]*)"?\s*$/o;
+	    $LOCALES = $1 if /^\s*localedir="?([^\"]*)"?\s*$/o;
 #	    $SEARCH_CGI = $1 if /^\s*search_cgi="?([^\"]*)"?\s*$/o;
 	    $SEARCH_PAGE = $1 if /^\s*search_page="?([^\"]*)"?\s*$/o;
 	    $SEARCH_URL = $1 if /^\s*search_url="?([^\"]*)"?\s*$/o;
@@ -49,18 +50,21 @@ sub init {
 	    $SRC_BUG_URL = $1 if /^\s*src_bug_url="?([^\"]*)"?\s*$/o;
 	    $QA_URL = $1 if /^\s*qa_url="?([^\"]*)"?\s*$/o;
 	    $DDPO_URL = $1 if /^\s*ddpo_url="?([^\"]*)"?\s*$/o;
+	    $CN_HELP_URL = $1 if /^\s*cn_help_url="?([^\"]*)"?\s*$/o;
 	    $FTP_SITES{us} = $1 if /^\s*ftpsite="?([^\"]*)"?\s*$/o;
 	    $FTP_SITES{$1} = $2 if /^\s*(\w+)_ftpsite="?([^\"]*)"?\s*$/o;
+	    @LANGUAGES = split(/\s+/, $1) if /^\s*polangs="?([^\"]*)"?\s*$/o;
 	    @SUITES = split(/\s+/, $1) if /^\s*suites="?([^\"]*)"?\s*$/o;
 	    @SECTIONS = split(/\s+/, $1) if /^\s*sections="?([^\"]*)"?\s*$/o;
 	    @ARCHIVES = split(/\s+/, $1) if /^\s*archives="?([^\"]*)"?\s*$/o;
 	    @ARCHITECTURES = split(/\s+/, $1) if /^\s*architectures="?([^\"]*)"?\s*$/o;
 	}
 	close (C);
-	debug( "read config ($modtime > $config_read_time)" );
+	debug( "read config ($modtime > $config_read_time)" ) if DEBUG;
 	$config_read_time = $modtime;
     }
     $DBDIR = "$TOPDIR/files/db";
+    unshift @LANGUAGES, 'en';
 }
 
 1;