Also close bug

[filters.git] / eleet

diff --git a/eleet b/eleet
index 017d9eba6bd4b0054c298a39c37ccbebd7317de0..9e0fb77c705f10d63bce582cc8ca456109fad06a 100755 (executable)
--- 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;