summaryrefslogtreecommitdiffstats
path: root/util
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-11-13 20:20:10 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-11-13 20:20:10 +0800
commit505cb0c31b99c3e893262d5babe6755bb4bfd9ee (patch)
treeb0907c7b33a3bdc90744430e7972aed2aded5271 /util
parent793901cdf98abe5732a21ff37e41bfdb199b2ca1 (diff)
downloadpttbbs-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')
-rw-r--r--util/tarqueue.pl5
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},