From cecd7ef0f474da44ef59327ca3542a6bd100daba Mon Sep 17 00:00:00 2001 From: MJ Ray Date: Thu, 6 Sep 2007 16:00:45 +0100 Subject: [PATCH] BUGFIX: set all configuration keys - die terminated the hash Signed-off-by: Chris Cormack --- rewrite-config.PL | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/rewrite-config.PL b/rewrite-config.PL index a40821010f..2399d8f663 100644 --- a/rewrite-config.PL +++ b/rewrite-config.PL @@ -59,6 +59,8 @@ also need to override WEBSERVER_IP. $myhost = hostname(); $mydomain = $myhost; $mydomain =~ s/^.*?\.//; +# This is set here to rescue systems with broken DNS +$myip = $ENV{'WEBSERVER_IP'} || inet_ntoa(scalar gethostbyname($myhost||'localhost')) || die "Cannot get our own IP address: DNS fault?"; # These are our configuration guesses # Keys were extracted by @@ -72,10 +74,9 @@ $mydomain =~ s/^.*?\.//; "__WEBMASTER_EMAIL__" => 'webmaster@'.$mydomain, "__WEBSERVER_DOMAIN__" => $mydomain, "__WEBSERVER_HOST__" => $myhost, - # This is set like this to rescue systems with broken DNS - "__WEBSERVER_IP__" => $ENV{'WEBSERVER_IP'} || inet_ntoa(scalar gethostbyname($myhost||'localhost')) || die "Cannot get our own IP address: DNS fault?", - "__WEBSERVER_PORT__" => 80, - "__WEBSERVER_PORT_LIBRARIAN__" => 8080, + "__WEBSERVER_IP__" => $myip, + "__WEBSERVER_PORT__" => "80", + "__WEBSERVER_PORT_LIBRARIAN__" => "8080", "__ZEBRA_PASS__" => "zebrastripes", "__ZEBRA_USER__" => "kohauser", ); -- 2.39.5