Hallo,
da ich als Anfänger eine gute Doku brauche (und keine finde), habe ich mal wieder ein PW Problem.
Im Thread
http://forum.baseportal.de/baseportal/baseportal/forum&wcheck=1&Pos=10062
beschrieb ich mein Problem.
Zum Schluß wurde die DB zwar dargestellt, aber wenn ich auf ändern klicke, werde ich ausgeloggt.
(Unten im Anschluß der Code)
Zwar habe PW Schutz für einzelne DBs hinbekommen, aber wenn mein Kunde sich für jede DB neu anmelden muss, ist das nervig.
Daher der o.g. Schutz.
Zum Thema Doku:
Gerade Anfänger (in Sachen Programmierung/Anpassung) wie ich brauchen eine gute Doku.
Wie könnte diese aussehen:
- Darstellung der Anpassung in bekannten Bib Projekten (vor allem PWs, solange es nicht eingebaut ist)
- mögliche Fehler in Perl Codes (wie die eine Code Frage im BP Quiz z.B.)
Auch wenn ich hier ein Tabu anstosse:
Ich würde mir wünschen, dass Miet/Lizenzkunden Support bekommen. (Schließlich zahlen wir auch für die Accounts)
Nichts für ungut.
TF
---
So, hier jetzt der Code für das ganz oben genannte Problem:
<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="/baseportal.pl?htx=$htx&db=einleitung&listfields=ueberschrift,text" 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=einleitung&listfields=ueberschrift,text&namerein=$namerein&sid=$sid_aktuell"><b>Homepage Einleitung</b></a></p>
<p><a href="/baseportal.pl?htx=$htx&db=db=einleitung&listfields=ueberschrift,text&login_name=$namerein&logout=1"><b><font face="Arial, Helvetica, sans-serif" color=d80000>LOGOUT</font></b></a></p>
EOF
do_all "db=einleitung", "htx", "listfields", "namerein", "sid", "range", "login_name", "sort", "datasize", "headsize";
out <<EOF;
</td>
</tr>
</table>
<p> </p>
EOF
