diff --git a/perl-xCAT/xCAT/FSPflash.pm b/perl-xCAT/xCAT/FSPflash.pm index 3cd303eb1..ead7bad76 100644 --- a/perl-xCAT/xCAT/FSPflash.pm +++ b/perl-xCAT/xCAT/FSPflash.pm @@ -214,24 +214,24 @@ sub process_node { } print "in process_node1, node $node\n"; - print Dumper($node); + #print Dumper($node); my $ent = $tab->getNodeAttribs($node, ['serial', 'mtm']); - print "in process_node\n"; - print Dumper($ent); + #print "in process_node\n"; + #print Dumper($ent); my $serial = $ent->{'serial'}; my $mtm = $ent->{'mtm'}; ################################# #Get node ################################# - print "in get_related_fsp_bpa(), serial = $serial, mtm= $mtm\n"; + #print "in get_related_fsp_bpa(), serial = $serial, mtm= $mtm\n"; my @ents = $tab->getAllAttribsWhere("serial=\"$serial\" and mtm=\"$mtm\"", 'node'); if (@ents < 0) { $msg = "failed to get the FSPs or BPAs whose mtm is $mtm, serial is $serial!"; return ("", $msg); } my $e; - print Dumper(@ents); + #print Dumper(@ents); foreach $e (@ents) { if($e->{node} ne $node) { # push @{$req->{node}},$e->{node}; diff --git a/perl-xCAT/xCAT/FSPpower.pm b/perl-xCAT/xCAT/FSPpower.pm index 9daa698f2..94433df27 100644 --- a/perl-xCAT/xCAT/FSPpower.pm +++ b/perl-xCAT/xCAT/FSPpower.pm @@ -57,8 +57,8 @@ sub powercmd_boot { } my $res = xCAT::Utils::fsp_api_action ($node_name, $d, "state"); - print "In boot, state\n"; - print Dumper($res); + #print "In boot, state\n"; + #print Dumper($res); my $Rc = @$res[2]; my $data = @$res[1]; #my $type = @$d[4]; @@ -76,7 +76,7 @@ sub powercmd_boot { # Convert state to on/off ################################## my $state = power_status($data); - print "boot:state:$state\n"; + #print "boot:state:$state\n"; my $op = ($state =~ /^off$/) ? "on" : "reset"; $res = xCAT::Utils::fsp_api_action ($node_name, $d, $op); @@ -106,8 +106,8 @@ sub powercmd { my @output; my $action = $request->{'op'}; - print "++++in powercmd++++\n"; - print Dumper($hash); + #print "++++in powercmd++++\n"; + #print Dumper($hash); #################################### # Power commands are grouped by cec or lpar diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm index 97ce5744f..c6e885b50 100644 --- a/perl-xCAT/xCAT/Utils.pm +++ b/perl-xCAT/xCAT/Utils.pm @@ -5508,8 +5508,8 @@ sub fsp_api_action { my $password = $myhash{$fsp_name}{"passwd.HMC"}; #print "fspname:$fsp_name password:$password\n"; if(!$password ) { - $res = "The password.hscroot of $fsp_name in ppcdirect table is empty"; - return ([$node_name, $res, -1]); + $res = "The password.HMC of $fsp_name in ppcdirect table is empty"; + return ([$node_name, $res, -1]); } my $user = "HMC"; #my $user = "hscroot"; @@ -5541,8 +5541,8 @@ sub fsp_api_action { return ([$node_name, $res, -1]); } - print "fsp name: $fsp_name\n"; - print "fsp ip: $fsp_ip\n"; + #print "fsp name: $fsp_name\n"; + #print "fsp ip: $fsp_ip\n"; my $cmd; if( $action =~ /^code_update$/) { @@ -5551,8 +5551,8 @@ sub fsp_api_action { $cmd = "$fsp_api -a $action -u $user -p $password -T $tooltype -t $type:$fsp_ip:$id:$node_name:"; } - print "cmd: $cmd\n"; - $SIG{CHLD} = (); + #print "cmd: $cmd\n"; + $SIG{CHLD} = 'DEFAULT'; $res = xCAT::Utils->runcmd($cmd, -1); #$res = "good"; $Rc = $::RUNCMD_RC;