FATAL WARNING: read() on closed filehandle fh00001license.txt at CDownloadEditor.pm line 293.

sub uploadFile
{
	my $self = shift;
	my %FORM = %{$self->{FORM}};
	my %sysvars = %{$self->{GVARS}};
 
	my ($variableName, $variableID);
 
	if(@_)
	{
		$variableName = shift;
		$variableID = shift;
	}
 
	return if($FORM{$variableName} eq '');
 
	my $extension = $1 if($FORM{$variableName} =~ /\.([^\.]+)$/);
	my $fileHandle = $FORM{$variableName};
	my $filename = $variableID . $variableName . '.' . lc($extension);
	my $path = "$sysvars{MODFILEPATH}/$sysvars{FILE}";
 
	if($filename =~ /([^\/\\]+)$/)
	{
		$filename = $1;
	}
	else
	{
		return "error";
	}
 
	if (!(-d "$path/"))
	{
		mkdir("$path/", 0777);
	}
	if(-f "$path/$filename")
	{
		unlink("$path/$filename");
	}
 
	if(!(open(IMAGEFILE, ">$path/$filename")))
	{
		if($FORM{'SCRIPTERROR-FILEUPLOAD'} eq '')
		{
			$self->{FORM}->{'SCRIPTERROR-FILEUPLOAD'} = 1;
 
			$self->setErrorMessage("File did not upload correctly. The system administrator has been notified of this issue.<br>Please try editing the record later to upload the file.");
 
			$self->sendTechnicalInformation("File permissions issue.");
		}
 
		return;
	}
 
	my $bytesRead;
	my $buffer;
 
 
	while(my $bytes = read($fileHandle, $buffer, 2096))
	{
		$bytesRead += $bytes;
		binmode IMAGEFILE;
		print IMAGEFILE $buffer;
	}
 
	close($fileHandle);
	close(IMAGEFILE);
 
	chmod (0777, "$path/$filename");
 
	$self->{FORM}->{$variableName} = "$sysvars{MODFILEURL}/$sysvars{FILE}/$filename";
 
	$self->doSQLUpdate('', "ID='$variableID'");
 
	$self->setSuccessMessage("Upload Successful: $bytesRead bytes read.");
}

$self->uploadFile('file', $id) if($FORM{'file'});

	my $query = new CGI;
 
	my $sql = do_sql->new;
	$sql->connect;
 
	foreach my $key (sort {$a <=> $b} $query->param())
	{
		my $value = $query->param($key);
 
		$self->{FORM}->{$key} = $value;
	}

	if (!(-d "$path/"))
	{
		mkdir("$path/", 0777) or some error handling here;
	}
	if(-f "$path/$filename")
	{
		unlink("$path/$filename") or some error handling here;
	}

	while(my $bytes = read($fileHandle, $buffer, 2096))
	{
		$bytesRead += $bytes;
		binmode IMAGEFILE;
		print IMAGEFILE $buffer;
	}

use strict;
use warnings;