X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FConfig.pm;h=a7014f81f2353cc2af2fc6bf4053c6121348fee2;hb=a6b39cb5eec2cf7d8a0d756f0090a9d8644443c9;hp=b4ab33216bfda73aad3c66b38d073f838dd6ec4d;hpb=cc6c820a1e503808b7ac1e2bff132de23f87606b;p=deb%2Fpackages.git diff --git a/lib/Packages/Config.pm b/lib/Packages/Config.pm index b4ab332..a7014f8 100644 --- a/lib/Packages/Config.pm +++ b/lib/Packages/Config.pm @@ -8,11 +8,11 @@ use Packages::CGI qw( :DEFAULT error ); our @ISA = qw( Exporter ); -our ( $TOPDIR, $DBDIR, $TEMPLATEDIR, $CACHEDIR, $ROOT, +our ( $TOPDIR, $DBDIR, $TEMPLATEDIR, $CACHEDIR, $ROOT, $SEARCH_URL, @LANGUAGES, @DDTP_LANGUAGES, @SUITES, @SECTIONS, @ARCHIVES, @ARCHITECTURES, @PRIORITIES, %FTP_SITES ); -our @EXPORT_OK = qw( $TOPDIR $DBDIR $TEMPLATEDIR $CACHEDIR $ROOT +our @EXPORT_OK = qw( $TOPDIR $DBDIR $TEMPLATEDIR $CACHEDIR $ROOT $SEARCH_URL @LANGUAGES @DDTP_LANGUAGES @SUITES @SECTIONS @ARCHIVES @ARCHITECTURES @PRIORITIES %FTP_SITES ); @@ -24,7 +24,7 @@ sub init { my ($dir) = @_; my $modtime = (stat( "$dir/config.sh" ))[9] || 0; $config_read_time ||= 0; - if ($modtime >= $config_read_time) { + if ($modtime > $config_read_time) { if (!open (C, '<', "$dir/config.sh")) { error( "Internal: Cannot open configuration file." ); } @@ -35,6 +35,7 @@ sub init { $TEMPLATEDIR = $1 if /^\s*templatedir="?([^\"]*)"?\s*$/o; $CACHEDIR = $1 if /^\s*cachedir="?([^\"]*)"?\s*$/o; $ROOT = $1 if /^\s*root="?([^\"]*)"?\s*$/o; + $SEARCH_URL = $1 if /^\s*search_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; @@ -49,11 +50,12 @@ sub init { s/\$\{?topdir\}?/$TOPDIR/g; } close (C); + unshift @LANGUAGES, 'en'; + unshift @DDTP_LANGUAGES, 'en'; debug( "read config ($modtime > $config_read_time)" ) if DEBUG; $config_read_time = $modtime; } $DBDIR = "$TOPDIR/files/db"; - unshift @LANGUAGES, 'en'; } 1;