=cut
-$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?";
+if ( $myhost = $ENV{WEBSERVER_HOST} || hostname ) {
+ ( $mydomain = $myhost ) =~ s/.*?\.//;
+} else {
+ $myhost = 'localhost';
+ $mydomain = 'localdomain';
+}
+
+unless ( $myip = $ENV{WEBSERVER_IP} ) {
+ my $byname = gethostbyname( $myhost )
+ or die "Could not get the IP address of $myhost, DNS fault? ($!)";
+ $myip = inet_ntoa $byname
+ or die "can't inet_ntoa ($!)";
+}
+
+
$prefix = $ENV{'INSTALL_BASE'} || "/usr";
# These are our configuration guesses
"__PAZPAR2_TOGGLE_XML_PRE__" => '<!--',
"__PAZPAR2_TOGGLE_XML_POST__" => '-->',
"__AUTH_INDEX_MODE__" => 'grs1',
+ "__RUN_DATABASE_TESTS__" => 'no',
+ "__PATH_TO_ZEBRA__" => "",
);
# Override configuration from the environment