{
get "Id==$Id";
if($xEmail)
{ if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Email",$xEmail,"URL",$xURL];
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>src="http://www.onlinechance.de/bilder/buttons/privat/%E4nderneintr%E4ge.gif" width="226" height="36"> </h3>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></td>
<td>
<input type="text" name="xEmail=" value="$Email">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">URL:</font></td>
<td>
<input type="text" name="xURL=" value="$URL">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Passwort:</font></td>
<td>
<input type="password" name="xPasswort=">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td>
<input type=submit value="Abschicken">
</td>
</tr>
</form>
</table>
EOF } out "
<p><a href=\"$_link\">Neuer Eintrag</a>"; } else { out "
<h3>Neuer Eintrag</h3>
"; out "Mit dem Passwort können Sie den Eintrag später bearbeiten."; init; get;
list "add"; } get; out "
<h3>Liste aller Einträge</h3>
"; out "
<table>
<tr>
<td>Name</td>
<td>Telefon</td>
</tr>
"; while(get_next) { out "
<tr>
<td><a href=\"$_link&Id=$_id\">$Name</a></td>
<td>$Telefon</td>
</tr>
"; } out "
</table>
"; </perl> </body></html> powered by baseportal.de
