From b3253a59ecb370af5de3d8290971627d792e1ebb Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Sat, 20 Jul 2002 08:36:26 +0000
Subject: error return

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@422 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/waterball.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/util/waterball.pl b/util/waterball.pl
index 7f49d3c5..63443027 100644
--- a/util/waterball.pl
+++ b/util/waterball.pl
@@ -127,7 +127,7 @@ sub MakeMail
     `$TAR zcf $arg->{tartarget} $arg->{tarsource}`
 	if( $arg->{tarsource} );
     $sender = new Mail::Sender{smtp => $SMTPSERVER,
-			       from => "$hostname水球整理程式 <in2\@ptt2.csie.ntu.edu.tw>"};
+			       from => "$hostname水球整理程式 <$userid.bbs\@ptt2.csie.ntu.edu.tw>"};
     foreach( 0..3 ){
 	if( (!$arg->{tartarget} &&
 	     $sender->MailMsg({to      => $arg->{mailto},
@@ -143,7 +143,12 @@ sub MakeMail
 		return 1;
 	    }
     }
-    print "fault\n";
+    $sender->MailMsg({to      => "$userid.bbs\@localhost",
+		      subject => "無法寄出水球整理",
+		      msg     =>
+			  "親愛的使用者您好\n\n".
+			  "你的水球整理記錄無法寄達指定位置 $mailto \n\n".
+			  "$hostname站長群 敬上 ".POSIX::ctime(time())});
     unlink $arg->{tartarget} if( $arg->{tartarget} );
-    return 0;
+    return 1;
 }
-- 
cgit v1.2.3