new filtermail

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@2160 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 23 insertions, 0 deletions

diff --git a/sample/FILTERMAIL.pm b/sample/FILTERMAIL.pm
new file mode 100644
index 00000000..2b71a917
--- /dev/null
+++ b/sample/FILTERMAIL.pm
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+# $Id$
+# 本範例僅供參考, 配合 util/filtermail.pl 使用.
+# 請依自行需要改寫後放置於 /home/bbs/bin 下.
+# checkheader() 或 checkbody()  傳回為假時表示直接丟掉該封信.
+package FILTERMAIL;
+
+sub checkheader
+{
+    return 0
+	if( $_[0] =~ /^Subject: .*行銷光碟/im ||
+	    $_[0] =~ /^From: .*SpamCompany\.com/im );
+    1;
+}
+
+sub checkbody
+{
+    return 0
+	if( $_[0] =~ /<script language=\"JavaScript\"/im );
+    1;
+}
+
+1;