AMXS files

#!/usr/bin/perl # sub htencode { local($htencd) = shift; $htencd =~ s/&/&/g; $htencd =~ s/"/"/g; $htencd =~ s//>/g; $htencd; } do "acqPATHs.pl"; $wdr = $ENV{"QUERY_STRING"}; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS files

Existing files : EOM $htmlbody =~ s/__WDR__/$wdr/g; print $htmlbody; # $n = 0; open(IN, "ls -lF $DATAPATH/$wdr 2>&1 |"); print "

";
  while ($line=) { print &htencode($line); $n++; }
  print "

\n"; close(IN); if ($n < 2) { print " "; print '', "\n"; print "(Remove current working directory)\n"; } # print "

\n\n\n"; exit(0);