<html><head>
<title>baseportal Datenbank</title>
</head><body bgcolor=ffffff>
<br><ul>
<perl>
put if %_put;
if($Id ne "")
{
get "Id==$Id";
if($xName)
{
if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Name",$xName,"Titel",$xTitel,"Nachricht",$xNachricht];
out "<b>Eintrag geändert...</b>";
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<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>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td>Titel:</td><td><input type="text" name="xTitel=" value="$Titel"></td></tr>
<tr><td>Nachricht:</td><td><input type="textarea" name="xNachricht=" value="$Nachricht"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
<tr><td></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>Titel</td><td>Nachricht</td></tr>";
while(get_next)
{
out "<tr><td><a href=\"$_link&Id=$_id\">$Name</a></td><td>$Titel</td> <td>$Nachricht</td></tr>";
}
out "</table>";
