#!/usr/bin/perl

require "bc_html_util.cgi";

&Parse_Form;

my $cname = $formdata{'cname'};

&Mime;
print <<MYHTM;

<html><head>
<SCRIPT LANGUAGE="javascript">
<!--
function SubmitMyForm()
{
  document.forms[0].message.value = document.forms[0].chat_input.value;
  document.forms[0].chat_input.value='';
  document.forms[0].chat_input.focus();
  return(true);
}
//-->
</SCRIPT></head>
<BODY BGCOLOR="#F0F0F0" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000">
<form method="POST" action="bc_chat.cgi" target="main" OnSubmit="javascript:SubmitMyForm();">
<input type="hidden" name="cname" value="$cname">
<input type="hidden" name="room" value="general">
<input type="hidden" name="message" value="">
<p><input type="text" name="chat_input" size="46" maxlength="255" AUTOCOMPLETE="OFF">
<input type="submit" value="Ââîä"></p>
</form></body></html>
MYHTM
exit;