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

Added fixme.pl

This commit is contained in:
Holden Karau 2006-06-22 01:54:33 +00:00
parent 94d068ed72
commit d64b6c146d
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
media/fixme.pl Executable file
View File

@ -0,0 +1,15 @@
#!/usr/bin/perl
open (IN , "ls -1|");
while (<IN>) {
chomp ($_);
#print $_;
$a = $_;
$_ =~ s/\%20/\\ /g;
if ($_ =~ /\%3A/) {
$_ =~ s/\%3A/\:/;
`ln -s $a $_`;
print "ln -s $a $_\n";
}
#print "\n";
}
close (IN);