only print debugging output if $DEBUG is on

diff --git a/sshsendmail b/sshsendmail
index c9c4530ba0733e06e635da8db8a27182ca1fa45a..62565968d906f39a1da632431e5ba15bced43a8a 100755 (executable)
--- a/sshsendmail
+++ b/sshsendmail
@@ -135,7 +135,7 @@ push @sendmail_options,
 push @sendmail_options,@recipients;
 $Data::Dumper::Useqq=1;
 my $sendmail_options = Data::Dumper->Dump([\@sendmail_options],[qw(*sendmail_options)]);
 push @sendmail_options,@recipients;
 $Data::Dumper::Useqq=1;
 my $sendmail_options = Data::Dumper->Dump([\@sendmail_options],[qw(*sendmail_options)]);

-print STDERR $sendmail_options;
+print STDERR $sendmail_options if $DEBUG;

 push @ssh_arguments, q(perl -e ').<<EOF .q(');
 use Digest::MD5 qw(md5_hex);
 use IO::Handle;
 push @ssh_arguments, q(perl -e ').<<EOF .q(');
 use Digest::MD5 qw(md5_hex);
 use IO::Handle;


@@ -162,14 +162,14 @@ if (\$digest eq md5_hex(\$message)) {
 EOF
 
 $Data::Dumper::Useqq=0;
 EOF
 
 $Data::Dumper::Useqq=0;

-print STDERR Dumper(\@ssh_arguments);
+print STDERR Dumper(\@ssh_arguments) if $DEBUG;

 
 qx(ping -q -w 3 -c 1 $hostname 2>/dev/null);
 if ($?) {
     syslog(LOG_WARNING,"${0}: Failed: unable to ping $hostname\n");
     exit (9);
 }
 
 qx(ping -q -w 3 -c 1 $hostname 2>/dev/null);
 if ($?) {
     syslog(LOG_WARNING,"${0}: Failed: unable to ping $hostname\n");
     exit (9);
 }

-print STDERR md5_hex(join('',@message))."\n";
+print STDERR md5_hex(join('',@message))."\n" if $DEBUG;

 my $ssh = new IO::Handle;
 open($ssh,'|-','ssh',@ssh_arguments) or exit(17);
 print {$ssh} @message or exit(17);
 my $ssh = new IO::Handle;
 open($ssh,'|-','ssh',@ssh_arguments) or exit(17);
 print {$ssh} @message or exit(17);