summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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},