add check that MN name is resolvable and put out error if it is not

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4107 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-09-08 19:11:22 +00:00
parent 599f01e075
commit 6afb2a3f77

View File

@ -764,10 +764,14 @@ sub initDB
my $xcatiport = "3002";
my $tftpdir = "/tftpboot";
my $installdir = "/install";
my $master;
my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname($hname);
my $master = inet_ntoa($addrs[0]);
if ($? == 0) {
$master = inet_ntoa($addrs[0]);
} else {
xCAT::MsgUtils->message("E","Hostname resolution for $hname failed.\n");
$master="NORESOLUTION";
}
# set value based on OS
my ($domain, $timezone);
if ($::osname eq 'AIX')