From 57466b8f89286e89177b52fc95f51a4d2ae3b603 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 18 Sep 2009 19:53:48 +0000
Subject: [PATCH] -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
---
 perl-xCAT/xCAT/SPD.pm                    | 4 ++--
 xCAT-server/lib/xcat/plugins/anaconda.pm | 4 ++--
 xCAT-server/lib/xcat/plugins/esx.pm      | 6 +++---
 xCAT-server/lib/xcat/plugins/ipmi.pm     | 6 +++---
 xCAT-server/lib/xcat/plugins/sles.pm     | 4 ++--
 5 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/perl-xCAT/xCAT/SPD.pm b/perl-xCAT/xCAT/SPD.pm
index 013f75574..5ecb1d353 100644
--- a/perl-xCAT/xCAT/SPD.pm
+++ b/perl-xCAT/xCAT/SPD.pm
@@ -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;
diff --git a/xCAT-server/lib/xcat/plugins/anaconda.pm b/xCAT-server/lib/xcat/plugins/anaconda.pm
index efa44d50e..8345c5f6f 100644
--- a/xCAT-server/lib/xcat/plugins/anaconda.pm
+++ b/xCAT-server/lib/xcat/plugins/anaconda.pm
@@ -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};
diff --git a/xCAT-server/lib/xcat/plugins/esx.pm b/xCAT-server/lib/xcat/plugins/esx.pm
index bf0788216..7f97518e3 100644
--- a/xCAT-server/lib/xcat/plugins/esx.pm
+++ b/xCAT-server/lib/xcat/plugins/esx.pm
@@ -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,
diff --git a/xCAT-server/lib/xcat/plugins/ipmi.pm b/xCAT-server/lib/xcat/plugins/ipmi.pm
index e4c7285fd..4878ba220 100644
--- a/xCAT-server/lib/xcat/plugins/ipmi.pm
+++ b/xCAT-server/lib/xcat/plugins/ipmi.pm
@@ -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);
         }
     }
 
diff --git a/xCAT-server/lib/xcat/plugins/sles.pm b/xCAT-server/lib/xcat/plugins/sles.pm
index b3df291f1..bdd094fb7 100644
--- a/xCAT-server/lib/xcat/plugins/sles.pm
+++ b/xCAT-server/lib/xcat/plugins/sles.pm
@@ -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};