This script is a hack job to fix the stupid encoding of stuff. I'm a sexy

pirater
2006-05-07 19:41:50 +00:00 · 2006-05-07 19:41:50 +00:00 · efe11a6c76
parent 9be7e7e956
commit efe11a6c76
1 changed files with 14 additions and 0 deletions
--- a/events/fixme.pl
+++ b/events/fixme.pl
@ -0,0 +1,14 @@
+#!/usr/bin/perl
+open (IN , "ls -1|");
+while (<IN>) {
+chomp ($_);
+#print $_;
+$a = $_;
+if ($_ =~ /\%3A/) {
+$_ =~ s/\%3A/\:/;
+`ln -s $a $_`; 
+print "ln -s $a $_\n";
+}
+#print "\n";
+}
+close (IN);