Hallo Sander,
Hier mal der Quelltext ohne die Ausgabe und einfach nur mal ne TAN aus Time erstellt. Die Daten von $TAN kommen leider nirgens an. Irgndwo ist da noch ein (Denk-) Fehler drin. Oder ich bin mal wieder zu blöd.
Gruß
Claus
<html><head>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="0">
<meta http-equiv="cache-control" content="no-cache">
<title></title>
</head>
<body bgcolor=#000000 text=#ffcc99 link=#ccffff alink=red vlink=#eeeeee>
<perl>
$_header="Expires: 0\n";
$_header.="Pragma: no-cache\n";
$_header.="Cache-Control: no-store, no-cache, max-age=0, must-revalidate\n\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$usid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour)+$min;
if($logout eq "1")
{
mod "nutzer_name==$login_name", ["nutzer_usid", ""], "nutzer";
out"<a href=javascript:window.close();>Fenster schließen</a>";
}
if($namerein ne "" && $pwrein ne "" && $usid eq "")
{
get "nutzer_name==!$namerein","nutzer";
if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
{
mod "nutzer_name==$namerein", ["nutzer_usid", "$usid_aktuell","IP","$_REMOTE_ADDR"], "nutzer";
$usid="$usid_aktuell";
}else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
$login_name="";
}
}
if($namerein ne "" && $usid ne "")
{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
get "nutzer_name==$namerein", "nutzer";
$usid_max = $usid+3;
if($usid eq $nutzer_usid && $usid_aktuell <= $usid_max && $_REMOTE_ADDR eq $IP)
{
out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
mod "nutzer_name==$namerein", ["nutzer_usid", $usid_aktuell], "nutzer";
$usid=$usid_aktuell;
######### Ab hier alles rein, was nach login gemacht werden darf ##########
blablabla
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out " [ <a href=\"$_link&von=$oldrange&namerein=$namerein&usid=$usid\">zurück</a> ] " if $oldrange>=0;
out " [ <a href=\"$_link&von=$newrange&namerein=$namerein&usid=$usid\">weiter</a> ] " if $newrange<$_amount_query;
out "</p>";
out "</font></tr></table></div>";
out"<br><br>";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
}
if($namerein eq "")
{
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$TAN = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour)+$min;
out <<EOF;
<font color="#ffcc99">
<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://www.xxxxxxxxxxx.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td><font color="#ffcc99">Name:</font></td><td><input type="text" name="namerein="></td></tr>
<tr><td><font color="#ffcc99">Passwort:</font></td><td><input type="password" name="pwrein="></td></tr>
<input type=hidden name="tan" value="$TAN">
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form></font>
EOF
}
</perl>
</body></html>