<include src=/bestguide/bg_p/bg_psub1>
<title>Menu +++</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<perl>
&do_variablen; # Setzen Standardparameter
</perl>
<link rel="stylesheet" href="$gv_cssfile" type="text/css">
<script language="JavaScript" type="text/javascript">
<!-------------------------------------------------->
<!-- JS formcheck Eingabe-Prüfung -->
<!-------------------------------------------------->
<!--
function formcheck_login()
{
if (!document.forms[0].elements["namerein="].value)
{
alert("Bitte geben Sie Ihre NUTZER-ID ein");
document.forms[0].elements["namerein="].focus();
return false;
}
if (!document.forms[0].elements["pwrein="].value)
{
alert("Bitte geben Sie Ihr PASSWORD ein");
document.forms[0].elements["pwrein="].focus();
return false;
}
}
//-->
</script>
</head>
<perl>
&do_sid; # Generieren Session-ID
#------------------------------------------------#
#- Logout #
#------------------------------------------------#
if ($cmd eq "logout")
{
mod "us_nickname==$namerein", ["us_session_id", ""], "$gv_userfile";
$namerein = "";
}
#------------------------------------------------#
#- Login #
#------------------------------------------------#
elsif ($cmd eq "login")
{
if ($namerein ne "" && $pwrein ne "" && $sid eq "")
{
get "us_nickname==!$namerein","$gv_userfile";
if ($us_password1 ne "" && $us_password1 eq $pwrein)
{
$save_lastvisit = $us_lastvisit;
mod "us_nickname==$namerein", ["us_session_id", "$sid_aktuell"], "$gv_userfile";
$sid=$sid_aktuell;
}
else
{
$msg = "LER"; # Login-Error (Falscher User und/oder Passwort)
$namerein="";
}
}
}
if ($namerein ne "" && $sid ne "")
{
out "<!------ test, ob aktuelle session-id noch gültig ist ---------->\n";
get "us_nickname==$namerein", "$gv_userfile";
$sid_max = 10+(1*$us_session_id);
if ($sid eq $us_session_id && $sid_aktuell <= $sid_max)
{
out "<!------ session-id ist gültig - session-id wird aktualisiert -->\n";
mod "us_nickname==$namerein", ["us_session_id", "$sid_aktuell"], "$gv_userfile";
$sid=$sid_aktuell;
#------------------------------------------------#
#- ab hier : Ausgabe Menu #
#------------------------------------------------#
&do_header; # Ausgabe Header
&do_headline("Hauptmenu"); # Ausgabe Content-Headline
&do_content_o; # Ausgabe Content-Section
out "<div class=\"box_msg\">\n";
out "<span class=\"a10\">User : $us_vorname $us_nachname \n";
out " Aktueller Login : ";
out datum($us_lastvisit, "kurz");
out "\n";
out " Letzter Besuch : ";
out datum($save_lastvisit, "kurz");
out "</span>\n";
out "</div>\n";
out "<div class=\"box_form\">\n";
out "<table>\n";
get "up_nickname==$namerein sort=up_nickname,up_sort,up_progname", "$gv_usprfile";
$anz_les = -1;
while (get_next("$gv_usprfile"))
{
$anz_les++;
$anz_tr = $anz_les % 2;
out "<tr>\n" if (!$anz_tr);
get "pr_name==$up_progname sort=pr_sort,pr_name", "$gv_progfile";
if ($pr_name ne $up_progname)
{
$pr_bezeichnung = "";
$pr_bezeichnung = "<span style=\"COLOR:red\">++ Error ++</span>";
$work_progmain = "";
$work_progmain = "-";
}
else
{
$work_progmain = "";
$work_progmain = "http://";
$work_progmain .= $pr_root;
$work_progmain .= $up_progname;
$work_progmain .= "&namerein=$us_nickname&sid=$us_session_id" if ($pr_typ eq "BP"); # baseportal-Aufrufe benötigen Zugangs-Parameter, andere nicht.
$work_progmain .= "\"";
$work_progmain .= $pr_param;
}
out "<td>";
out "<a class=\"menu_position\" href=\"$work_progmain" if ($pr_name eq $up_progname);
out "<a class=\"menu_position\" href=#" if ($pr_name ne $up_progname);
out " target=\"_blank\"" if ($pr_target eq "B"); # Programm in neuem Fenster öffnen
out ">$pr_bezeichnung</a></td>\n";
out "</tr>\n" if ($anz_tr);
}
if (!$anz_tr)
{
out "<td width=\"10%\"> </td>\n";
out "<td> </td>\n";
out "<td width=\"10%\"> </td>\n";
}
out "<tr><td colspan=4 align=\"center\">\n";
out "<br><a class=\"menu_position\" href=\"$gv_mainroot$htx&namerein=$namerein&cmd=logout\">Logout!</a>\n";
out "</td></tr>";
out "</table>\n";
out "</div>\n";
&do_content_u; # Ende Content-Section
#------------------------------------------------#
#- bis hier : Ausgabe Menu #
#------------------------------------------------#
}
else
{
$msg = "ABG"; # SessionID abgelaufen
$login_name=$us_nickname;
# $namerein="";
}
}
#------------------------------------------------#
#- Ausgabe Login-Maske #
#------------------------------------------------#
if ($namerein eq "")
{
&do_header; # Ausgabe Header
&do_headline("Login $gv_progbez"); # Ausgabe Content-Headline
&do_content_o; # Ausgabe Content-Section
out "<div class=\"box_msg\">\n";
out "<span class=\"program_msg\">Session-id ist abgelaufen - Bitte melden Sie sich erneut an!</span>\n" if ($msg eq "ABG");
out "<span class=\"program_msg\">Anmeldung fehlgeschlagen - Bitte melden Sie sich erneut an!</span>\n" if ($msg eq "LER");
out "<span class=\"program_msg\"> </span>\n" if (!$msg);
out "</div>\n";
out <<EOF;
<div class="box_form">
<form action="$gv_mainroot=$htx&cmd=login" method="post" enctype="multipart/form-data" onsubmit="return formcheck_login()">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="cmd=" value="login">
<div class="row"><span class="label">Benutzerkennung :</span>
<span class="formf"><input type="text" name="namerein=" value="$login_name" /></span></div>
<div class="row"><span class="label">Passwort :</span>
<span class="formf"><input type="password" name="pwrein=" /></span></div>
<div class="row"><span class="button"><input class="button" type="submit" value="Anmelden" /></span></div>
</form>
</div>
EOF
&do_content_u; # Ende Content-Section
}
&do_bp_out if ($gv_bpout);
#------------------------------------------------#
#--SR Setzen Standard-Variablen #
#------------------------------------------------#
sub do_variablen
{
$gv_prog = "bg_p0001";
$gv_progbez = "Menu";
$gv_mainroot = "http://de2.netpure.de/cgi-bin/baseportal.pl?htx=";
$gv_gfxroot = "http://www.bestguide.de/gfx";
$gv_menuprog = "/bestguide/bg_p/bg_p0001";
$gv_mainfile = "";
$gv_userfile = "../bg_d/bg_user";
$gv_usprfile = "../bg_d/bg_uspr";
$gv_progfile = "../bg_d/bg_prog";
$gv_parafile = "../bg_d/bg_para";
$gv_cssfile = "http://www.bestguide.de/bg_css/css_admin_neu.css";
$gv_bpout = "";
}
</perl>
</body></html>
