hush debug output without DEBUG=1

diff --git a/lib/H1/ZTEDSLAM.pm b/lib/H1/ZTEDSLAM.pm
index 3a3c788..6308a5c 100755 (executable)
--- a/lib/H1/ZTEDSLAM.pm
+++ b/lib/H1/ZTEDSLAM.pm
@@ -59,21 +59,21 @@ sub command {
                $t->print('');
        }
 
-       warn "## out = [$out]";
+       warn "## out = [$out]" if $ENV{DEBUG};
 
        my $hash;
        foreach my $line ( split(/[\n\r]+/, $out) ) {
-               warn "# $line\n";
+               warn "# $line\n" if $ENV{DEBUG};
                if ( $line =~ m/^(\S+.*?)\s+:\s+(\S+.*)$/ ) {
                        my ($n,$v) = ($1,$2);
                        $n =~ s/\(.+\)//;
                        $hash->{$n} = $v;
-                       warn "## $n = $v\n";
+                       warn "## $n = $v\n" if $ENV{DEBUG};
                }
 
        }
 
-       warn dump $hash;
+       warn "## $ip $command ",dump $hash;
 
        return $hash;
 }
@@ -82,7 +82,7 @@ our ( $row, $hash );
 
 sub copy {
        foreach my $name (@_) {
-               warn "# copy $name ", dump( $row ),$/;
+#              warn "# copy $name ", dump( $row ),$/;
                $row->{$name} = $hash->{$name};
        }
 }