#!/usr/local/bin/perl
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html(-title=>"UPLOAD PLEASE");

# retrieve the upload file name.
unless ($file = $query->param('fileID'))
    { &showError('No file name specified.'); }

@pathName = split(/\\/,$file);

$newFile ='/home/users/web/b2578/pow.royridgeway/htdocs/Roy/';
       
$newFile .= pop(@pathName);

open(OPF,">$newFile") || &showError("Failed to open OPF, $!");

print "<P><CENTER>Uploading <BR>$fileID <BR>to<BR>$newFile<BR></CENTER></P>\n";
while ($bytesread=read($file,$buffer,1024))
    {
    print OPF "$buffer";
    }
close OPF;
print $query->end_html;
}