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

Fixed issue where node was detected as new when gethostbyname failed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3591 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
datajerk 2009-06-16 21:17:57 +00:00
parent 17546f5bca
commit 274edcb7bf
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
xCAT-server/share/xcat/netboot/add-on/autogpfs/autogpfsd.pl
View File

@ -101,7 +101,7 @@ while (!$quit) {
$node =~ s/-eth\d$//;
$node =~ s/-myri\d$//;
logger('info',"connection from: $node");
interact($connection,$node);
interact($connection,$node,inet_ntoa($connection->peeraddr));
#kill(10,$pid);
exit 0;
}
@ -141,6 +141,7 @@ logger('info',"exiting clean");
sub interact {
my $sock = shift;
my $node = shift;
my $addr = shift;
STDIN->fdopen($sock,"<") or die "Can't reopen STDIN: $!";
STDOUT->fdopen($sock,">") or die "Can't reopen STDOUT: $!";
@ -153,6 +154,12 @@ sub interact {
# return;
# }
if($node eq "") {
print "gethostbyaddr failed, who are you $addr?\n";
logger('info',"gethostbyaddr failed for $addr");
last;
}
while(<>) {
my $line = $_;
@ -179,7 +186,7 @@ sub interact {
next;
}
if($line =~ /-------/) {
if($line =~ /------------------------------------------------/) {
$inlist = 1;
next;
}
@ -189,6 +196,9 @@ sub interact {
}
s/^\s+//;
if($_ eq "") {
next;
}
my @a = split(/[\.\s]+/);
my $lnode = $a[1];
@ -315,7 +325,6 @@ sub daemonic {
open(STDERR,">&STDOUT");
chdir('/');
umask(0);
#cannot remember why I needed this
#$ENV{PATH} = "$ENV{XCATROOT}/bin:$ENV{XCATROOT}/sbin:$ENV{XCATROOT}/lib:$ENV{PATH}";
return $$;
}
@ -364,8 +373,8 @@ sub logger {
syslog($type,$msg);
closelog();
#hack for no syslog
#system("(date;echo : $type $msg) >>/tmp/autogpfsd.log");
#no syslog hack
system("(date;echo : $type $msg) >>/tmp/autogpfsd.log");
}
END { unlink PIDFILE if $$ == $pid; }