summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2080278)
git-svn-id: svn+ssh://svn.mit.edu/athena/trunk/debathena/debathena/config-package-dev@24647
728af825-273c-0410-89f9-
f7d3b574a069
--- /dev/null
+#!/usr/bin/perl
+$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
+print $ARGV[0];
+sub unparse {
+ $_ = $_[0];
+ return "/" unless $_;
+ return "_" if $_ eq "-";
+ return uc($_) if /^[a-z]$/;
+ s/^x//;
+ return chr hex $_;
+}