<html><head><title>Chat</title></head><body bgcolor=ffffff vlink=0000f0>
<perl>
if(%_put)
{
get "Name==$_put{Name}","/****/chat/Name";
if($_amount>0 && $Name eq $_put{Name})
{
out "Der Eintrag ist bereits vorhanden.";
undef %_put;
$cmd="";
}
else
{
put undef,"/******/chat/Name";
}
}
</perl>
<font size="2" face="arial,helvetica">
<input type=hidden name="dir=" value="/*****/chat">
<input type=hidden name="db=" value="/*****/chat/Name">
<input type=hidden name="htx=" value="/*****/chat/nutzer">
<input type=hidden name="cmd=" value="add">
</font><p> </p>
<table width="370" border="1" align="center" bgcolor="#CCCCCC">
<tr>
<td>
<center>
<b><font face="Arial, Helvetica, sans-serif" size="3">Hier bitte mit Realnamen
anmelden</font></b> <font size="2" face="arial,helvetica"><b><br>
</b></font>
</center>
</td>
</tr>
<tr>
<td>
<center>
<table width="295">
<tr>
<td align=right><b><font size="2" face="Arial, Helvetica, sans-serif">Name:</font></b></td>
<td><font size="2" face="arial,helvetica">
<input type="text" name="Name:=" size=20 value="">
</font></td>
</tr>
<tr>
<td align=right><b><font face="Arial, Helvetica, sans-serif" size="2">E-Mail:</font></b></td>
<td><font size="2" face="arial,helvetica">
<input type="text" name="email:=" size=20 value="">
</font></td>
</tr>
<tr>
<td align=right><b><font size="2" face="Arial, Helvetica, sans-serif">Passwort:</font></b></td>
<td><font size="2" face="arial,helvetica">
<input type="text" name="Passwort:=" size=20 value="">
</font></td>
</tr>
<tr>
<td></td>
<td nowrap> <font size="2" face="arial,helvetica">
<input type=submit value="Abschicken" name="submit">
<input type=reset value="Zurücksetzen" name="reset">
</font></td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</form>
<perl>
if (%_put)
{
out <<EOF;
<table width=100% align="center">
<tr>
<td>
<center>
<font size="2" face="arial,helvetica"><b> Dein Eintrag wurde hinzugefügt...
</b></font>
</center>
<font size="2" face="arial,helvetica"><b><br>
<br>
<a href="http://*****.netpure.de/cgi-bin/baseportal.pl?htx=/*****/chat/start">
<center>
hier klicken und im Chat anmelden
</center>
</a></b></font></td>
</tr>
</table>
EOF
}
</perl>
if($sid=do_chat "/login", "Name")
{
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=/*****/chat/empty" frameborder="no">
<frame name="who" src="baseportal.pl?htx=/*****/chat/who" frameborder="no">
</frameset>
<frame name="dummy" src="baseportal.pl?htx=/*****/chat/wait&uid=$uid&sid=$sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
<frame name="input" src="baseportal.pl?htx=/*****/chat/input&uid=$uid&sid=$sid" marginwidth="0" marginheight="0" scrolling="no" frameborder="no">
</frameset>
EOF
}
else
{
out "<b>Anmeldung fehlgeschlagen!</b><p>" if $uid ne "";
out <<EOF;
<a href="http://*****.netpure.de/cgi-bin/baseportal.pl?htx=/*****/chat/nutzer">Das erste Mal hier? ...dann hier entlang</a>
<br><br>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>
