* Added a censor filter.

   * Added a spammer filter which generates spamassassin-triggering
     pseudo-spam from input.
   * Updated eleet filter (which should perhaps be renamed to just 'leet')
     to the <ahem> standards of irc circa mid 2002.
   * Make jibberish filter only run text through 3 to 8 of the other filters.
   * Various improvements.

1 files changed, 15 insertions, 9 deletions

diff --git a/eleet b/eleet
index 017d9eb..9e0fb77 100755
--- a/eleet
+++ b/eleet
@@ -1,13 +1,19 @@
 #!/usr/bin/perl -p
-# Eleet filter, Copyright 1999 by Joey Hess under the terms of the GNU GPL.
+# Eleet filter, Copyright 1999,2002 by Joey Hess under the terms of the GNU GPL.
 BEGIN {
-	$transstring="4bcd3fgh1jklmn0pqr5+uvwxyz";
-	$t="tr/a-zA-Z/$transstring".uc($transstring)."/";
+	#             abcdefghijklmnopqrstuvwxyz
+	$transstring="4bcd3fgh1jklmn0pqr5tuvwxyz";
+	$t="tr/a-zA-Z/$transstring$transstring/";
 }
+s/porn/pr0n/g;
+s/elite/l33t/g;
 eval $t;
-s:h:|-|:ig;
-s:l:|_:ig;
-s:m:/\\/\\:ig;
-s:n:/\\/:ig;
-s:v:\\/:ig;
-s:x:><:ig;
+
+# These are not in common usage anymore.
+#s:h:|-|:ig;
+#s:l:|_:ig;
+#s:m:/\\/\\:ig;
+#s:n:/\\/:ig;
+#s:w:\\/\\/:ig;
+#s:v:\\/:ig;
+#s:x:><:ig;