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 | 505cb0c31b99c3e893262d5babe6755bb4bfd9ee (patch) | |
| tree | b0907c7b33a3bdc90744430e7972aed2aded5271 /util/tarqueue.pl | |
| parent | 793901cdf98abe5732a21ff37e41bfdb199b2ca1 (diff) | |
| download | pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.tar pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.tar.gz pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.tar.bz2 pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.tar.lz pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.tar.xz pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.tar.zst pttbbs-505cb0c31b99c3e893262d5babe6755bb4bfd9ee.zip | |
fix from address
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1327 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/tarqueue.pl')
| -rw-r--r-- | util/tarqueue.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/util/tarqueue.pl b/util/tarqueue.pl index 0edf5bc0..292fa32f 100644 --- a/util/tarqueue.pl +++ b/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}, |