Hi Oliver und Marco,
hier mein Quelltext. Hat ein bisschen länger gedauert, war den ganzen Tag OHNE STROM(Büro Umbau):
<html>
<head>
<title>Administration</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<STYLE type=text/css>
H3{font-family:Arial;font-size:14pt;color:silver;text-decoration:none}
P{font-family:Arial;font-size:9pt;color:black;text-decoration:bold}
H4{font-family:Arial;font-size:9pt;color:red;text-decoration:bold}
H5{font-family:Arial;font-size:7.5pt;color:black;text-decoration:none}
H2{font-family:Arial;font-size:12pt;color:silver;text-decoration:none}
TD{font-family:Arial;font-size:9pt;color:black;text-decoration:none}
TR{font-family:Arial;font-size:9pt;color:black;text-decoration:none}
A:active{font-family:Arial;font-size:9pt;color:red;text-decoration:none}
A:link{font-family:Arial;font-size:9pt;color:navy;text-decoration:none}
A:visited{font-family:Arial;font-size:9pt;color:navy;text-decoration:none}
A:hover{font-family:Arial;font-size:9pt;color:navy;text-decoration:unterline}
</STYLE>
</head>
<body bgcolor="#F0F0F0" 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>
<p>Bitte melden Sie sich an:</p>
<form
action="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=adress_stamm&input=no&listfields=Firmenname,FirmenPLZ,InternetAd
resse" 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="800" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="220">
<p><a href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=adress_stamm&sort=Firmenname&input=no&buttonbrowse=yes/top/bottom&listfields=Firmenname,Firmenstrasse,FirmenPLZ,FirmenLand,Firmenort&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Adress-Stamm</b></font></a></p>
<HR WIDTH="90%" SIZE=1>
<p><a
href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=adress_stamm&sort=-&input=no&buttonbrowse=yes/top/bottom&listfields=Firmenname,Firmenstrasse,FirmenPLZ,FirmenLand,Firmenort&namerein=$namerein&sid=$sid_aktuell"><font face="Arial,Helvetica, sans-serif"><b>Letzte Einträge</b></font></a></p>
<p><ahref="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=firmenlogos&sort=Firmenname&listfields=Firmenname,Firmenlogos&input=no&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Firmenlogos alphabetisch</b></font></a></p>
<p><a href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=firmenlogos&showamount=no&selectbrowse=no&indexbrowse=no&pagebrowse=no&detail=no&cmd=do_add&namerein=$namerein&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Firmenlogo anlegen</b></font></a></p>
<HR WIDTH="90%" SIZE=1>
<p><a href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=branchen&sort=Branche&listfields=Branche&input=no&namerein=$namere
in&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Branchenliste alphabetisch</b></font></a></p>
<p><a
href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=branchen&sort=Branche&showamount=no&selectbrowse=no&indexbrowse=no&pagebrowse=no&detail=no&cmd=do_add&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Branche anlegen</b></font></a></p>
<HR WIDTH="90%" SIZE=1>
<p><a href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=laender&sort=Land&listfields=Land&input=no&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Länderliste alphabetisch</b></font></a></p>
<p><a href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=laender&sort=Land&showamount=no&selectbrowse=no&indexbrowse=no&pagebrowse=no&detail=no&namerein=$namerein&cmd=do_add&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Land anlegen</b></font></a></p>
<HR WIDTH="90%" SIZE=1>
<p><a href="http://meineDomain/cgi-bin/baseportal.pl?htx=$htx&db=adress_stamm&listfields=Firmenname,FirmenPLZ,InternetAdresse,Branche,Produkte,KdNr,Startdatum,Paketart,Hintergrund_Aktiv,Freigegeben,Eintrag_von&login_name=$namerein&logout=1"><b><font face="Arial, Helvetica, sans-serif"
color=d80000>LOGOUT</font></b></a></p></td><td width="700">
do_all "", "htx", "db", "input=no", "listfields", "namerein", "sid", "range", "login_name";
</table>
EOF
</body>
Gruß Jürgen
