arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

defect 3041747: IO::Socket::INET->new has problem to handle the hostname, use the IP to replace. And added the retry for update state

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7116 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
daniceexi 2010-08-18 01:34:22 +00:00
parent aaa6317e03
commit b7054d0545
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
xCAT/postscripts/xcataixpost
View File

@ -445,10 +445,19 @@ sub updateflag {
my $state="booted";
my $port = "3002";
my $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => $servnode, PeerPort => $port, );
my $servip = `host $servnode | awk '{print \$3}'`;
chomp($servip);
my $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => $servip, PeerPort => $port, Timeout => 0);
my $try = 10;
while (!$remote && $try-- > 0) {
sleep 1;
$remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => $servip, PeerPort => $port, Timeout => 0);
print $::LOG_FILE "$::sdate xcataixpost: Cannot connect to host \'$servip\'\n";
}
unless ($remote) {
print "$::sdate xcataixpost: Cannot connect to host \'$servnode\'\n";
print $::LOG_FILE "$::sdate xcataixpost: Cannot connect to host \'$servnode\'\n";
print "$::sdate xcataixpost: Cannot connect to host \'$servip\'\n";
print $::LOG_FILE "$::sdate xcataixpost: Cannot connect to host \'$servip\'\n";
return 1;
}
$remote->autoflush(1);