X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FConfig.pm;h=43ea37ad059fbe1543332c53b057ab4c21a83342;hb=01393b020237bbfa4571d41cc98899b4d25acd8b;hp=0645d5833cdefe4cfbefd6050e55319b88112ad0;hpb=56d4b3ed57e20359e5ea46feabb850cf4a94caf2;p=deb%2Fpackages.git

diff --git a/lib/Packages/Config.pm b/lib/Packages/Config.pm
index 0645d58..43ea37a 100644
--- a/lib/Packages/Config.pm
+++ b/lib/Packages/Config.pm
@@ -8,13 +8,13 @@ use Packages::CGI;
 
 our @ISA = qw( Exporter );
 
-our ( $TOPDIR, $DBDIR, $ROOT, $HOME, $CONTACT_MAIL, $WEBMASTER_MAIL,
+our ( $TOPDIR, $DBDIR, $ROOT, $HOSTNAME, $HOME, $CONTACT_MAIL, $WEBMASTER_MAIL,
       $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
+our @EXPORT_OK = qw( $TOPDIR $DBDIR $ROOT $HOSTNAME $HOME $CONTACT_MAIL
 		     $WEBMASTER_MAIL @LANGUAGES $LOCALES
 		     $SEARCH_PAGE $SEARCH_URL
 		     $SRC_SEARCH_URL $CONTENTS_SEARCH_CGI
@@ -38,6 +38,7 @@ sub init {
 	    chomp;
 	    $TOPDIR = $1 if /^\s*topdir="?([^\"]*)"?\s*$/o;
 	    $ROOT = $1 if /^\s*root="?([^\"]*)"?\s*$/o;
+	    $HOSTNAME = $1 if /^\s*hostname="?([^\"]*)"?\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;
@@ -60,7 +61,7 @@ sub init {
 	    @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";