<script>

 if(navigator.appName!="Netscape" || parseInt(navigator.appVersion)!=4)
 {
  rb=who.document.forms[0].an;
  for(i=1; i<rb.length; i++)
  {
   if(rb[i].value.toLowerCase().indexOf(name.toLowerCase())==0)
   {
    name=rb[i].value;
    break;
   }
  }
 }
 return name;
}
</script>
<perl>
if($sid=do_chat "/login", "nutzer")
{
out <<EOF;
<frameset rows="*,0,40" frameborder="0" border=0 framespacing="0" border="0">
 <frameset cols="*,200" frameborder="0" border=0 framespacing="0" border="0">
  <frame name="output" src="baseportal.pl?htx=/verwitwet.de/chat/empty" frameborder="no">
  <frame name="who" src="baseportal.pl?htx=/verwitwet.de/chat/who" frameborder="no">
 </frameset>
 <frame name="dummy" src="baseportal.pl?htx=/verwitwet.de/chat/wait&uid=$uid&sid=t $sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
 <frame name="input" src="baseportal.pl?htx=/verwitwet.de/chat/input&uid=$uid&sid=$sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
</frameset>
EOF
} else
{
out "<center><br>";
out "<b>Anmeldung fehlgeschlagen!</b><p>" if $uid ne "";
out <<EOF;
Bitte melden Sie sich an:<p>
<table><form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<tr><td align=right><font face=arial size=3>Name:</td><td><input type=text name="uid=" value="$_get{uid}" size=12></td></tr>
<tr><td align=right><font face=arial size=3>Passwort:</td><td><input type=password name="upw=" size=12></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</form></table>
EOF
}
</perl>