#!/usr/bin/perl # do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($dir, $log) = split(/\+/, $str); $log =~ s/[^\.\w]+//g; $log =~ s/\.\.+/./g; $log =~ s/^\.+//; $log =~ s/\.+$//; if ($dir ne "") { $dir .= "/"; } $path = "$DATAPATH/$dir$log"; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS newlog2
EOM $htmlbody =~ s/__LOG__/$log/g; print $htmlbody; # if (-e $path) { print "ERROR:\n"; print " file \"$dir$log\" already exists.  \n"; print '
', "\n"; } elsif (open(OUT, "> $path")) { close(OUT); print "New File \"$dir$log\" was created successfully.  \n"; print '
', "\n"; } else { print "ERROR:\n"; print " failed to create file \"$dir$log\".  \n"; print '
', "\n"; } # print "
\n\n\n"; exit(0);