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

pirater
news-update
Holden Karau 17 years ago
parent 9be7e7e956
commit efe11a6c76
  1. 14
      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);
Loading…
Cancel
Save