nicht angemeldet
Hoi,
#!c:/perl/bin/perl
#!c:/perl/bin/perl -w
use strict;
require "cgi-lib.pl";
besser: use CGI qw/param/;
require "datum.pl";
$date = &ctime(time);
chop($date);
&parse_form;
Dieses &subroutine; ist perl4-Syntax. Ueberleg mal, auf subroutine(); umzusteigen.
if($username eq '')
wo wird $username gesetzt? Und, verwende mal $username !~ /\S/ oder so.
{&ohne}
else {&mit}sub mit {
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "Dein Name lautet: <i>$in{'username'}</i>\n";
Siehe das Posting von Jan R.: meintest du oben vielleicht $in{'username'}?
Gruesse,
CK