#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $query = new CGI;
my %input = map { $_ => $query->param($_) } $query->param;
my $sub2go = $input{state} || "default";
print "Content-Type: text/html\n\n\n";
eval {
# now do the real work
&$sub2go;
};
if ($@) {
print $@;
}
sub default {
print qq(
Upload file
back
);
}
sub upload {
my $fh = $input{file};
$input{file} =~ s(^.:.*\\)(); # remove windows path, if any
open FILE, "> $input{file}" or die "Could not create/overwrite $input{file} $!\n";
binmode FILE;
my $bytesread;
while ($bytesread=read($fh,$buffer,1024)) {
print FILE $buffer;
}
close FILE;
print qq(
upload of $fh complete.
back
);
}