<perl>
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
###### Log out ###### muß nat. ein logoutlink mit rein
if($cmd eq "logout")
{
      mod "nutzer_name==!$namerein", ["nutzer_sid", "0"], "nutzer";
out <<EOF;
<class=text>Ausgeloggt!<br><br>
Wollen sie sich erneut einloggen?</font><br>
<a href=http://mmfgr.de/baseportal/a/adressen target=mitte onmouseover="window.status='tm'; return true" onmouseout="window.status=''"><b>Ja</b></font></a></p><br>
<br>
EOF
##### Logout ende ######
}elsif ($cmd eq "login")
{
       if($namerein ne "" && pwrein ne "" && $sid eq "")
       {
                    get "nutzer_name==!$namerein","nutzer";
                    if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
                    {
                       mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";["eMail", "$eMail"], "nutzer";
                       $sid="$sid_aktuell";
                    }else
                    {
                       out "<b>Anmeldung fehlgeschlagen!</b>";
                       $namerein="";
                       $login_name="";
                    }
      }
}

{
 
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";
                   $sid=$sid_aktuell;

if ($cmd eq "login")
{
out <<EOF;
<SCRIPT LANGUAGE="JAVASCRIPT">
<!--// Script by Marco Weber
var URL="http://mmfgr.de/baseportal/a/adressen&namerein=$namerein&sid=$sid";
//--> </SCRIPT> 
EOF
}
                   if($Schreiben eq "ja")
                   {
                           do_all "dataface=arial headback=#1C2C66 headbold=1 headcolor=#1C2C66 spacing=1 gridcolor=000000 border=0 sort^=Name range^=0,10 pagebrowse=no buttonbrowse=top,bottom indexfield=Vorname listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "sid=$sid", "Schreiben=$Schreiben";
out <<EOF;
<p class=text><a href=http://www.mmfgr.de/baseportal/a/adressen&cmd=logout&namerein=$namerein target=top2><b>LOG OUT</b></font></a></p>
EOF
                   }elsif ($Schreiben ne "ja")
                   {
#hier fängt eigentliche seite (und meine probleme) an#
out <<EOF;
<loop db=tickertext code=perl>
out <<EOF;
<style type="text/css">
#ticker{position:absolute;top:54;left:33%;}
</style>
<script language="javascript1.2">

 if(c.indexOf(' ')!=-1) {
  cneu=c.substring(0,c.indexOf(' '))+' '+c.substring(c.indexOf(' ')+1,c.length);
  if(cneu.indexOf(' ')!=-1) wandleSpaces(cneu);
  return cneu;
 }
 else return c;
}
function tick(text,pos) {
 var c1=text.substring(pos, pos+1);
 var c2=text.substring(pos+1, pos+txtBreite-1);
 var c3=text.substring(pos+txtBreite-1, pos+txtBreite);
 
 if(c1==' ') c1=' ';
 if(c3==' ') c3=' ';
 c2=wandleSpaces(c2);
 var schrift='<span style="font-family: Courier New, Courier; font-size:8pt; font-weight:bold; color:#00007F" ><font color="rgb(28,44,102)">'+c1+'</font>'+c2+'<font color="rgb(28,44,102)">'+c3+'</font></span>'; 
                                                                                                                          // Farbe festlegen, ===>  dort hinten                                                                                                             
 if(document.layers){
  document.ticker.document.open()
  document.ticker.document.write(schrift);
                document.ticker.document.close();
  }
 else if (document.all) ticker.innerHTML=schrift;

 if(pos<text.length)	setTimeout('tick("'+text+'",'+pos+')', tempo);
 else tick(txt0+txt1+txt2+txt3+txt4,0);
}
function init() {
 if(document.layers) { txtBreite=innerWidth/2; tempo=10; }
 else if(document.all) { txtBreite=document.body.offsetWidth/15; tempo=140; }
 if (document.all || document.layers) tick(txt0+txt1+txt2+txt3+txt4,0);
}
</script>

<table border="0" cellpadding="0" cellspacing="0" width="103%">
<tr>
  <td bgcolor="#B4B9CC" height="11"></td>
 </tr>
</table>
</div>
<body bgcolor="#1C2C66" onLoad="setTimeout('init()',2)"><div id="ticker">
  </div>
EOF
</loop>
<!---Tabellen oben ---->
<div style="position:absolute; left:0; top:0"> 
<table border="0" nowrap cellpadding="0" cellspacing="0" width="103%">
<tr>
  <td bgcolor="#B4B9CC" nowrap height="17">
</td>
 </tr>
</table>
</div>
<div style="position:absolute; left:0; top:16">
<table border="0" cellpadding="0" cellspacing="0" width="103%">
<tr>
  <td nowrap background="http://mmfgr.de/images/bg_oben.jpg"><img src="http://mmfgr.de/images/pksa_logo_tr.gif" width="75" height="40" border="0"><img src="http://mmfgr.de/images/anetzwerk" width="300" height="18" border="0"><img src="http://mmfgr.de/images/leer.gif" width="50" height="31" border="0" hspace="5"></td>
 </tr>
</table>
</div>
<script language="javascript1.2">
<!--

 new untermenue("Datenbank","DB-Eingang","http://mmfgr.de/baseportal/a/adressen&namerein=$namerein&sid=$sid");
 new untermenue("Datenbank","SID-Test","http://mmfgr.de/baseportal/a/sidtest&namerein=$namerein&sid=$sid"); 

 new untermenue("News","Termine","http://mmfgr.de/baseportal/a/tk/kalender&namerein=$namerein&sid=$sid&numma=$numma");

        this.hname=hname;
        hdazu(this);
}
function hdazu(objekt){
        hmenu[hmenu.length]=objekt;
}
function udazu(objekt){
        umenu[umenu.length]=objekt;
}
function untermenue(von,uname,urlm){
        this.von=von;
        this.uname=uname;
        this.jumpto=urlm;
        udazu(this);
}
function menu_create(){
        var lpos=+1;
        for (var i=0; i<hmenu.length; i++){

                document.write("<div style=\"position: absolute; top: 13px; left:"+(lpos)+"px; z-index: 2; border: 1px solid blue; text-align: center; width: 130px; margin-top: 1px; visibility: hidden; overflow: hidden; background: #B4B9CC; color: #B4B9CC; padding: 4px;\" id=\"_" + hmenu[i].hname + "\" onClick=\"hidemenue();\">");
                for (var j=0; j<umenu.length; j++){
                        if (umenu[j].von==hmenu[i].hname){
                                 document.write("<a href='" + umenu[j].jumpto + "'>" + umenu[j].uname + "</a><br>");
                        }
                }
                document.write("</div>");
        }
}

        for (var i=0; i<hmenu.length; i++)
                document.getElementById("_"+hmenu[i].hname).style.visibility="hidden";
                document.getElementById(dasda).style.visibility="visible";
}
function hidemenue(){   // NS + MSIE
        for (var i=0; i<hmenu.length; i++)
                document.getElementById("_"+hmenu[i].hname).style.visibility="hidden";
}

