diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-10-05 13:23:01 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-10-05 13:23:01 +0800 |
| commit | f0cd184927f455a8c5b44a81dcbb5069adac2fec (patch) | |
| tree | 973d96456d4764f7a77bef47e2133080e20cf202 | |
| parent | 4f2ef40eefa072364b27e9f71a330d9505200e64 (diff) | |
| download | pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.tar pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.tar.gz pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.tar.bz2 pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.tar.lz pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.tar.xz pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.tar.zst pttbbs-f0cd184927f455a8c5b44a81dcbb5069adac2fec.zip | |
fix host bug
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@535 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttbbs/util/waterball.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pttbbs/util/waterball.pl b/pttbbs/util/waterball.pl index 63443027..2cfa2a61 100644 --- a/pttbbs/util/waterball.pl +++ b/pttbbs/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". |