X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_sendEmail;h=cea4161e8adca1737e1402eb2ebd6f6377f9e2e3;hp=390093adf8aa20a0a954c5c4b1abd1f8634cbe5a;hb=3d15da9b2c6de8018c02677549678d6d769234b5;hpb=fda25dc88a63ccac1c80efa2e4994bf0725ca9b7 diff --git a/bin/BackupPC_sendEmail b/bin/BackupPC_sendEmail index 390093a..cea4161 100755 --- a/bin/BackupPC_sendEmail +++ b/bin/BackupPC_sendEmail @@ -31,7 +31,7 @@ # #======================================================================== # -# Version 3.1.0, released 25 Nov 2007. +# Version 3.2.0, released 31 Dec 2008. # # See http://backuppc.sourceforge.net. # @@ -42,6 +42,7 @@ no utf8; use lib "/usr/local/BackupPC/lib"; use BackupPC::Lib; use BackupPC::FileZIO; +use Encode; use Data::Dumper; use Getopt::Std; @@ -363,6 +364,8 @@ sub user2name sub sendUserEmail { my($user, $host, $mesg, $subj, $vars) = @_; + return if ( $Conf{BackupsDisable} ); + $vars->{user} = $user; $vars->{host} = $host; $vars->{headers} = $Conf{EMailHeaders}; @@ -370,7 +373,7 @@ sub sendUserEmail $vars->{domain} = $Conf{EMailUserDestDomain}; $vars->{CgiURL} = $Conf{CgiURL}; $subj =~ s/\$(\w+)/defined($vars->{$1}) ? $vars->{$1} : "\$$1"/eg; - $vars->{subj} = $subj; + $vars->{subj} = encode('MIME-Header', $subj); $mesg =~ s/\$(\w+)/defined($vars->{$1}) ? $vars->{$1} : "\$$1"/eg; SendMail($mesg); $UserEmailInfo{$user}{lastTime} = time; @@ -388,6 +391,7 @@ sub SendMail if ( $opts{t} ) { binmode(STDOUT, ":utf8") if ( $utf8 ); + print("#" x 75, "\n"); print $mesg; return; @@ -399,13 +403,7 @@ sub SendMail printf("Can't run sendmail ($Conf{SendmailPath}): $!\n"); return; } - if ( $utf8 ) { - binmode(MAIL, ":utf8"); - if ($mesg =~ /^Subject: (.*)$/m) { - my $new_subj = encode('MIME-Header', $1); - $mesg =~ s/^Subject: .*$/Subject: $new_subj/m; - } - } + binmode(MAIL, ":utf8") if ( $utf8 ); print MAIL $mesg; close(MAIL); }