<perl>
                                 if($sid=do_chat "/login", "nutzer")
                                 {
                                 out <<EOF;
                                 <script>
                                 function n(name)
                                 {

                             if(navigator.appName!="Netscape" || parseInt(navigator.appVersion)!=4)
                                     {

                                             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 "";
                                 out <<EOF;

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