summaryrefslogtreecommitdiffstats
path: root/util/waterball.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-10-05 13:23:01 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-10-05 13:23:01 +0800
commit5dee79db0de04ee9601edbed8369145c049662fa (patch)
tree3892ecb017495f8d1990f0bd6a6198014cb01bc9 /util/waterball.pl
parentf01b76e5992a80dbe29e02448596b0834d2a3cb1 (diff)
downloadpttbbs-5dee79db0de04ee9601edbed8369145c049662fa.tar
pttbbs-5dee79db0de04ee9601edbed8369145c049662fa.tar.gz
pttbbs-5dee79db0de04ee9601edbed8369145c049662fa.tar.bz2
pttbbs-5dee79db0de04ee9601edbed8369145c049662fa.tar.lz
pttbbs-5dee79db0de04ee9601edbed8369145c049662fa.tar.xz
pttbbs-5dee79db0de04ee9601edbed8369145c049662fa.tar.zst
pttbbs-5dee79db0de04ee9601edbed8369145c049662fa.zip
fix host bug
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@535 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/waterball.pl')
-rw-r--r--util/waterball.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/util/waterball.pl b/util/waterball.pl
index 63443027..2cfa2a61 100644
--- a/util/waterball.pl
+++ b/util/waterball.pl
@@ -49,7 +49,7 @@ foreach $fndes ( <$JOBSPOOL/water.des.*> ){ #des: userid, mailto, outmode
mailto => "$userid <$mailto>",
subject => "水球紀錄",
body =>
- "\n ptt2 站長群 ". POSIX::ctime(time())}
+ "\n $hostname 站長群 ". POSIX::ctime(time())}
) ){
unlink $fnsrc;
unlink $fndes;
@@ -127,7 +127,7 @@ sub MakeMail
`$TAR zcf $arg->{tartarget} $arg->{tarsource}`
if( $arg->{tarsource} );
$sender = new Mail::Sender{smtp => $SMTPSERVER,
- from => "$hostname水球整理程式 <$userid.bbs\@ptt2.csie.ntu.edu.tw>"};
+ from => "$hostname水球整理程式 <$userid.bbs\@$MYHOSTNAME>"};
foreach( 0..3 ){
if( (!$arg->{tartarget} &&
$sender->MailMsg({to => $arg->{mailto},
@@ -143,7 +143,7 @@ sub MakeMail
return 1;
}
}
- $sender->MailMsg({to => "$userid.bbs\@localhost",
+ $sender->MailMsg({to => "$userid.bbs\@$MYHOSTNAME",
subject => "無法寄出水球整理",
msg =>
"親愛的使用者您好\n\n".