source: trunk/debathena/debathena/config-package-dev/decode @ 24647

Revision 24647, 228 bytes checked in by tabbott, 15 years ago (diff)
Add the decode file itself to version control.
Line 
1#!/usr/bin/perl
2$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
3print $ARGV[0];
4sub unparse {
5    $_ = $_[0];
6    return "/" unless $_;
7    return "_" if $_ eq "-";
8    return uc($_) if /^[a-z]$/;
9    s/^x//;
10    return chr hex $_;
11}
Note: See TracBrowser for help on using the repository browser.