<perl>

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

                             {

                                                          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"

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