make-lowercase

   1 #!/usr/bin/perl
   2 my $top=`pwd`; chomp $top;
   3
   4 sub vfat_rename($$) {
   5         my $from,$to;
   6         ($from,$to) = @_;
   7
   8         # uppercase DOS names with the vfat driver need some forceful convincing
   9         # to actually make them lowercase
  10         rename($from,"$to.xxx.xx");
  11         rename("$to.xxx.xx",$to);
  12 }
  13
  14 sub scan($) {
  15         my $old = `pwd`; chomp $old;
  16         my $cur = shift @_;
  17         my @x;
  18
  19         print "scanning $cur\n";
  20         chdir($cur) || die;
  21
  22         opendir(X,".") || return;
  23         while (my $name = readdir(X)) {
  24                 next unless -f $name;
  25                 my $n = lc($name);
  26                 next if $n eq $name;
  27                 print "$name\n";
  28                 rename($name,$n) || die;
  29                 vfat_rename($name,$n);
  30         }
  31         closedir(X);
  32
  33         opendir(X,".") || return;
  34         while (my $name = readdir(X)) {
  35                 next if $name =~ m/^\.+$/;
  36                 next if $name eq ".git";
  37                 next if $name eq ".GIT";
  38                 next unless -d $name;
  39                 my $n = lc($name);
  40                 next if $n eq $name;
  41                 print "$name\n";
  42                 rename($name,$n) || die;
  43                 vfat_rename($name,$n);
  44         }
  45         closedir(X);
  46
  47         opendir(X,".") || return;
  48         while (my $name = readdir(X)) {
  49                 next if $name =~ m/^\.+$/;
  50                 next if $name eq ".git";
  51                 next if $name eq ".GIT";
  52                 next unless -d $name;
  53                 push(@x,$name);
  54         }
  55         closedir(X);
  56         foreach my $name (@x) {
  57                 scan("$cur/$name");
  58         }
  59
  60         chdir($old) || die;
  61 }
  62
  63 scan($top);