Datei Informationen vor dem Upload Abfangen (Seite 2) (Perl/CGI)

[thread]498[/thread]

Datei Informationen vor dem Upload Abfangen (Seite 2)

2005-06-08 09:39

User since
2003-08-04
12209 Artikel
Admin1

[quote=Keanuf,07.06.2005, 22:44]@pq was meinst du denn mit sofort ausgeben ??

Sobald der User den Bestätigungsbutton betätigt hat,
oder wenn dann dein Skript reagiert ??

Also bei mir scheint das Skript erst zu reagieren, wenn die Datei durch den Apache empfangen wurde.
Das merk ich, wenn ich grössere Dateien aufspiele.[/quote]
du musst die abfrage vor dem laden (bzw. initialisieren) von CGI.pm machen.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Keanuf

2005-06-09 02:46

User since
2005-06-02
9 Artikel
BenutzerIn

Quote
Hast Du versucht, an den Anfang des Scriptes zu schreiben:
Code

#!/usr/bin/perl
use strict;
use CGI::Carp qw/fatalsToBrowser/;

die "Datei zu lang\n" if $ENV{CONTENT_LENGTH} > 5000000;

Ja das habe ich schon probiert ohne Erfolg.
Trotzdem Danke.

Quote

du musst die abfrage vor dem laden (bzw. initialisieren) von CGI.pm machen.

Ok das versuch ich dann mal.
Ich meld mich dann wieder.
pq Danke ersteinmal

esskar

2005-06-11 00:34

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hab mal folgendes auf script getestet:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

BEGIN {
    if($ENV{'REQUEST_METHOD'} eq 'POST') {
        print "Content-Type: text/html\n\n";
        print "Content-Length: ".$ENV{'CONTENT_LENGTH'}."\n";
        exit(0);
    }
}

print "Content-Type: text/html\n\n";
print qq~
<html>
<head>
<title>Stop Upload Test</title>
</head>
<body>
<form method="post" action="stopupload.pl" enctype="multipart/form-data">
<input type="file" name="file" />
<input type="submit" />
</form>
</body>
</html>
~;

Danach sieht es so aus als ob die Datei erst hoch-geladen wird, und dann das script gestartet...
aber wahrscheinlich kann man sowas auch dem apache sagen... dafür brauch man dann aber root-zugriff... oder?

2005-06-11 16:32

User since
2003-08-04
12209 Artikel
Admin1

[quote=esskar,10.06.2005, 22:34]hab mal folgendes auf script getestet:
...

Danach sieht es so aus als ob die Datei erst hoch-geladen wird, und dann das script gestartet...[/quote]
mach mal ein print auf STDERR und guck, wann das im log erscheint.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

esskar

2005-06-11 16:41

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=pq,11.06.2005, 14:32]mach mal ein print auf STDERR und guck, wann das im log erscheint.[/quote]
wenn die datei oben ist!

2005-06-11 16:54

User since
2003-08-04
12209 Artikel
Admin1

[quote=esskar,11.06.2005, 14:41][quote=pq,11.06.2005, 14:32]mach mal ein print auf STDERR und guck, wann das im log erscheint.[/quote]
wenn die datei oben ist![/quote]
dann ist es vermutlich wirklich eine konfigurationssache.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Gast Gast

2005-06-11 18:39

IIRC kann man sich per PerlInitHandler und upload_hook direkt in den Prozess reinhängen. Der Hook wird dann wohl alle n Bytes aufgerufen.

hth, p

View all threads created 2005-06-03 03:02.