nicht angemeldet
Hallo zusammen!
Versuche seit Tagen die folgende Abfrage zum Funktionieren zu bringen. Das Script soll prüfen, ob im Formularfeld ein Namen
eingegeben wurde.
Wenn ich das Script ausführe, wird aufgrund der if-Überprüfung immer jene Subroutine ausgeführt, zuerst notiert ist (in diesem Fall "ohne"). Die Überprüfung scheint nicht durchgeführt zu werden, was mach ich falsch?
Ich verwende ActivePerl 5.6 und Apache 1.3.23.
#!c:/perl/bin/perl
require "cgi-lib.pl";
require "datum.pl";
$date = &ctime(time);
chop($date);
&parse_form;
if($username eq '')
{&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";
}
sub ohne {
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "Name fehlt\n";
}