linux/store/fix-docdirs.pl

   1 #!/store/bin/perl5 -w
   2 #
   3 # Author: Petter Reinholdtsen <pere@td.org.uit.no>
   4 # Date:   1999-03-09
   5 #
   6 # Change Store version directories.  Move <app>/ver-<version>/doc/<app>/ to
   7 # <app>/ver-<version>/doc/<app>-<version>/.
   8
   9 for $dir (<*/ver-*/doc/*>) {
  10         my ($app, $ver, $docdir) =
  11                 $dir =~ m%^([^/]+)/ver-([^/]+)/doc/(.+)%;
  12
  13         next if $docdir eq "$app-$ver";
  14
  15         if ($docdir eq $app) {
  16                 rename($dir, "$app/ver-$ver/doc/$app-$ver");
  17                 next;
  18         }
  19         print " bogus docdir $dir\n";
  20 }