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;
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);
}
-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);