#!/usr/bin/perl # do "acqPATHs.pl"; $wdr = $ENV{"QUERY_STRING"}; if ($wdr ne "") { $wdr .= "/"; } print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS gsview
Download PS file (for GSview)      
EOM print $htmlbody; # $n = 0; opendir(DIR, "$DATAPATH/$wdr"); while ($fnam = readdir(DIR)) { if ($fnam =~ /^(\w+\.)*ps$/) { if (-f "$DATAPATH/$wdr$fnam") { $rnam[$n] = $fnam; $n++; } } } closedir(DIR); if ($n == 0) { print "      No PS files found in this directory.\n"; } else { print "      Click the filename in the list below.\n"; print "\n"; @dnam = sort(@rnam); if ($n < 30) { $nl = 5; } else { $nl = ($n + 5 - (($n-1) % 6)) / 6; } for ($l=0; $l<$nl; $l++) { print " \n"; for ($c=0; $c<6; $c++) { $m = $c*$nl + $l; if ($m < $n) { $fnm = $dnam[$m]; print " \n"; } else { print " \n"; } } print " \n"; } print "
  "; print "$fnm  
\n"; } # print "
\n\n\n"; exit(0);