#!/usr/bin/perl
# upload file script by stas 27/06/2012
use CGI;
use strict;

#change CGI temp folder (default = /usr/tmp)
$CGITempFile::TMPDIRECTORY = "/home/tmp";

#upload path (make sure you have write permissions)
my $uploadPath = "./uploads";

#The name attribute on <input type="file" name="??" /> tag.
#In other words, the post parameter name which includes the file
my $httpParamName="upfile";

#Max file Size (bytes)
my $maxSize = 1 * 1024 * 1024;

#Set max post size (bytes) automaticly 10kb bigger then size limit
#$CGI::POST_MAX = $maxSize + 10* 1024;

################################
# 			Main
################################
my $cgi=new CGI;
my $fileToUpload = $cgi->param($httpParamName);
print $cgi->header;

if($fileToUpload){
	upload();
}
else{
	print "Please specify file";
}


################################
# 		Sub routines 
################################
sub upload
{
	#get filehandle from CGI
	my $upload_filehandle = $cgi->upload($httpParamName) || error($!);
	
	#check max size
	if(-s $upload_filehandle > $maxSize){
		error("File too big. (size limit: $maxSize bytes)");
	}
	
	# If you're on Windows, you'll need this. Otherwise, it has no effect.
	binmode($upload_filehandle);
	
	#create the new file
	open(UPLOAD,">$uploadPath/".$fileToUpload) || error($!);
	
	# If you're on Windows, you'll need this. Otherwise, it has no effect.
	binmode(UPLOAD);
	
	#write the file
	my ($nBytes,$totBytes,$buffer);
	while ( $nBytes = read($upload_filehandle, $buffer, 1024) ) 
	{
		print UPLOAD $buffer;
		$totBytes += $nBytes;
	}
	
	print "uploaded successfully<br/>$fileToUpload ($totBytes bytes)";
}


sub error
{
	 print "Error: $_[0]<br/>";
	 exit;
}