-Correct problem where lazy clients would induce 'unexpected disconnects'. Lazy clients here consisting of the awk scripts that don't wait for serverdone tag.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1488 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-05-25 00:06:15 +00:00
parent 1da75068dd
commit 87d3f80207

View File

@ -736,7 +736,13 @@ sub plugin_command {
if ($req->{transid}) {
$done{transid}=$req->{transid}->[0];
}
if ($sock) { print $sock XMLout(\%done,RootName => 'xcatresponse',NoAttr=>1); }
if ($sock) {
my $clientpresence = new IO::Select; #The client may have gone away without confirmation, don't PIPE over this trivial thing
$clientpresence->add($sock);
if ($clientpresence->can_write) {
print $sock XMLout(\%done,RootName => 'xcatresponse',NoAttr=>1);
}
}
}
my $dispatch_dnf=0;