[filters.git] / eleet

#!/usr/bin/perl -p
# Eleet filter, Copyright 1999 by Joey Hess under the terms of the GNU GPL.
BEGIN {
	$transstring="4bcd3fgh1jklmn0pqr5+uvwxyz";
	$t="tr/a-zA-Z/$transstring".uc($transstring)."/";
}
eval $t;
s:h:|-|:ig;
s:l:|_:ig;
s:m:/\\/\\:ig;
s:n:/\\/:ig;
s:v:\\/:ig;
s:x:><:ig;
Commit	Line	Data
7e3afbba	1	#!/usr/bin/perl -p
	2	# Eleet filter, Copyright 1999 by Joey Hess under the terms of the GNU GPL.
	3	BEGIN {
	4	$transstring="4bcd3fgh1jklmn0pqr5+uvwxyz";
	5	$t="tr/a-zA-Z/$transstring".uc($transstring)."/";
	6	}
	7	eval $t;
	8	s:h:\|-\|:ig;
	9	s:l:\|_:ig;
	10	s:m:/\\/\\:ig;
	11	s:n:/\\/:ig;
	12	s:v:\\/:ig;
	13	s:x:><:ig;