diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-07-20 16:36:26 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-07-20 16:36:26 +0800 |
| commit | b3253a59ecb370af5de3d8290971627d792e1ebb (patch) | |
| tree | f44602afd684632a23ceced6448e61b91c6ce58a /util | |
| parent | e07ba00e65e44dfc50b86fc2ead8f9f06fae6ff9 (diff) | |
| download | pttbbs-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
Diffstat (limited to 'util')
| -rw-r--r-- | util/waterball.pl | 11 |
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; } |