-Remove some data dump debug statements

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4170 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2009-09-18 19:53:48 +00:00
parent 3bf6c124cc
commit 57466b8f89
5 changed files with 12 additions and 12 deletions

View File

@ -1,7 +1,7 @@
package xCAT::SPD;
#This module provides the ability to decode DIMM SPD data to human readable format
use strict;
use Data::Dumper;
#use Data::Dumper;
require Exporter;
our @ISA=qw/Exporter/;
our @EXPORT_OK=qw/decode_spd/;
@ -675,7 +675,7 @@ sub decode_spd {
my @spd = @_;
my $rethash;
print Dumper(@spd);
#print Dumper(@spd);
if (($spd[0] & 0xf) > 3) { #TODO: Remove workaround for buggy SPD
$rethash->{product}->{extra}=[{value=>'Malformed SPD (missing leading byte)',encoding=>3}];
unshift @spd,3;

View File

@ -12,7 +12,7 @@ use POSIX qw(WNOHANG nice);
use xCAT::Table;
use xCAT::Utils;
use xCAT::MsgUtils;
use Data::Dumper;
#use Data::Dumper;
use Getopt::Long;
Getopt::Long::Configure("bundling");
Getopt::Long::Configure("pass_through");
@ -670,7 +670,7 @@ sub copycd
if ($sitetab)
{
(my $ref) = $sitetab->getAttribs({key => installdir}, value);
print Dumper($ref);
#print Dumper($ref);
if ($ref and $ref->{value})
{
$installroot = $ref->{value};

View File

@ -16,7 +16,7 @@ use File::Path;
use File::Temp qw/tempdir/;
use File::Copy;
use IO::Socket; #Need name resolution
use Data::Dumper;
#use Data::Dumper;
Getopt::Long::Configure("bundling");
Getopt::Long::Configure("pass_through");
my @cpiopid;
@ -634,7 +634,7 @@ sub retry_rmvm {
my $node = $args->{node};
my $state = $task->info->state->val;
if ($state eq "success") {
$Data::Dumper::Maxdepth=2;
#$Data::Dumper::Maxdepth=2;
delete $args->{args}->{vmview};
rmvm(%{$args->{args}});
} elsif ($state eq 'error') {
@ -1168,7 +1168,7 @@ sub create_nic_devs {
s/.*://;
s/=.*//;
my $netname = $_;
print Dumper($netmap);
#print Dumper($netmap);
my $backing = VirtualEthernetCardNetworkBackingInfo->new(
network => $netmap->{$pgname},
deviceName=>$pgname,

View File

@ -50,7 +50,7 @@ sub handled_commands {
}
use Data::Dumper;
#use Data::Dumper;
use POSIX "WNOHANG";
use IO::Handle;
use IO::Socket;
@ -3358,7 +3358,7 @@ sub eventlog {
\@auxlogcmd,
\@auxdata);
@auxdata=splice @auxdata,36-$authoffset;
print Dumper(\@auxdata);
#print Dumper(\@auxdata);
unless ($error or $auxdata[0] or $auxdata[5] != 0x4d or $auxdata[6] != 0x4f or $auxdata[7] !=0x0 ) { #Don't bother if support cannot be confirmed by service processor
$netfn=0x2e<<2; #switch netfunctions to read
my $numauxlogs = $auxdata[8]+($auxdata[9]<<8);
@ -3386,7 +3386,7 @@ sub eventlog {
}
}
}
print Dumper(\%auxloginfo);
#print Dumper(\%auxloginfo);
}
}

View File

@ -12,7 +12,7 @@ use xCAT::Table;
use xCAT::Utils;
use xCAT::SvrUtils;
use xCAT::MsgUtils;
use Data::Dumper;
#use Data::Dumper;
use Getopt::Long;
Getopt::Long::Configure("bundling");
Getopt::Long::Configure("pass_through");
@ -522,7 +522,7 @@ sub copycd
if ($sitetab)
{
(my $ref) = $sitetab->getAttribs({key => installdir}, value);
print Dumper($ref);
#print Dumper($ref);
if ($ref and $ref->{value})
{
$installroot = $ref->{value};