Так и не понял что же ей мешает жить... Скрипт создает временную папку, создает в ней файл со значением длины файла
# Create temp directory if it does not exist
if(!-d $main::config->{temp_dir}){ mkdir($main::config->{temp_dir}, 0777) or &kak("<font color='red'>ERROR</font>: Failed to mkdir $main::config->{temp_dir}: $!", 1, __LINE__); }
# Create a temp directory based on Session-id
if(!-d $temp_dir_sid){ mkdir($temp_dir_sid, 0777) or &kak("<font color='red'>ERROR</font>: Failed to mkdir $temp_dir_sid: $!", 1, __LINE__); }
else{
&deldir($temp_dir_sid);
mkdir($temp_dir_sid, 0777) or &kak("<font color='red'>ERROR</font>: Failed to mkdir $temp_dir_sid: $!", 1, __LINE__);
}
# Prepare the flength file for writing
open(FLENGTH, ">" , "$flength_file") or &kak("<font color='red'>ERROR</font>: Failed to open $temp_dir_sid/flength: $!", 1, __LINE__);
if($ENV{'CONTENT_LENGTH'} > $main::config->{max_upload}){
# If file size exceeds maximum write error to flength file and exit
my $max_size = &format_bytes($main::config->{max_upload}, 99);
print FLENGTH "ERROR: Maximum upload size of $max_size exceeded";
close(FLENGTH);
chmod 0666, $flength_file;
&kak("<font color='red'>ERROR</font>: Maximum upload size of $max_size exceeded.<br><br>Your upload has failed.<br>", 1, __LINE__);
}
else{
# Write total upload size in bytes to flength file
print FLENGTH $ENV{'CONTENT_LENGTH'};
close(FLENGTH);
chmod 0666, $flength_file;
}
а потом затыкается на попытке подцепить созданную временную папку-
# Tell CGI.pm to use our directory based on Session-id
if($TempFile::TMPDIRECTORY){ $TempFile::TMPDIRECTORY = $temp_dir_sid; }
elsif($CGITempFile::TMPDIRECTORY){ $CGITempFile::TMPDIRECTORY = $temp_dir_sid; }
else{ &kak("<font color='red'>ERROR</font>: Failed to assign CGI temp directory", 1, __LINE__); }
Подскажите, что может в принципе мешать выполнению этого кода ? Сам я к сожалению пока в этом не силен..