From 5dee79db0de04ee9601edbed8369145c049662fa Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Sat, 5 Oct 2002 05:23:01 +0000
Subject: fix host bug

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@535 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/waterball.pl | 6 +++---
 1 file 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".
-- 
cgit v1.2.3