das News-Template:
<table width=100%>
<tr><td>
<br>
<loop db=News sort=->
<font face="verdana,arial" size="2" color="#0000FF"><b>$Datum</b> <b>$Titel</b></font>
<br>
<font face="arial" size="2" color="#000000"><ul>
$News</ul></font>
<br>
</loop>
<font face="VERDANA,ARIAL,HELVETICA" color="#3A59AB" size="2"><b>
<br><br>
if($namerein ne "")
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all "cmd^=do_add", "namerein", "pwrein";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
out <<EOF;
Admins only: Bitte einloggen, um News einzugeben:
<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>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>
<br><br>
</td></tr>
</table>
<include src=navigationend>
und das template inputnews (bis auf das eingefügte db=News identisch mit dem letzten teil des news-templates, nur klappt es net, während es im news-template selbst funktioniert):
<table>
<tr>
<td>
<perl>
if($namerein ne "")
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all db=News "cmd^=do_add", "namerein", "pwrein";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
out <<EOF;
Admins only: Bitte einloggen, um News einzugeben:
<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>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>
</td>
</tr>
</table>
