summaryrefslogtreecommitdiffstats
path: root/util
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-11-17 13:06:20 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-11-17 13:06:20 +0800
commit58ca11c55d6b69290e8141ce16f3863b53b144ad (patch)
tree1b617a08348ec626ab833c45753b833f5669634b /util
parenteaa868e5c10158c2d8ca7fb623b9f522e495a829 (diff)
downloadpttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.tar
pttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.tar.gz
pttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.tar.bz2
pttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.tar.lz
pttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.tar.xz
pttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.tar.zst
pttbbs-58ca11c55d6b69290e8141ce16f3863b53b144ad.zip
some comment in mail body
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@576 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util')
-rw-r--r--util/waterball.pl14
1 files changed, 11 insertions, 3 deletions
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;
}