#!/usr/bin/perl # do "acqPATHs.pl"; $wdr = $ENV{"QUERY_STRING"}; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS upload
  Upload Data File   (ASCII text format only)
Destination Filename: (Preceding "." and non-Alphanumerics
are taken away.)
Source file on your PC:
         
EOM $htmlbody =~ s/__WDR__/$wdr/; print $htmlbody; # $n = 0; open(IN, "ls -F $DATAPATH/$wdr |"); while ($fnam=) { chop($fnam); $dnam[$n] = $fnam; $n++; } close(IN); $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) { print " \n"; } else { print " \n"; } } print " \n"; } # print "
Existing Files :
  " . $dnam[$m] . "  
\n
\n\n\n"; exit(0);