__END_OF_ENTRANCE__
} # end of PrintChatEntrance
############################################################
#
# subroutine: PrintChatScreen
#
# Prints the main chat screen. This includes the form
# for chatting.
#
# Parameters:
# $chat_buffer = all the chat messages
# $refresh-rate = refresh rate for use with the META
# operator
# $session = session id
# $chat_room = chat room name
# $setup = setup file.
# $frames = "on" for Printing Main Frame HTML
# $fmsgs = "on" for printing Messages Frame
# $fsubmit = "on" for printing chat Messages Frame
#
############################################################
sub PrintChatScreen {
local($chat_buffer,
$refresh_rate, $session,
$chat_room, $setup,
$frames, $fmsgs, $fsubmit) = @_;
local($chat_message_header, $more_url,
$more_hidden, $chat_refresh);
$setup = "" if ($setup eq "chat");
#
# $more_url contains setup information
# that needs to get passed from screen to
# screen and is used with the META Tag.
#
# $more_hidden is the same thing but is
# used as a hidden variable in the form
# posted below.
#
$more_url = "";
$more_hidden = "";
if ($setup ne "") {
$more_url = "&setup=$setup";
$more_hidden = "