CGI Fehler

SrONight · 16. Mai 2011

Hi
ich habe mir einen Upload scipt aus dem Inet geladen und möchte ihn am laufen bekommen.
Dafür benutze ich Xampp (1.7.3) auf Win7
Nur leider kommt immer dieser Fehler bei hochladen einer Datei.

Hier noch der error_log

Code

[Mon May 16 19:34:15 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/images/top_2.jpg, referer: http://127.0.0.1/test/freeup.php
[Mon May 16 19:34:16 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/tiny_mce, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:34:23 2011] [error] [client 127.0.0.1] script not found or unable to stat: C:/xampp/cgi-bin/uber_uploader.cgi, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:34:53 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/tiny_mce, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:35:01 2011] [error] [client 127.0.0.1] (OS 2)Das System kann die angegebene Datei nicht finden. : couldn't create child process: 720002: uber_uploader.cgi, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:35:01 2011] [error] [client 127.0.0.1] (OS 2)Das System kann die angegebene Datei nicht finden. : couldn't spawn child process: C:/xampp/cgi-bin/uber_uploader.cgi, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:42:32 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/tiny_mce, referer: http://127.0.0.1/test/
[Mon May 16 19:42:34 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/tiny_mce, referer: http://127.0.0.1/test/freeup.php
[Mon May 16 19:42:34 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/images/top_2.jpg, referer: http://127.0.0.1/test/freeup.php
[Mon May 16 19:42:36 2011] [error] [client 127.0.0.1] File does not exist: C:/xampp/htdocs/test/template/default/tiny_mce, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:42:43 2011] [error] [client 127.0.0.1] (OS 2)Das System kann die angegebene Datei nicht finden. : couldn't create child process: 720002: uber_uploader.cgi, referer: http://127.0.0.1/test/upload.php
[Mon May 16 19:42:43 2011] [error] [client 127.0.0.1] (OS 2)Das System kann die angegebene Datei nicht finden. : couldn't spawn child process: C:/xampp/cgi-bin/uber_uploader.cgi, referer: http://127.0.0.1/test/upload.php

Alles anzeigen

Hoffe ihr könnt mir helfen
MFG Waschi

**ov3rk1ll** · 17. Mai 2011

also ohne den code wirds ein bisschen schwer den Fehler zu finden.

SrONight · 17. Mai 2011

Das ist der Code:

Spoiler anzeigen

Code

use CGI qw(:cgi); # Load the CGI.pm module
my $temp_dir = $ENV{'DOCUMENT_ROOT'} . '/test/uploads/'; # ATTENTION: this variable must be the same as the $temp_dir set in uber_uploader_global.php
my $upload_dir = $ENV{'DOCUMENT_ROOT'} . '/test/uploads/'; # ATTENTION: this variable must be the same as the $upload_dir set in uber_uploader_global.php
my $max_upload = 20 * 1024 * 1024; # Max upload size in bytes (2 * 1024 * 1024 = 2097152 = 2MB)
my $overwrite_existing_files = 0; # Set to 1 if over writing existing uploaded files is desired
my $redirect_after_upload = 1; # Set to 1 if you want to redirect to the php finished page
my $redirect_using_html = 0; # Set to 1 if you are redirecting and want to use html handle the refresh
my $redirect_url = 'http://127.0.0.1/uber_uploader_finished.php'; # Path to php redirect page ( eg. http://www.yoursite.com/uber_uploader_finished.php )
my $progress_url = 'http://127.0.0.1/uber_uploader_progress.php'; # Path to php progress page ( eg. http://www.yoursite.com/uber_uploader_progress.php )
my $create_files_by_rename = 1; # Set to 1 if you want to rename the file instead of copy (rename does not work across disks)
my $debug_cgi = 0; # Set to 1 to debug and call ( eg. www.yoursite.com/cgi-bin/uber_uploader.cgi?cmd=debug )
my $errors_to_browser = 0; # Set to 1 if you want fatal errors displayed in the browser
my $flock_flength_file = 0; # Set to 1 if file locking the flength file is desired
my $normalize_file_names = 1; # The character that is used for file normalization.
my $normalize_file_delimiter = '_';
################################################ You Can Safely Change The Values Above This Line ########################################################################
my $tmp_sid = (split(/[&=]/,$ENV{'QUERY_STRING'}))[1]; # Get the session-id for temp files
$tmp_sid =~ s/[^a-zA-Z0-9]//g; # Sanitise session-id
my $driver_version = "2.9"; # Version of this driver
my $uber_version = "2.5"; # Version of Uber Uploader
my $sleep_time = 1; # Seconds to wait before upload proceeds (for small file uploads)
my $print_issued = 0; # Used to track print "Content-type: text/html\n\n";
my %uploaded_files = (); # Hash with all the uploaded file names
my $temp_dir_sid = $temp_dir . $tmp_sid; # Append Session-id to upload temp directory
my $flength_file = $temp_dir_sid . '/flength'; # Flength file is used to store the size of the upload in bytes
my ($file_name, $upload_filehandle, $tmp_filename, $upload_file_path); # Extra variables used in script
my ($key, $post_value); # Extra variables used in script
umask(0);
$|++; # Force auto flush of output buffer
$SIG{HUP} = 'IGNORE'; # Ignore sig hup
$SIG{__DIE__} = \&cleanup; # User has pressed stop during upload so deal with it
$CGI::POST_MAX = $max_upload; # Set the max post value
################################################ Not A Good Idea To Change The Values Above This Line ########################################################################
# Send fata errors to the users browser
if($errors_to_browser){
if(!$print_issued){
print "Content-type: text/html\n\n";
$print_issued = 1;
}
use CGI::Carp('fatalsToBrowser');
}
# Check for debug, version or empty session-id passed to script
if($tmp_sid eq "debug" && $debug_cgi){ &debug(); }
elsif($tmp_sid eq "debug" && !$debug_cgi){ &kak("UBER UPLOADER CGI SETTINGS<\/b><\/u> DEBUG_CGI = disabled<\/b> \n", 1); }
elsif($tmp_sid eq "version"){ &kak("UBER UPLOADER VERSION<\/u> UBER UPLOADER VERSION = " . $uber_version . "<\/b> CGI DRIVER VERSION = " . $driver_version . "<\/b> \n", 1); }
elsif(length($tmp_sid) < 32){ &kak("ERROR<\/font>: Invalid session-id $tmp_sid. \n", 1); }
# Create temp directory if it does not exist
if(!-d $temp_dir){ mkdir($temp_dir, 0777) or &kak("ERROR: Can't mkdir $temp_dir: $!", 1); }
# Create a temp directory based on Session-id
if(!-d $temp_dir_sid){ mkdir($temp_dir_sid, 0777) or &kak("ERROR: Can't mkdir $temp_dir_sid: $!", 1); }
else{
&deldir($temp_dir_sid);
mkdir($temp_dir_sid, 0777) or &kak("ERROR: Can't mkdir $temp_dir_sid: $!", 1);
}
# Prepare the flength file for writing
if($flock_flength_file){
use Fcntl qw(:DEFAULT :flock);
sysopen(FLENGTH, $flength_file, O_RDWR | O_CREAT) or &kak("ERROR: Can't open $flength_file: $!", 1);
select((select(FLENGTH), $| = 1)[0]);
flock(FLENGTH, LOCK_EX) or &kak("ERROR: Can't write-lock $flength_file: $!", 1);
seek(FLENGTH, 0, 0) or &kak("ERROR: Can't rewind $flength_file: $!", 1);
}
else{
open FLENGTH, ">$flength_file" or &kak("ERROR: Can't open $temp_dir_sid/flength: $!", 1);
}
if($ENV{'CONTENT_LENGTH'} > $max_upload){
# If file size exceeds maximum write error to flength file and exit
my $max_size = &format_bytes($max_upload, 99);
print FLENGTH "ERROR: Maximum upload size of " . $max_size . " exceeded. Your upload has failed. ";
close FLENGTH;
chmod 0666, $flength_file;
&kak("ERROR: Maximum upload size of " . $max_size . " exceeded. Your upload has failed. ", 1);
}
else{
# Write total upload size in bytes to flength file
print FLENGTH $ENV{'CONTENT_LENGTH'};
close FLENGTH;
chmod 0666, $flength_file;
}
# Let progress bar get some info (for small file uploads)
sleep($sleep_time);
# 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("ERROR: Cannot assign CGI temp directory", 1); }
my $query = new CGI;
# IF you are changing the upload directory dynamically, DO IT HERE.
# eg. $upload_dir = $upload_dir . $query->param("company_num") . "/";
# Create upload directory if it does not exist
if(!-d $upload_dir){ mkdir($upload_dir, 0777) or &kak("ERROR: Can't mkdir $upload_dir: $!", 1); }
# If we are using rename, make sure it's the same disk
if($create_files_by_rename == 1){
my $dev_temp_dir = (stat($temp_dir))[1];
my $dev_upload_dir = (stat($upload_dir))[1];
# We have have two disks so use copy instead (can't rename across disks)
if($dev_temp_dir != $dev_upload_dir){ $create_files_by_rename = 0; }
}
# Upload is finished, start creating files in the upload directory
for(my $i = 0; $i < $query->param('upload_range'); $i++){
$file_name = $query->param("upfile_" . $i);
$file_name =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("upfile_" . $i);
$tmp_filename = $query->tmpFileName($upload_filehandle);
# Do not process blank upload slots, executable files or zero length files
if(($file_name ne "") && ($file_name !~ m/(\.sh)|(\.php)|(\.php3)|(\.php4)|(\.shtml)|(\.cgi)|(\.pl)$/i) && (-s $tmp_filename)){
if($normalize_file_names){ $file_name = &normalize_filename($file_name, $normalize_file_delimiter); }
if(!$overwrite_existing_files){ $file_name = &rename_filename($file_name, 1); }
# IF you are changing the file name dynamically, DO IT HERE.
# eg. $file_name = $query->param("employee_num") . "_" . $file_name;
$upload_file_path = $upload_dir . $file_name;
if($create_files_by_rename){
# Create uploaded files by rename
close($upload_filehandle);
rename($tmp_filename, $upload_file_path) or &kak("Cannot rename from $tmp_filename to $upload_file_path: $!", 0);
}
else{
# Create uploaded files by copy
open(UPLOADFILE, ">$upload_file_path");
binmode UPLOADFILE;
while(<$upload_filehandle>){ print UPLOADFILE; }
close(UPLOADFILE);
}
chmod 0666, $upload_file_path;
}
if($file_name ne ""){ $uploaded_files{$file_name} = 0; }
}
# Delete the temp directory based on session-id and everything in it
&deldir($temp_dir_sid);
# Redirect to php page if redirect enabled else display results
if($redirect_after_upload){
my $param_file_path = $upload_dir . $tmp_sid . ".params";
my @names = $query->param;
my $i = 0;
my $file_name;
open PARAMS, ">$param_file_path" or &display_results_through_cgi();
binmode PARAMS;
# Write post values to param file (we do not write the files names at this point)
foreach $key (@names){
$post_value = $query->param($key);
$post_value =~ s/(\r\n|\n|\r)/~NWLN~/g;
$post_value =~ s/=/~EQLS~/g;
if($post_value ne "" && $key !~ m/^upfile_/){ print PARAMS $key . "=" . $post_value . "\n"; }
}
# Write upload file names to param file
foreach $file_name (keys %uploaded_files){
$key = 'upfile_' . $i;
print PARAMS $key . "=" . $file_name . "\n";
$i++;
}
close(PARAMS);
chmod 0666, $param_file_path;
# Append the session-id to the redirect url. Finished page will use this to find it's param file.
$redirect_url .= "?tmp_sid=" . $tmp_sid;
# If we are using a progress pop-up close it on the finished page
if(!$query->param('imbedded_progress_bar')){ $redirect_url .= "&close_pop=1"; }
if($redirect_using_html){
print "Content-type: text/html\n\n";
print "<meta http-equiv=\"refresh\" content=\"0; url='$redirect_url'\">\n";
}
else{
# Uncomment next line if using Webstar V
# print "HTTP/1.1 302 Redirection\n";
print "Location: $redirect_url\n\n";
}
}
else{ &display_results_through_cgi(); }
######################################################### START SUBROUTINES ###################################################
########################################
# Delete the temp dir based on tmp_sid
########################################
sub cleanup{ deldir($temp_dir_sid); }
#####################################
# Display upload results through cgi
#####################################
sub display_results_through_cgi{
&confirm_upload();
&display_results();
}
########################################
# Confirm upload and get size file size
########################################
sub confirm_upload{
my $file_name;
my $path_to_file;
foreach $file_name (keys %uploaded_files){
$path_to_file = $upload_dir . $file_name;
if(-e $path_to_file && -f $path_to_file){ $uploaded_files{$file_name} = -s $path_to_file; }
}
}
####################################
# Format the upload result and exit
####################################
sub display_results{
my $upload_result;
my $i = 0;
my $bg_col;
my $line;
my $buffer;
my $js_code;
my $file_name;
foreach $file_name (keys %uploaded_files){
if($i%2){ $bg_col = 'cccccc'; }
else{ $bg_col = 'dddddd'; }
if($uploaded_files{$file_name} > 0){
my $file_size = &format_bytes($uploaded_files{$file_name}, 99);
$upload_result .= "<tr><td align='center' bgcolor='$bg_col'> $file_name <\/td><td align='center' bgcolor='$bg_col'>$file_size<\/td><\/tr>\n";
}
else{ $upload_result .= "<tr><td align='center' bgcolor='$bg_col'> $file_name <\/td><td align='center' bgcolor='$bg_col'>Failed To Upload<\/font><\/td><\/tr>\n"; }
$i++;
}
if(!$query->param('imbedded_progress_bar')){
$progress_url .= "?close_pop=1";
$js_code = "window.open('$progress_url','uploadWin','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=1,height=1,left=350,top=300');\n";
}
open(TEMPLATE, "uber_uploader_finished.tmpl") or &kak("ERROR: Can't open uber_uploader_finished.tmpl: $!", 1);
# Search and replace tags from the template file
while($line = <TEMPLATE>){
$line =~ s//$js_code/i;
$line =~ s//$upload_result/i;
$buffer .= $line;
}
close(TEMPLATE);
if(!$print_issued){
print "Content-type: text/html\n\n";
$print_issued = 1;
}
print $buffer;
}
####################################################
# formatBytes($file_size, 99) mixed file sizes
# formatBytes($file_size, 0) KB file sizes
# formatBytes($file_size, 1) MB file sizes etc
####################################################
sub format_bytes{
my $bytes = shift;
my $byte_format = shift;
my $byte_size = 1024;
my $i = 0;
my @byte_type = (" KB", " MB", " GB", " TB", " PB", " EB", " ZB", " YB");
$bytes /= $byte_size;
if($byte_format == 99 || $byte_format > 7){
while($bytes > $byte_size){
$bytes /= $byte_size;
$i++;
}
}
else{
while($i < $byte_format){
$bytes /= $byte_size;
$i++;
}
}
$bytes = sprintf("%1.2f", $bytes);
$bytes .= $byte_type[$i];
return $bytes;
}
##############################################################
# Output a message to the screen
#
# You can use this function to debug your script.
#
# eg. &kak("The value of blarg is: " . $blarg . " ", 1);
# This will print the value of blarg and exit the script.
#
# eg. &kak("The value of blarg is: " . $blarg . " ", 0);
# This will print the value of blarg and continue the script.
##############################################################
sub kak{
my $msg = shift;
my $kak_exit = shift;
if(!$print_issued){
print "Content-type: text/html\n\n";
$print_issued = 1;
}
print "<!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4.01 Transitional\/\/EN\">\n";
print "<html>\n";
print " <head>\n";
print " <title>UBER UPLOADER<\/title>\n";
print " <meta http-equiv=\"Pragma\" content=\"no-cache\">\n";
print " <meta http-equiv=\"CACHE-CONTROL\" content=\"no-cache\">\n";
print " <meta http-equiv=\"expires\" content=\"-1\">\n";
print " <\/head>\n";
print " <body style=\"background-color: #EEEEEE; color: #000000; font-family: arial, helvetica, sans_serif;\">\n";
print " \n";
print " <div align='center'>\n";
print " $msg\n";
print " \n";
print " </div>\n";
print " </body>\n";
print "</html>\n";
if($kak_exit){ exit(0); }
}
#########################################
# Delete a directory and everthing in it
#########################################
sub deldir{
my $del_dir = shift;
my $file_name;
my $file_path;
if(-d $del_dir){
if(opendir(DIRHANDLE, $del_dir)){
while($file_name = readdir(DIRHANDLE)){
if(($file_name ne ".") && ($file_name ne "..")){
$file_path = $del_dir . "/" . $file_name;
unlink($file_path) or &kak("Cannont unlink $file_path: $!", 0);
}
}
closedir(DIRHANDLE);
rmdir($del_dir) or &kak("Cannot rmdir $del_dir: $!", 0);
}
else{ &kak("Cannont open $del_dir: $!", 0); }
}
}
############################################
# Print driver settings to screen and exit
############################################
sub debug{
my $msg;
my $temp_dir_state;
my $upload_dir_state;
if(!-d $temp_dir){ $temp_dir_state = "" . $temp_dir . "<\/font>"; }
else{ $temp_dir_state = "" . $temp_dir . "<\/font>"; }
if(!-d $upload_dir){ $upload_dir_state = "" . $upload_dir . "<\/font>"; }
else{ $upload_dir_state = "" . $upload_dir . "<\/font>"; }
$msg .= "UBER UPLOADER CGI SETTINGS<\/b><\/u> \n";
$msg .= "UBER UPLOADER VERSION = " . $uber_version . "<\/b> \n";
$msg .= "CGI DRIVER VERSION = " . $driver_version . "<\/b> \n";
$msg .= "TEMP_DIR = " . $temp_dir_state . "<\/b> \n";
$msg .= "UPLOAD_DIR = " . $upload_dir_state . "<\/b> \n";
$msg .= "MAX_UPLOAD = " . format_bytes($max_upload, 99) . "<\/b> \n";
if($create_files_by_rename){ $msg .= "CREATE_FILES_BY_RENAME = enabled<\/b> \n"; }
else{ $msg .= "CREATE_FILES_BY_RENAME = disabled<\/b> \n"; }
if($overwrite_existing_files){ $msg .= "OVERWRITE_EXISTING_FILES = enabled<\/b> \n"; }
else{ $msg .= "OVERWRITE_EXISTING_FILES = disabled<\/b> \n"; }
if($errors_to_browser){ $msg .= "ERRORS_TO_BROWSER = enabled<\/b> \n"; }
else{ $msg .= "ERRORS_TO_BROWSER = disabled<\/b> \n"; }
if($flock_flength_file){ $msg .= "FLOCK_FLENGTH_FILE = enabled<\/b> \n"; }
else{ $msg .= "FLOCK_FLENGTH_FILE = disabled<\/b> \n"; }
if($normalize_file_names){ $msg .= "NORMALIZE_FILE_NAMES = enabled<\/b> \n"; }
else{ $msg .= "NORMALIZE_FILE_NAMES = disabled<\/b> \n"; }
if($redirect_after_upload){
$msg .= "REDIRECT_AFTER_UPLOAD = enabled<\/b> \n";
if($redirect_using_html){ $msg .= "REDIRECT_USING_HTML = enabled<\/b> \n"; }
else{ $msg .= "REDIRECT_USING_HTML = disabled<\/b> \n"; }
$msg .= "REDIRECT_URL = <a href=\"$redirect_url?cmd=version\">" . $redirect_url . "<\/a> \n";
}
else{ $msg .= "REDIRECT_AFTER_UPLOAD = disabled<\/b> \n"; }
$msg .= "PROGRESS_URL = <a href=\"$progress_url?cmd=version\">" . $progress_url . "<\/a> \n";
$msg .= "ENVIRONMENT VARIABLES<\/b><\/u> \n";
foreach $key (sort keys(%ENV)){ $msg .= $key . " = " . $ENV{$key} . "<\/b> \n"; }
&kak($msg, 1);
}
############################################
# Rename uploaded file if it already exists
############################################
sub rename_filename{
my $file_name = shift;
my $count = shift;
my $path_to_file = $upload_dir . $file_name;
if(-e $path_to_file && -f $path_to_file){
if($file_name =~ /(.*)_(\d*)\.(.*)/){
# already renamed so count on
$count = $2 + 1 ;
$file_name =~ s/(.*)_(\d*)\.(.*)/$1_$count\.$3/;
}
else{
# not renamed so start counting
$file_name =~ s/(.*)\.(.*)/$1_$count\.$2/;
}
&rename_filename($file_name, $count);
}
else{ return $file_name; }
}
#######################
# Normalize file name
######################
sub normalize_filename{
my $file_name = shift;
my $delimiter = shift;
$file_name =~ s/[^a-zA-Z0-9\._-]/$delimiter/g;
$file_name = lc($file_name);
return $file_name;
}

Alles anzeigen

Aber dachte mehr das es an Xampp und den Server-Einstellungen liegt...

Teilen