Hallo EisFuX,
mein Problem ist das dein Code:
sub upload_hook {
my (
$file_name, # temp file name
$buffer, #
$bytes_read,
$umid
) = @_;
# ... verarbeite diese Daten
}
# ...
my $cgi = CGI->new(\&upload_hook);
ausgeführt wird nachdem mein File komplett auf dem Server transferiert wurde.
Der CGI Hook wird dann einmal ausgeführt und das wars.
Das ist auch mein Problem das genau dieser Code nicht funktioniert.
Leider kennen scheinbar 99% der Perl Programmierer diesen Hook nicht und ihnen ist scheinbar nicht klar das es nötig ist diesen Hook aufzusetzen bevor man den eigentlichen Datei-Transfer startet.
Der Ablauf ist folgender:
1: User klickt auf abschicken
2: Das .pl Script startet
3: Hook registrieren
4: Zugriff auf bestimmte bereiche des CGI Moduls die den File Transfer starten
5: Wärend des Uploads wird immer wieder der Hook ausgeführt
6: Zugriff auf das Filehandle der Uploads is möglich
7: Ausgabe des Perl Scripts
Bei mir ist der Ablauf allerdings anders und ich denke das das an einer Servereinstellung liegt:
1: User klickt auf abschicken
2: File Transfer startet
3: File Transfer ist abgeschlossen
4: Das .pl Script startet
5: Registrieren des Hooks
...
Grüße Jan