Fix a bunch of warnings

https://www.virtualmin.com/node/18946
This commit is contained in:
Jamie Cameron
2011-07-25 13:50:30 -07:00
parent 69f1bb1906
commit 57565271c3
2 changed files with 13 additions and 9 deletions

View File

@ -14,7 +14,7 @@ $backup || die "Failed to find backup $ARGV[0]";
# Run the pre-backup command, if any
my $err;
my $premsg;
my $premsg = "";
if ($backup->{'pre'} =~ /\S/) {
my $preout = &backquote_command("($backup->{'pre'}) 2>&1 </dev/null");
$premsg = &text('email_pre', $backup->{'pre'})."\n".
@ -34,7 +34,7 @@ if (!$err) {
}
# Run the post-backup command, if any
my $postmsg;
my $postmsg = "";
if (!$err && $backup->{'post'} =~ /\S/) {
my $postout = &backquote_command("($backup->{'post'}) 2>&1 </dev/null");
$postmsg = "\n".
@ -52,10 +52,10 @@ if (($err || $backup->{'emode'} == 0) && $backup->{'email'}) {
my $host = &get_system_hostname();
my $nice = &nice_dest($backup->{'dest'}, 1);
$nice =~ s/<[^>]+>//g;
$err =~ s/<[^>]+>//g;
my $msg;
my $subject;
if ($err) {
$err =~ s/<[^>]+>//g;
$msg = $premsg.
$text{'email_mods'}."\n".
$mlist.