Habe das Admin-Tool mit S_ID aus der BIB für meine Datenbank "NEWS" umgestrickt.
Die Ausgabe der Datenbank funktioniert prima nur wenn ich die Daten ändern oder löschen möchte, dann schmeisst micht das Programm raus und ich lande wieder bei der Admin-Seite.
Ich habe mal den Quelltext meiner Admin-Seite beigefügt. Vielleicht findet ein noch schlauerer Kopf meinen Fehler.
Grüße Kai
______________________________________________________________________
<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">
<p><a href="baseportal.pl
<p><a href="href="baseportal.plhtx=$htx&db=news&listfields=Datum,Text,Titel,Autor,Bild&login_name=$namerein&logout=1"><b><font face="Arial, Helvetica, sans-serif" color=d80000>LOGOUT</font></b></a></p>
</td>
<td width="550">
EOF
do_all"", "htx", "db", "listfields", "namerein", "sid","range", "login_name";
</table>
EOF
</body>
