diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-11-13 20:20:10 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-11-13 20:20:10 +0800 |
commit | 15da8848c41b000bd91e65a9850da20679b466b6 (patch) | |
tree | b6f6dbbd65ba4c941d6d845706bbff286fe29881 | |
parent | 40eaef1058972c8e8b26493aec0888ade3e7c25a (diff) | |
download | pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.tar pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.tar.gz pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.tar.bz2 pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.tar.lz pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.tar.xz pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.tar.zst pttbbs-15da8848c41b000bd91e65a9850da20679b466b6.zip |
fix from address
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@1327 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r-- | pttbbs/util/tarqueue.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pttbbs/util/tarqueue.pl b/pttbbs/util/tarqueue.pl index 0edf5bc0..292fa32f 100644 --- a/pttbbs/util/tarqueue.pl +++ b/pttbbs/util/tarqueue.pl @@ -1,4 +1,5 @@ #!/usr/bin/perl +# $Id$ use lib '/home/bbs/bin/'; use LocalVars; use strict; @@ -38,6 +39,7 @@ sub ProcessBoard tarsource => "boards/". substr($board, 0, 1). "/$board", mailto => "$board的板主$owner <$email>", subject => "$board的看板備份", + from => "$board的板主$owner <$owner.bbs\@$MYHOSTNAME>", body => "\n\n\t $owner 您好,收到這封信,表示您已經收到看板備份。\n\n". "\t謝謝您的耐心等待,以及使用 $hostname的看板備份系統,\n\n". @@ -50,6 +52,7 @@ sub ProcessBoard tarsource => "man/boards/". substr($board, 0, 1). "/$board", mailto => "$board的板主$owner <$email>", subject => "$board的精華區備份", + from => "$board的板主$owner <$owner.bbs\@$MYHOSTNAME>", body => "\n\n\t $owner 您好,收到這封信,表示您已經收到精華區備份。\n\n". "\t謝謝您的耐心等待,以及使用 $hostname的看板備份系統,\n\n". @@ -66,7 +69,7 @@ sub MakeMail my $sender; `$TAR zcf $arg->{tartarget} $arg->{tarsource}`; $sender = new Mail::Sender{smtp => $SMTPSERVER, - from => 'pttadmin <in2@ptt2.csie.ntu.edu.tw>'}; + from => $arg->{from}}; $sender->MailFile({to => $arg->{mailto}, subject => $arg->{subject}, msg => $arg->{body}, |