N' Abend!
Folgendes Script funktioniert bei mir nur mit der GET-Methode.
POST will einfach nicht.
Hab nach einem Tag ununterbrochenem "durchs www quälen" schon fast aufgegeben...
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $mycgi = new CGI;
print $mycgi->header(), $mycgi->start_html();
my $eingabe = undef;
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$eingabe,$ENV{'CONTENT_LENGTH'});
}
else {
$eingabe = $ENV{'QUERY_STRING'};
}
if ($eingabe eq undef) {
print $mycgi->start_form({ -action => 'index.cgi',
-method => 'post',
-name => 'namenformular' }),
$mycgi->textfield({ -size => '40',
-name => 'name' }),
$mycgi->submit({ -value => 'Go' }),
$mycgi->end_form();
}
else {
print $eingabe;
}
print $mycgi->end_html();
Im Voraus vielen Dank für eure Hilfe!
greez