Perl Guru Forums: Perl Programming Help: Intermediate: A little CGI upload script help.

#!/usr/bin/perl -w 
 
use strict;  
 
use CGI;  
 
use CGI::Carp qw ( fatalsToBrowser );  
 
use File::Basename;  
 
 
 
my $safe_filename_characters = "a-zA-Z0-9_.-"; 
 
my $upload_dir = '/usr/lib/cgi-bin/SNP'; 
 
my $query = new CGI; 
 
my $filename = $query->param('input_file'); 
 
 
 
 
 
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";  
 
}  
 
$filename=~m/^.*(\\|\/)(.*)/; # strip the remote path and keep the filename  
 
my $name = $2; 
 
#my $upload_filehandle=$query->upload('input_file'); 
 
open(LOCAL, ">$upload_dir/$name") or die $!;  
 
while(<$name>) {  
 
	print LOCAL $_;} 
 
 
 
# open ( UPLOADFILE, ">/SNP/$name" ) or die "$!";  
 
# binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE;  
 
# }  
 
# close UPLOADFILE;  
 
print <<END_HTML; 
 
	<html> 
 
	<head> 
 
	<title>SUCCESS</title> 
 
	</head> 
 
	<body> <p>Thanks for uploading</p> <p><a href src="/SNP/$filename"/>FILE</a></body> </html>  
 
END_HTML

	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN