#!/usr/bin/perl # do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($dir, $fnm) = split(/\+/, $str); if ($dir ne "") { $dir .= "/"; } $path = "$DATAPATH/$dir$fnm"; if ($fnm eq "") { print "Content-type: text/html; charset=iso-8859-1\n\n"; $htmlbody =< AMXS download
  Download: File not selected      

EOM print $htmlbody; exit(0); } else { if (open(IN, "< $path")) { print "Content-type: text/html; charset=iso-8859-1\n\n"; $htmlbody =< AMXS download
      Download:   $fnm
        Click filename above to Download          

      It may take some time depending on the file size.

EOM print $htmlbody; exit(0); } else { print "Content-type: text/html; charset=iso-8859-1\n\n"; $htmlbody =< AMXS download
  Download: File open fail      

EOM print $htmlbody; } }