Tabellen - CGI - Sendmail

[Cheatah]

Hi,

read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});

argh.

<Gebetsmühle>
Laß diesen Uralt-Code, er ist fehlerhaft. Benutze das CGI-Modul:

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard *table);
print header, start_html('Testseite'), startform, start_table;
foreach (param) { print tr(td({-width=>'10%'}, $_:), td({width=>'5%'}, textfield(-name=>$_, -size=>30, -value=>param($_), -readonly))); }
print end_table, endform, end_html;

Ungetesteter Quickhack.

print "<tr valign=top><td width=10%>$Formular{$name}:</td><td width=5%></td><td width=10%><input readonly type=text size=30 name=$Formular{$name} value=$Formular{$value}></td></tr>\n";

Ich würde mir an Deiner Stelle mal den ausgegebenen HTML-Quellcode ansehen. Dein Fehler dürfte Dir ziemlich schnell auffallen, wenn Du die Grundregeln von HTML beherrschst.

Cheatah