A file upload script
$file_dir = ".";
$file_url = ".";
if ( isset( $fupload ) ){
print "path: $fupload
\n";
print "name: $fupload_name
\n";
print "size: $fupload_size bytes
\n";
print "type: $fupload_type\n\n";
if ( $fupload_type == "image/gif" ){
copy ( $fupload, "$file_dir/$fupload_name") or die ("Couldn't copy");
print "\n\n";
}
}
?>