summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-07-20 16:36:26 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-07-20 16:36:26 +0800
commitb3253a59ecb370af5de3d8290971627d792e1ebb (patch)
treef44602afd684632a23ceced6448e61b91c6ce58a
parente07ba00e65e44dfc50b86fc2ead8f9f06fae6ff9 (diff)
downloadpttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.tar
pttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.tar.gz
pttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.tar.bz2
pttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.tar.lz
pttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.tar.xz
pttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.tar.zst
pttbbs-b3253a59ecb370af5de3d8290971627d792e1ebb.zip
error return
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@422 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r--util/waterball.pl11
1 files 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;
}