#!/usr/bin/perl # use CGI; do "acqPATHs.pl"; $qform = CGI->new; $wdr = $qform->param("wdr"); $rfnm = $qform->param("rfnm"); $ascbin = $qform->param("ascbin"); $handle = $qform->upload("lfnm"); $rfnm =~ s/[^\.\w]+//g; $rfnm =~ s/^(\.)+//; if ($wdr ne "") { $wdr .= "/"; } $path = "$DATAPATH/$wdr$rfnm"; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS upload2
EOM $htmlbody =~ s/__RFNM__/$rfnm/g; print $htmlbody; # if ($rfnm eq "") { print 'ERROR:', "\n"; print " destination filename empty.  \n"; print '
', "\n"; } elsif ($handle eq undef) { print 'ERROR:', "\n"; print " source file is not given.  \n"; print '
', "\n"; } elsif (-e $path) { print 'ERROR:', "\n"; print " file \"$rfnm\" already exists.  \n"; print '
', "\n"; } elsif (open(OUT, "> $path")) { if ($ascbin eq "bin") { while ($buf = <$handle>) { print OUT $buf; } } else { while ($buf = <$handle>) { $buf =~ s/\r\n/\n/; print OUT $buf; } } close(OUT); print "File was uploaded to \"$rfnm\" successfully.  \n"; print '
', "\n"; } else { print 'ERROR:', "\n"; print " failed to create file \"$rfnm\".  \n"; print '
', "\n"; } # print "
\n\n\n"; exit(0);