<perl>
 if($namerein ne "")
 {
   get "Name==!$namerein", "nutzer";
    if($Passwort ne "" && $Passwort eq $pwrein)
   { 
      get "Name==*", "adressen";
      my @ad;
      while(get_next("adressen"))
      {push(@ad,"$Email");}

#array um nicht auch ein trenner nach dem letzten element zu haben. 
      out "<BR><BR><BR>mail an <a href=\"mailto:";
      out join(',%20',@ad);
      out '">alle</a>';
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
 }
 if($namerein eq "")
 {
 out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=adressen" 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>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
EOF
}
</perl>