<perl>
if ($act eq "chat")
{

get "Name==$user","nutzer";
if ($Name eq "")
{

put ["Name","$user","Passwort","chat"],"nutzer";
}

$_get{uid}="$user";
$_get{upw}="chat";
$sid=do_chat("nutzer");
}
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=/youngmusic.at/chat/empty" frameborder="no">
  <frame name="who" src="baseportal.pl?htx=/youngmusic.at/chat/who" frameborder="no">
 </frameset>
 <frame name="dummy" src="baseportal.pl?htx=/youngmusic.at/chat/wait&uid=$uid&sid=$sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
 <frame name="input" src="baseportal.pl?htx=/youngmusic.at/chat/input&uid=$uid&sid=$sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
</frameset>
EOF
}
</perl>