</script>
EOF
                   }
###### Ende der erlaubten Tätigkeiten #######
       }else
       {
                    out "Session-id ist abgelaufen - Bitte melden Sie sich erneut an";
                    $login_name="$nutzer_name";
                    $namerein="";
       }
}
if($namerein eq "")
{
out <<EOF;
<div align="center">
<table width=90% border=0 cellspacing=0 cellpadding=6>
<tr><td>
<form action="http://mmfgr.de/baseportal/htx=$htx&cmd=login" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx"><input type=hidden name="cmd=" value="login">
</font>
<table width="100%" height="75%" border="0">
 <tr>
  <td align="center" valign="middle">
 <br>
<br>
<!--- start login tabelle ---->
<table cellspacing="0" cellpadding="0" width="220" border="0" ><tr>
<td><img src="http://mmfgr.de/images/ecke_oben_links.gif" width="21" height="21"></td>
<td bgcolor="#cccccc"> </td>
<td><img src="http://mmfgr.de/images/ecke_oben_rechts.gif" width="21" height="21"></td> </tr>
<tr bgcolor="#cccccc"> 
<td> </td>
<td bgcolor="#cccccc">
<form action="http://mmfgr.de/baseportal/htx=/mmfgr.de/a/adressen&cmd=login" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/mmfgr.de/a/adressen"><input type=hidden name="cmd=" value="login">
<table><center>
<tr><td><p class="text"><font color="#1C2C66">Login-Name:</font></p></td><td><input type="text" name="namerein=" value="" </td></tr>
<tr><td><p class="text"><font color="#1C2C66">Passwort:</font></p></td><td><input type="password" name="pwrein=" </td></tr>
<tr><td></td><td><br><input type=submit value="Anmelden"><i> </td></tr>
</table></form></font>
</table>
<!--- ende login tabelle --->
EOF
}
</perl>