diff options
| -rw-r--r-- | util/tarqueue.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/util/tarqueue.pl b/util/tarqueue.pl index f3463f30..d99221a8 100644 --- a/util/tarqueue.pl +++ b/util/tarqueue.pl @@ -67,9 +67,12 @@ sub MakeMail `$TAR zcf $arg->{tartarget} $arg->{tarsource}`; $sender = new Mail::Sender{smtp => $SMTPSERVER, from => 'pttadmin <in2@ptt2.csie.ntu.edu.tw>'}; - $sender->MailFile({to => $arg->{mailto}, - subject => $arg->{subject}, - msg => $arg->{body}, - file => $arg->{tartarget}}); + $sender->MailFile({to => $arg->{mailto}, + subject => $arg->{subject}, + msg => $arg->{body}, + file => $arg->{tartarget}, + b_charset => 'big5', + b_encoding => '8bit', + ctype => 'application/x-tar-gz'}); unlink $arg->{tartarget}; } |