out <<EOF;

<p ><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/2pex/taschenkunst/Termin">Eventtermin eintragen?</a></p>

<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">

<center>

<tr><td>Passwort:</td><td><input type="password" name="pawrein="></td></tr>

EOF

out <<EOF;

EOF

    do_all "db=Taschenkunst cmd=$cmd verantwortlich==!$namerein sort=Page listfields=Titel,Jahrgang,Produzent
formfields=verantwortlich,Titel,Produzent searchfields=Titel allfields=Titel,Jahrgang,Besitzer,Produzent,Nation,Technik,Material,Format,Typ,Auflage,Serienname,Serienmenge,Premiere,Referenz,Motiv,Satzpreis,Einzelpreis,notizen

} else

  {
    out "<b>Login fehlgeschlagen!</b>";

    $namerein="";
    $login_name="";

  }
}