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