<perl>

{
 get "u_id==$u_i_d", "users";
 if ($Password eq $pwd)
 {
  del "ip==$_REMOTE_ADDR","logins";
  del "user_id==$u_i_d","logins";
  put ["ip","$_REMOTE_ADDR","user_id",$u_i_d],"logins";
  out <<EOF;
   <frameset rows="100%,*" frameborder="NO" border="0">
    <frame name="Hauptframe" src="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/fabian354/comm/main">
    <frame name="Mini">
   </frameset>
EOF
 }
 else
 {
  out "Falsches Passwort!";
 }
}

{
 del "ip==!$_REMOTE_ADDR","logins";
 out <<EOF;
 <frameset cols="100%,*" frameborder="NO" border="0" framespacing="0" cols="*"> 
  <frame name="Login" scrolling="NO" noresize src="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/fabian354/comm/login&do=ausgeloggt">
  <frame name="Mini" scrolling="NO" noresize>
 </frameset>
EOF
}
</perl>