www
/
www
8
0
Fork 0
Code Issues Pull Requests 1 Projects Releases Wiki Activity

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

pirater
This commit is contained in:
Holden Karau 2006-05-07 19:41:50 +00:00
parent 9be7e7e956
commit efe11a6c76
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
events/fixme.pl Executable file
View File

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