nav 1
[www/www.git] / events / fixme.pl
1 #!/usr/bin/perl
2 open (IN , "ls -1|");
3 while (<IN>) {
4 chomp ($_);
5 #print $_;
6 $a = $_;
7 if ($_ =~ /\%3A/) {
8 $_ =~ s/\%3A/\:/;
9 `ln -s $a $_`; 
10 print "ln -s $a $_\n";
11 }
12 #print "\n";
13 }
14 close (IN);