<perl>
if($namerein ne "")
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
out <<EOF;

<input type=hidden name="namerein=" value="$namerein"><input type=hidden name="pwrein=" value="$pwrein"><input type=hidden name="numma=" value="$numma"><input type=hidden name="htx=" value="/marcoweber/board"><input type=hidden name="cmd=" value="add">
<table><tr><td align=right><p class="text">Name:
EOF

out <<EOF;
</p></td><td><input type="hidden" name="Name:=" size=20 value="$Vorname $Name" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"><p class="text">$Vorname $Name</p></td></tr>
<tr><td align=right><p class="text">Zeit:</p></td><td><p class="text">
EOF

  out datum("jetzt","Tag0.Monat0.Jahr, Stunde:Minute");
out <<EOF;
</p></td></tr>
<tr><td align=right><p class="text">Kommentar:</p></td><td><textarea name="Text:=" cols=30 rows=3 wrap=virtual style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></textarea></td>
</tr><tr><td></td><td nowrap><br><br><input type=submit value="Abschicken" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;">  <input type=reset value="Zur&uuml;cksetzen" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr></table></form>
EOF
}
}
</perl>