<perl>
if($sid=do_chat "/login", "nutzer")
{
out <<EOF;
<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>
<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=/edorado/kids/chat/empty" frameborder="no">
                <frame name="who" src="baseportal.pl?htx=/edorado/kids/chat/who" frameborder="no">
        </frameset>
        <frame name="dummy" src="baseportal.pl?htx=/edorado/kids/chat/wait&uid=$uid&sid=$sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
        <frame name="input" src="baseportal.pl?htx=/edorado/kids/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 "";

<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>