X-Git-Url: http://git.ieval.ro/?p=filters.git;a=blobdiff_plain;f=eleet;h=9e0fb77c705f10d63bce582cc8ca456109fad06a;hp=017d9eba6bd4b0054c298a39c37ccbebd7317de0;hb=HEAD;hpb=7e3afbbacdd24f8c3fb87599eeda32b977fe6d6c

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;