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 | 4ff9eeb4783e5de21c93be3131122a6e2aa4ebff (patch) | |
| tree | 6bb6c3cefe5717fd22e4d5509af180563d1a84ba /util/tarqueue.pl | |
| parent | 4e7f84260166aee83385638b7165319568863c78 (diff) | |
| download | pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.tar pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.tar.gz pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.tar.bz2 pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.tar.lz pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.tar.xz pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.tar.zst pttbbs-4ff9eeb4783e5de21c93be3131122a6e2aa4ebff.zip | |
add charset, encoding, and ctype by rafan
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@666 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/tarqueue.pl')
| -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}; } |