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

Fix nodestat for install monitoring

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@572 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-02-25 23:48:15 +00:00
parent 4bfa20583f
commit c15ba7d108
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
xCAT-server-2.0/lib/xcat/plugins/nodestat.pm
View File

@ -1,7 +1,7 @@
package xCAT_plugin::nodestat;
use Socket;
use Data::Dumper;
use IO::Handle;
sub handled_commands {
return {
@ -41,14 +41,11 @@ sub installer_query {
my $addr = gethostbyname($node);
my $sin = sockaddr_in($destport,$addr);
connect($socket,$sin) || return 0;
print $socket "stat \r";
print "stat \r";
print "here we go\n";
print $socket "stat \n";
$socket->flush;
while (<$socket>) {
print $_."\n";
$text.=$_;
}
print "here we go\n";
return $text;
close($socket);
}
@ -61,7 +58,6 @@ sub process_request {
my $request = shift;
my $callback = shift;
my @nodes = @{$request->{node}};
$callback->({data=>Dumper(\@nodes)});
my $node;
foreach $node (@nodes) {
my %rsp;