From 58ca11c55d6b69290e8141ce16f3863b53b144ad Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Sun, 17 Nov 2002 05:06:20 +0000
Subject: some comment in mail body

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

(limited to 'util')

diff --git a/util/waterball.pl b/util/waterball.pl
index 2cfa2a61..05d59999 100644
--- a/util/waterball.pl
+++ b/util/waterball.pl
@@ -44,13 +44,21 @@ foreach $fndes ( <$JOBSPOOL/water.des.*> ){ #des: userid, mailto, outmode
 	    unlink $fndes;
 	}
 	else{
+	    my $body = 
+		"親愛的使用者您好:\n\n".
+		"歡迎您使用 Ptt系列的水球整理功能 ^_^\n".
+		"水球整理的結果被壓縮好附加在本信中\n".
+		"您須要先將其解壓縮 (如用 tar+gunzip, winzip 等程式)\n".
+		"解出來的檔案為純文字格式, \n".
+		"您可以透過任何純文字編輯程式 (如 emacs, notepad, word)\n".
+		"打開它進行編輯整理\n\n".
+		"再次感謝您使用本系統以及對 $hostname 的支持 ^^\n".
+		"\n $hostname 站長群 ". POSIX::ctime(time());
 	    if( MakeMail({tartarget => "$TMP/$userid.waterball.tgz",
 			  tarsource => "*",
 			  mailto    => "$userid <$mailto>",
 			  subject   => "水球紀錄",
-			  body      => 
-			      "\n $hostname 站長群 ". POSIX::ctime(time())}
-			 ) ){
+			  body      => $body}) ){
 		unlink $fnsrc;
 		unlink $fndes;
 	    }
-- 
cgit v1.2.3