Von Perl 5.8.7 -> 5.8.8 upload funktioniert nicht mehr (Seite 4) (Allgemeines zu Perl)

[thread]10962[/thread]

Von Perl 5.8.7 -> 5.8.8 upload funktioniert nicht mehr (Seite 4)

Leser: 2

GwenDragon

2007-12-20 17:07

User since
2005-01-17
14837 Artikel
Admin1

Beim Aufruf deines upload.cgi wird nichts hochgeladen.
Irgendwo hast du einen Fehler entweder in deinem HTML-Formular oder anderen Skripten.

Du kannst noch ein

Code (perl): (dl )

use Data::Dumper;

am Anfang des Codes einbinden und dann mal auf STDERR ausgeben, was an das CGI beim Affruf übergeben wird.
Das nmachst du, in dem du dann nach der Zuweisung

Code (perl): (dl )

 my $cgi = CGI->new();

noch

Code (perl): (dl )

print STDERR Dumper($cgi);

einbindest.
Damit werden die Inhalte des Objekts $cgi an die Fehlerausgabe geschrieben und erscheinen im error.log deines Webservers.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Tom

2007-12-22 18:22

User since
2003-09-20
470 Artikel
BenutzerIn

Habe ich eingebaut, aber es wird nichts in die Datei error.log geschrieben.

Was mich irritiert ist, dass es ohne den Aufruf der Funktion &addsession (siehe Beitrag 11) funktioniert, also kann es doch nicht an der Übergaben des filehandles liegen oder?

EDIT

Jetzt macht auch der Aufruf von my $cgi = new CGI; in der Funktion header Probleme ( Siehe Beitrag 8 Codezeile:22)

Ich weiß echt nicht mehr was ich machen soll. :(

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

Tom

2007-12-22 19:18

User since
2003-09-20
470 Artikel
BenutzerIn

So nachmal ich, wenn ich in der Sub upload_file, print STDERR Dumper($cgi); schreibe erhalte ich unter Perl 5.8.7 folgende Ausgabe

Quote
$VAR1 = bless( { '.parameters' => [ 'user_pic', 'action', 'Button' ], '.charset' => 'ISO-8859-1', 'Button' => [ 'Upload' ], 'action' => [ 'upload' ], '.fieldnames' => {}, 'user_pic' => [ bless( \*{'Fh::fh000010010.JPG'}, 'Fh' ) ], '.iterator' => 4, 'escape' => 1 }, 'CGI' ); $VAR1 = bless( { '.parameters' => [ 'user_pic', 'action', 'Button' ], '.charset' => 'ISO-8859-1', 'Button' => [ 'Upload' ], 'action' => [ 'upload' ], '.fieldnames' => {}, 'user_pic' => [ bless( \*{'Fh::fh000010010.JPG'}, 'Fh' ) ], '.iterator' => 4, 'escape' => 1 }, 'CGI' );

Unter Perl 5.8.8 folgende

Quote
$VAR1 = bless( { '.parameters' => [ 'user_pic', 'action', 'Button' ], 'use_tempfile' => 1, '.tmpfiles' => { '*Fh::fh000010010.JPG' => { 'info' => { 'Content-Type' => 'image/jpeg', 'Content-Disposition' => 'form-data; name="user_pic"; filename="0010.JPG"' }, 'name' => bless( do{\(my $o = 'C:\\temp\\CGItemp56214')}, 'CGITempFile' ), 'hndl' => bless( \*{'Fh::fh000010010.JPG'}, 'Fh' ) } }, 'user_pic' => [ $VAR1->{'.tmpfiles'}{'*Fh::fh000010010.JPG'}{'hndl'} ], 'Button' => [ 'Upload' ], '.charset' => 'ISO-8859-1', 'action' => [ 'upload' ], '.fieldnames' => {}, '.iterator' => 4, 'escape' => 1 }, 'CGI' ); $VAR1 = bless( { '.parameters' => [ 'user_pic', 'action', 'Button' ], 'use_tempfile' => 1, '.tmpfiles' => { '*Fh::fh000010010.JPG' => { 'info' => { 'Content-Type' => 'image/jpeg', 'Content-Disposition' => 'form-data; name="user_pic"; filename="0010.JPG"' }, 'name' => bless( do{\(my $o = 'C:\\temp\\CGItemp56214')}, 'CGITempFile' ), 'hndl' => bless( \*{'Fh::fh000010010.JPG'}, 'Fh' ) } }, 'user_pic' => [ $VAR1->{'.tmpfiles'}{'*Fh::fh000010010.JPG'}{'hndl'} ], 'Button' => [ 'Upload' ], '.charset' => 'ISO-8859-1', 'action' => [ 'upload' ], '.fieldnames' => {}, '.iterator' => 4, 'escape' => 1 }, 'CGI' ); [Sat Dec 22 18:09:17 2007] upload.cgi: binmode() on closed filehandle fh000010010.JPG at D:\...\upload.cgi line 189. [Sat Dec 22 18:09:17 2007] upload.cgi: read() on closed filehandle fh000010010.JPG at D:\...\upload.cgi line 194.

Deutet da was auf den Fehler hin?

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

styx-cc

2007-12-22 22:23

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Tom+2007-12-22 18:18:17--

Quote
[...] [Sat Dec 22 18:09:17 2007] upload.cgi: binmode() on closed filehandle fh000010010.JPG at D:\...\upload.cgi line 189. [Sat Dec 22 18:09:17 2007] upload.cgi: read() on closed filehandle fh000010010.JPG at D:\...\upload.cgi line 194.

Deutet da was auf den Fehler hin?

Tom

Pörl.

Tom

2007-12-23 20:44

User since
2003-09-20
470 Artikel
BenutzerIn

styx-cc+2007-12-22 21:23:25--
Tom+2007-12-22 18:18:17--

Quote
[...] [Sat Dec 22 18:09:17 2007] upload.cgi: binmode() on closed filehandle fh000010010.JPG at D:\...\upload.cgi line 189. [Sat Dec 22 18:09:17 2007] upload.cgi: read() on closed filehandle fh000010010.JPG at D:\...\upload.cgi line 194.

Deutet da was auf den Fehler hin?

Tom

Das ist schon klar, aber warum kommt das nach einem Versionssprung von Perl 5.8.7 auf 5.8.8?

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

ptk

2007-12-23 21:04

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Es wurden andere CGI.pm-Versionen ausgeliefert. Mit corelist -a CGI bekomme ich:

5.008007 3.10
5.008008 3.15

Tom

2008-01-04 16:26

User since
2003-09-20
470 Artikel
BenutzerIn

ptk+2007-12-23 20:04:29--
Es wurden andere CGI.pm-Versionen ausgeliefert. Mit corelist -a CGI bekomme ich:

5.008007 3.10
5.008008 3.15

Also bei mir sind das folgende Versionen

5.8.7 $CGI::VERSION='3.10';
5.8.8 $CGI::VERSION='3.29';

Aber was kann ich da machen? Denn mit der alten funktioniert es ja.

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

ptk

2008-01-04 23:33

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Du kannst
* einen Bugreport an den CGI-Autor oder an ActiveState schreiben
* downgraden

Tom

2008-01-11 18:18

User since
2003-09-20
470 Artikel
BenutzerIn

Hab das ganze jetzt mit CGI:Upload gelöst.

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

View all threads created 2007-12-06 02:28.