diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-02-19 23:26:15 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-02-19 23:26:15 +0800 |
| commit | 664ec975991a10baab3e5b9087a5401eac944b7d (patch) | |
| tree | ae8d08f0b12302c008b132db6d4b58a02fa3c2e1 | |
| parent | dcace34b32f85250e047230b687d384465e5db0b (diff) | |
| download | pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.tar pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.tar.gz pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.tar.bz2 pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.tar.lz pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.tar.xz pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.tar.zst pttbbs-664ec975991a10baab3e5b9087a5401eac944b7d.zip | |
add charset, encoding, and ctype by rafan
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@666 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttbbs/util/tarqueue.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/pttbbs/util/tarqueue.pl b/pttbbs/util/tarqueue.pl index f3463f30..d99221a8 100644 --- a/pttbbs/util/tarqueue.pl +++ b/pttbbs/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}; } |