From 4ff9eeb4783e5de21c93be3131122a6e2aa4ebff Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Wed, 19 Feb 2003 15:26:15 +0000
Subject: add charset, encoding, and ctype by rafan

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@666 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/tarqueue.pl | 11 +++++++----
 1 file 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};
 }
-- 
cgit v1.2.3