#!/usr/bin/perl print "Content-type: text/html\n\n"; print < File Upload Sample
Upload File

HTML exit; ##
##

#!/usr/bin/perl-wT 
use strict; 
use CGI; 
use CGI::Carp qw (fatalsToBrowser); 
use File::Basename; $CGI::POST_MAX = 1024 * 5000; 
my $safe_filename_characters = "a-zA-Z0-9_.-"; 
my $upload_dir = "/home/netcool/alertfiles"; 
my $query = new CGI; 
my $filename = $query->param("alertsfile"); 
if ( !$filename ) 
	{ 
	print $query->header ( ); 
	print "There was a problem uploading your photo (try a smaller file)."; 
	exit; 
	}
my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' ); 
$filename = $name . $extension; 
$filename =~ tr/ /_/;
$filename =~ s/[^$safe_filename_characters]//g;
if ( $filename =~ /^([$safe_filename_characters]+)$/ ) 
	{ 
	$filename = $1; 
	} 
else 
	{ 
	die "Filename contains invalid characters"; 
	} 
	
my $upload_filehandle = $query->upload("alertsfile"); 
open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!"; 
binmode UPLOADFILE; 
while ( <$upload_filehandle> ) 
	{ 
	print UPLOADFILE; 
	} 
close UPLOADFILE; 
print $query->header ( );
print "Content-type: text/html\n\n";
print < 
 
Thanks 
 
 
Thanks for uploading your file! 
Your file:
  
 
 
HTML