X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_sendEmail;h=cea4161e8adca1737e1402eb2ebd6f6377f9e2e3;hp=6a07aac262eb945b796687415031b503862582d2;hb=3d15da9b2c6de8018c02677549678d6d769234b5;hpb=82ffaa1c4130a34812fb241c2ea5cd3d0608bdab diff --git a/bin/BackupPC_sendEmail b/bin/BackupPC_sendEmail index 6a07aac..cea4161 100755 --- a/bin/BackupPC_sendEmail +++ b/bin/BackupPC_sendEmail @@ -31,7 +31,7 @@ # #======================================================================== # -# Version 3.1.0beta0, released 3 Sep 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); }