#!/usr/bin/perl # do "acqPATHs.pl"; $dfn = $ENV{"QUERY_STRING"}; $path = "$DATAPATH/$dfn"; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS remove2
EOM print $htmlbody; # if (unlink($path) == 1) { print "File \"$dfn\" was removed successfully.  \n"; print '
', "\n"; } else { print "ERROR:\n"; print " failed to remove file \"$dfn\".  \n"; print '
', "\n"; } # print "
\n\n\n"; exit(0);