#!/usr/local/bin/perl -w

use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

print header();
print start_html("File Uploader");

print h1("File Uploader"),
    'Hit the Browse button to choose a file, ',
    'then hit Submit to upload it.\n';

# Start a multipart form.
print start_multipart_form("POST", "fu.cgi", "NAME=\"getfile\""),
    "File to upload:",
    br,
    filefield('filename','',45),
    br,
    submit('submit','Submit'),
    br,
    endform;

#print '<SCRIPT>function Select() { document.getfile.submit.focus();}</SCRIPT>'
# Process the form if there is a file name entered
if ($file = param('filename')) {
    $tmpfile=tmpFileName($file);
    $outfile="/home/sirdavec/public_html/$file";
    $outfile =~s/.*\\//;
    $outfile =~s/\\/_/;
    $outfile =~s/:/_/;
    
    print hr(),
    open(OUTFILE, "> $outfile") || die $!;
    while (<$file>) { print OUTFILE $_; }

    close $outfile; close $file;
    $outfile =~s/.export/http:\/\//;
    print "\nWrote $outfile\n$_\n";
    end_html;
}