Changeset 3081 for trunk/gsdl/bin/script/convert_toc_dir.pl

Timestamp:

2002-04-05T09:27:33+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/convert_toc_dir.pl (modified) (2 diffs)

trunk/gsdl/bin/script/convert_toc_dir.pl

@@ -3 +3 @@
 # run convert_toc.pl on any html files found in the directory passed in on
 # the command line (or any subdirs).
+
+die "\$GSDLOS not set !\n" if (!defined $ENV{GSDLOS});
+my ($move, $separator);
+if ($ENV{GSDLOS} eq "windows") {
+  $move = "move";
+  $separator = "\\";
+} else {
+  $move = "mv";
+  $separator = "/";
+}
 
 &recurse($ARGV[0]);
@@ -20 +30 @@
     foreach my $file (@files) {
     next if $file =~ /^\.\.?$/;
-    my $fullpath = "$dir/$file";
+    my $fullpath = "$dir$separator$file";
     if (-d $fullpath) {
         &recurse($fullpath);
     } elsif ($file =~ /\.html?$/i) {
         print STDERR "converting $fullpath\n";
-        `convert_toc.pl < $fullpath > $fullpath.new`;
-        `mv $fullpath.new $fullpath`;
+        `convert_toc.pl $fullpath $fullpath.new`;
+        `$move $fullpath.new $fullpath`;
     }
     }