Changeset 35276

Timestamp:

Mar 8, 2013, 11:01:18 AM (13 years ago)

Author:

eugene

Message:

script to build dvo catdir index files

File:

• branches/eam_branches/ipp-20130307/dvodist/scripts/mkindex.dvo.pl (modified) (3 diffs)

branches/eam_branches/ipp-20130307/dvodist/scripts/mkindex.dvo.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
 
-if (@ARGV != 1) { die "USAGE: mkindex.dvo.pl (catdir)\n" ;}
+if (@ARGV != 2) { die "USAGE: mkindex.dvo.pl (catdir) (catdir_name)\n" ;}
 
 @nlist = ("n0000", "n0730", "n1500", "n2230", "n3000", "n3730", "n4500", "n5230", "n6000", "n6730", "n7500", "n8230");
@@ -7 +7 @@
 
 $catdir = &basename($ARGV[0]);
-$catdir_name = "Synthetic Photometry Catdir";
+$catdir_name = $ARGV[1];
+# "Synthetic Photometry Catdir";
 
 &mkindex ($ARGV[0], "topdir");
@@ -44 +45 @@
 
     if ($mode eq "topdir") {
-        print FILE "(up to [PARENT](\@ROOTWWW\@/index.php))\n\n";
+        print FILE "(up to [PARENT](\@WWWHOST\@/index.php))\n\n";
     } else {
-        print FILE "(up to [$catdir_name](\@ROOTWWW\@/$catdir/index.php))\n\n";
+        print FILE "(up to [$catdir_name](\@WWWHOST\@/$catdir/index.php))\n\n";
     }
 
     print FILE "Download this entire directory with the following command:\n\n";
 
-    print FILE "<tt> wget -c -r -np -nH \@ROOTWWW\@/$thisdir</tt>\n\n";
+    print FILE "<tt> wget -c -r -np -nH \@WWWHOST\@/$thisdir/index.php</tt>\n\n";
 
     print FILE "@ Data Product : none : plain : title : size (bytes)\n";