Hallo newsgroup,
die nachfolgende Anwendung von Marco(Admin-tool vom 10.12.2000 für die Verwaltung einiger Datenbanken)aus der bib habe ich in etwas anderer Form erfolgreich bei bp getestet.
Nun habe ich das Ganze bei netdirekt (bp + webspace) einzurichten versucht. Aber es geht partout nicht. Offensichtlich ist irgend eine kleine Macke drin.
Nach dem Eingeben des Passworts wird zwar die richtige Datenbank angezeigt, es lässt sich aber nichte ändern oder neu eingeben. Man wird immer wieder zurück zur Passwortabfrage geführt.
Ich habe noch zwei weitere Datenbanken vorgesehen, nach dem Aufruf werden aber wiederum nur Felder angezeigt, die eigentlich nur bei Eingangsdatenbank News zu finden sind.
Das kuriose ist, dass hin und wieder die richtigen Datenbanken angezeigt werden!
Kann jemand helfen?
Hier das vollständige Template (mit falscher domain)
<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">
<center>
<h1><font face="Arial, Helvetica, sans-serif" size="4">Administration D.N.</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"></font></h2>
<form action="http://meine-domain.de/cgi-bin/baseportal.pl?htx$htx/&db=News&listfields=Autor,Titel" 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?htx=$htx&db=Presse&listfields=Datum,Zeitung,Titel&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Kolummen</b></font></a></p>
<p><a href="baseportal.pl?htx=$htx&db=Kalender&listfields=Termin,Veranstaltung&namerein=$namerein&sid=$sid_aktuell"><b><font face="Arial, Helvetica, sans-serif">Kalender</font></b></a></p>
<p><a href="baseportal.pl?htx=$htx&db=News&listfields=Autor,Titel&namerein=$namerein&sid=$sid_aktuell"><b><font face="Arial, Helvetica, sans-serif">News</font></b></a></p>
<p><a href="baseportal.pl?htx=$htx&db=News&listfields=Autor&login_name=$namerein&logout=1"><b><font face="Arial, Helvetica, sans-serif" color=d80000>LOGOUT</font></b></a></p>
</td>
<td width="550">
<font face="Arial, Helvetica, sans-serif" size="3"><b></b></font><br><br>
<font face="Arial, Helvetica, sans-serif" size="3">
EOF
do_all "", "htx", "db", "listfields", "namerein", "sid", "range", "login_name"
out <<EOF;
</font>
</td>
</tr>
</table>
<p> </p>
EOF
}
</perl>
</center>
</body>
</html>
<!--, "databack=white", "datasize=2", "headback=e0e0e0", "border=0", "spacing=1", "padding=2", "gridcolor=b0b0b0", "dataface=arial,helvetica"-->
