This script is a hack job to fix the stupid encoding of stuff. I'm a sexy
authorHolden Karau <hkarau@csclub.uwaterloo.ca>
Sun, 7 May 2006 19:41:50 +0000 (19:41 +0000)
committerHolden Karau <hkarau@csclub.uwaterloo.ca>
Sun, 7 May 2006 19:41:50 +0000 (19:41 +0000)
    pirater

events/fixme.pl [new file with mode: 0755]

diff --git a/events/fixme.pl b/events/fixme.pl
new file mode 100755 (executable)
index 0000000..cfe7a29
--- /dev/null
@@ -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);