Ich habe in NMS Formmail wie beschrieben nach 'use CGI;'
$CGI::POST_MAX = 1024 * 100;
definiert. Zum Test nur
$CGI::POST_MAX = 1024;
Dann habe ich wesentlich längeren Text im Formular abgeschickt, ohne daß dies zurückgewiesen wurde.
Hat jemand eine Idee, woran das liegt ?
Noch besser, hat jemand ein kleines Beispiel, wo es funktioniert ?

[Zitat]
An attempt to send a POST larger than $POST_MAX bytes will cause param() to return an empty CGI parameter list. You can test for this event by checking cgi_error(), either after you create the CGI object or, if you are using the function-oriented interface, call <param()> for the first time. If the POST was intercepted, then cgi_error() will return the message ``413 POST too large''.

This error message is actually defined by the HTTP protocol, and is designed to be returned to the browser as the CGI script's status code.
[/Zitat]

hier ist ein Beispiel:

if (cgi_error()) {
print header(-status=>cgi_error());
exit 0;
}

Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)

Habe es versucht, aber in meiner weißen Weste bzgl. CGI
vermutlich etwas vergessen.
Mein Script-Anfang:

use strict;
use vars qw(
$DEBUGGING $emulate_matts_code $secure %more_config ...);
use CGI;
BEGIN
{
$DEBUGGING = 0;
......
$query = new CGI;
use CGI::Carp 'fatalsToBrowser';
$CGI::POST_MAX=1024;

if (cgi_error()) {
print header(-status=>cgi_error());
exit 0;
}
.......


Es kommt dann der Fehler:
feedback.pl: Undefined subroutine &main::cgi_error called at C:/apachefriends/xampp/htdocs/mycgi-bin/feedback.pl line 79., referer: http://localhost/mycgi-bin/kontakt.pl

das muss natürlich so sein:

use CGI;

$query = new CGI;
$CGI::POST_MAX=1024;

if ($query->cgi_error()) {
print $query->header(-status=>$query->cgi_error);
exit 0;
}



Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)

Hallo oesi50,
danke für die schnelle Antwort.
Der Fehler ist jetzt weg, aber die Daten werden anstandslos übertragen ?!

use CGI;
$CGI::POST_MAX=1024;

schreib das mal direkt nach 'use CGI;'

Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)

Hat leider nichts verändert.
Ich gebs auf für heute.
Danke und schönen Abend noch.

Hallo oesi50,
hast Du vielleicht noch eine Idee oder ein kleines komplettes Beispiel ?

Das hier ist ein komplettes Beispiel.


#!/usr/bin/perl

use CGI;
$CGI::POST_MAX=1024;

$query = new CGI;

if ($query->cgi_error()) {
print $query->header(-status=>$query->cgi_error);
print "Zu viel Daten";
exit 0;
}
print "Content-type: text/plain\n\n";
print "alles ok";


Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)

Wenn ich es so isoliert laufen lasse, funktioniert es bei mir auch, aber wenn ich es in mein NMS Formmail einbaue, klappt es nicht mehr. Da ich wenig Ahnung von Perl habe, weiß ich auch nicht
wo ich ansetzen soll !
Denn die Fehlermeldung
Unknown error at (eval 11) line 70
sagt mir gar nichts, insbesondere da auf line 70 gar kein Statement steht. Was bedeutet denn das eval 11 ?

wo kann man dein Script mal im Quelltext sehen?

am besten, du speicherst es als .txt und postest hier die uri.


Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)

http://www.skuriles.de/feedback.txt

hallo Wastl,

lies mal deine persönlichen Nachrichten.


Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)

Hallo oesi50,
danke es klappt !
Vielleicht kannst Du mir auch noch helfen, einen kleinen Schönheitsfehler zu korrigieren.
Die Übertragung zu großer Mengen wird zwar verhindert, es kommen
dann aber im Mail und im Antwortformulare keine der eingegebenen Daten.
Dies ist OK, schön wäre es aber, wenn ein Fehlerhinweis kommen würde.
Danke!