Index: /branches/eam_branches/ipp-20130307/dvodist/scripts/mkindex.dvo.pl
===================================================================
--- /branches/eam_branches/ipp-20130307/dvodist/scripts/mkindex.dvo.pl	(revision 35275)
+++ /branches/eam_branches/ipp-20130307/dvodist/scripts/mkindex.dvo.pl	(revision 35276)
@@ -1,5 +1,5 @@
 #!/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,5 +7,6 @@
 
 $catdir = &basename($ARGV[0]);
-$catdir_name = "Synthetic Photometry Catdir";
+$catdir_name = $ARGV[1];
+# "Synthetic Photometry Catdir";
 
 &mkindex ($ARGV[0], "topdir");
@@ -44,12 +45,12 @@
 
     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";