Hallo users,
vielleicht könnt ihr mir ja bei meinem Problem behilflich sein. Ich habe versucht das Admin-Tool mit SID aus der BIB für meine Datenbank "News" umzubauen.
Läuft auch soweit, bis auf die Tatsache, dass ich die Zeilen weder löschen oder ändern kann. Bei klick auf löschen oder Ändern wird die Seite geschlossen, und ich befinde mich wieder aud der Seite zum einloggen mit der Fehlermeldung "Anmeldung fehlgeschlagen!" Liegt es vielleicht an der SID-Konfiguration?
Kann eine von Euch damit etwas anfangen. Ich habe einmal den Quelltext der Admin- Seite begefügt.
______________________________________________
<html>
<head>
<title>Administration</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0"
marginheight="0">
<h1><font face="Arial, Helvetica, sans-serif"
size="4">Administration</font></h1>
<perl>
if($logout eq "1")
{
mod "nutzer_name==$login_name", ["nutzer_sid", ""], "nutzer";
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
$anzeige="";
if($namerein ne "" && pwrein ne "" && $sid eq "")
{
get "nutzer_name==!$namerein", "nutzer";
out "<!-- abfrage ob Login-Name und Passwort übereinstimmen -->";
if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
{
out "<!-- Session-Id erstellen und mit Url mitgeben -->";
mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";
$anzeige="1";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
$login_name="";
$anzeige="";
}
}
if($namerein ne "" && $sid ne "")
{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
get "nutzer_name==$namerein", "nutzer";
$sid_max = 10+(1*$nutzer_sid);
if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max)
{
out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";
$anzeige="1";
} else
{
out "<!-- session-id ist abgelaufen -->";
$login_name="$nutzer_name";
$namerein="";
$anzeige="";
}
}
out "<!-- login-seite -->";
if($namerein eq "")
{
out <<EOF;
<h2><font face="Arial, Helvetica, sans-serif" size="3">Anmeldung</font></h2>
<form
action="http://wart4you.de/cgi-bin/baseportal.pl?htx=$htx&db=news&listfields=Datum,Text,Titel,Autor,Bild"
method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Login-Name:</td><td><input type="text" name="namerein="
value="$login_name"></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
}
out "<!-- anzeige des inhalts, falls berechtigt -->";
if($anzeige eq "1")
out <<EOF;
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="150">
</td>
<td width="550">
EOF
do_all"", "htx", "db", "listfields", "namerein", "sid", "range", "login_name";
out <<EOF;
</td>
</tr>
</table>
<p> </p>
EOF
</body>
