<perl>

{
  get "Name==!$namerein", "nutzer";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
if ($cmd eq "del")
{
$cmd="";
out "Diese Aktion ist nicht verfügbar";
}
    do_all "", "namerein", "pwrein";
  } else
  {
    out "<b>Leider ist die Antwort falsch, bitte versuchen Sie es noch einmal. Senden Sie ein SMS an 9229 mit: BIGBLUE Wie gehts ?
</b>";
    $namerein="";
  }
}

{

<h2>Gewinncode Anmeldung</h2>Trage hier den SMS Gewinncode ein:<br><br>
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Gewinncode:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><br><input type=submit value="Gewinncode abschicken"></td></tr>
</table></form>
EOF

</perl>