diff --git a/perl-xCAT/xCAT/FSPscan.pm b/perl-xCAT/xCAT/FSPscan.pm index 90d40266d..79e32b817 100644 --- a/perl-xCAT/xCAT/FSPscan.pm +++ b/perl-xCAT/xCAT/FSPscan.pm @@ -148,8 +148,8 @@ sub enumerate { next; } my @list = split(/\n/,$data); - print "list\n"; - print Dumper(\@list); + #print "list\n"; + #print Dumper(\@list); foreach my $lpar (@list) { $lpar =~ /lparid:\s+(\d+),\s+state:/; my $name = ""; @@ -418,10 +418,10 @@ sub format_output { my $max_length = 0; my $result; - print "In format output\n"; - print Dumper($request); - print Dumper($exp); - print Dumper($values); + #print "In format output\n"; + #print Dumper($request); + #print Dumper($exp); + #print Dumper($values); ########################################### # -w flag for write to xCat database ########################################### @@ -655,7 +655,7 @@ sub format_xml { } $href->{Node}->{$_} = $d; } - print Dumper($href); + #print Dumper($href); ################################# # XML encoding ################################# @@ -680,17 +680,17 @@ sub rscan { my $args = $request->{arg}; my $server = @$exp[3]; - print "in rscan,"; - print Dumper($request); - print Dumper($hash); - print Dumper($exp); + #print "in rscan,"; + #print Dumper($request); + #print Dumper($hash); + #print Dumper($exp); ################################### # Enumerate all the hardware ################################### my $values = enumerate( $hash ); - print "In rscan:\n"; - print Dumper($values); + #print "In rscan:\n"; + #print Dumper($values); if ( ref($values) ne 'ARRAY' ) { return( [[$server,$values,1]] ); } diff --git a/xCAT-server/lib/xcat/plugins/fsp.pm b/xCAT-server/lib/xcat/plugins/fsp.pm index 8eeebd46b..1d017307e 100644 --- a/xCAT-server/lib/xcat/plugins/fsp.pm +++ b/xCAT-server/lib/xcat/plugins/fsp.pm @@ -21,7 +21,8 @@ sub handled_commands { rflash => 'nodehm:mgt', getmacs => 'nodehm:mgt', rnetboot => 'nodehm:mgt', - rvitals => 'nodehm:mgt' + rvitals => 'nodehm:mgt', + rscan => 'nodehm:mgt' }; }