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

Timestamp:

Mar 11, 2013, 8:25:53 AM (13 years ago)

Author:

eugene

Message:

update scripts for dvo distributions & 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 != 2) { die "USAGE: mkindex.dvo.pl (catdir) (catdir_name)\n" ;}
+if (@ARGV != 3) { die "USAGE: mkindex.dvo.pl (catdir) (catdir_name) (ippdata | dvodist)\n" ;}
 
 @nlist = ("n0000", "n0730", "n1500", "n2230", "n3000", "n3730", "n4500", "n5230", "n6000", "n6730", "n7500", "n8230");
@@ -8 +8 @@
 $catdir = &basename($ARGV[0]);
 $catdir_name = $ARGV[1];
+$target_name = $ARGV[2];
 # "Synthetic Photometry Catdir";
 
@@ -34 +35 @@
 
     # XXX ippdata.page.php vs dvodist.page.php
-    print FILE "<?php include \"\@HTDOCS\@/www-util/ippdata.page.php\"\; ?>\n\n";
+    if ($target_name eq "ippdata") {
+        print FILE "<?php include \"\@HTDOCS\@/www-util/ippdata.page.php\"\; ?>\n\n";
+    } else {
+        print FILE "<?php include \"\@HTDOCS\@/www-util/dvodist.page.php\"\; ?>\n\n";
+    }
 
     # CATDIR Title supplied on cmd line