hi Volker,
Und das kuriose ist ja,das alles mit dem IE geht,nur bei NetscapeMozilla macht er diese Faxen.
nunja, die headers welche die Browser senden sind unterschiedlich.
uploadInfo() zeigt dir diese header an, vielleicht wird das irgendwo im Script verwendet?
Wie oder wo muss ich das uploadInfo() einfügen? Im upload-CGI-Script?
Hier mal der Code von meinem upload-script:
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
use vars qw($exlock $unlock $LZeit $Logzeit $ip $path @Pfad $home $public_path $data_path $Beschr $Empf $Datei $user $BeschrLe
ngth);
$exlock=2;
$unlock=8;
#---------------------------------------------------------
Aktuelles Datum erstellen
#---------------------------------------------------------
my $CTIME = localtime(time);
$CTIME =~ /^([A-Za-z]*?)\s*([A-Za-z]*?)\s*(\d*?)\s*(\d*?):(\d*?):(\d*)\s*(\d*)$/;
my $Tag = $1;
my $Monat = $2;
my $Monatstag = $3;
my $Stunden = $4;
my $Minuten = $5;
my $Sekunden = $6;
my $Jahr = $7;
my %Monate = (Jan => "01", Feb => "02", Mar => "03", Apr => "04", May => "05", Jun => "06",
Jul => "07", Aug => "08", Sep => "09", Oct => "10", Nov => "11", Dec => "12");
$LZeit = $Jahr.$Monate{$Monat}.$Monatstag.".".$Stunden.$Minuten.$Sekunden;
$Logzeit = $Monatstag.".".$Monate{$Monat}.".".$Jahr." ".$Stunden.":".$Minuten.":".$Sekunden;
$ip = $ENV{'REMOTE_ADDR'};
$path = $ENV{'SCRIPT_FILENAME'};
if ( $path =~ tr/!|;\*~<>[]{}()$&#`// ) { die "Pfad ungültig"; }
@Pfad = split '/', $path;
$home = "/$Pfad[1]/$Pfad[2]/$Pfad[3]";
$public_path = "$home/public_html/$Pfad[5]";
$data_path = "$home/data/$Pfad[5]";
#---------------------------------------------------------
Html-Formular auslesen
#---------------------------------------------------------
$Beschr = $cgi->param('beschreibung');
$Empf = $cgi->param('Empf');
$user = $cgi->param('usr');
$BeschrLength = "0";
require "$home/scripts/upload.pm";
Der eigentlich Upload findet dann in upload.pm statt,aber da springt er gar nicht mehr rein,wenn die Datei größer als 7,5kb ist!!!!!!!!
Viele Grüße,
Volker