diff options
| -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���y��z�{�� <in2\@ptt2.csie.ntu.edu.tw>"}; + from => "$hostname���y��z�{�� <$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 => "�L�k�H�X���y��z", + msg => + "�˷R���ϥΪ̱z�n\n\n". + "�A�����y��z�O���L�k�H�F���w��m $mailto \n\n". + "$hostname�����s �q�W ".POSIX::ctime(time())}); unlink $arg->{tartarget} if( $arg->{tartarget} ); - return 0; + return 1; } |