gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix for bug 2528: installation fails with confusing error message 

This makes the dns check happen earlier, and fail humanely if there is a problem.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Jesse Weaver 2008-08-18 12:37:55 -05:00 committed by Galen Charlton
parent 6e53a31357
commit 4712745527
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rewrite-config.PL
View File

@ -64,7 +64,11 @@ $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 ( !gethostbyname( $myhost || 'localhost' ) ) {
die 'Could not get the IP address of ' . ( $myhost || 'localhost' ) . ', DNS fault?';
}
$myip = $ENV{'WEBSERVER_IP'} || inet_ntoa( scalar gethostbyname( $myhost||'localhost' ) );
$prefix = $ENV{'INSTALL_BASE'} || "/usr";
# These are our configuration guesses