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

pirater

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);