summaryrefslogtreecommitdiffstats
path: root/util/tarqueue.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-02-19 23:26:15 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-02-19 23:26:15 +0800
commit4ff9eeb4783e5de21c93be3131122a6e2aa4ebff (patch)
tree6bb6c3cefe5717fd22e4d5509af180563d1a84ba /util/tarqueue.pl
parent4e7f84260166aee83385638b7165319568863c78 (diff)
downloadpttbbs-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.pl11
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};
}