sub PrintChatEntrance {

<body bgcolor="#FFFFFF"> <p>sub PrintChatEntrance { local($setup,$chat_error) = @_; local ($chat_room_options); $setup = "" if ($setup eq "chat"); # # The chat room options # are derived from the # available chat rooms in the # array of chat rooms in the # chat.setup script $chat_room_options = ""; for (0..@chat_rooms - 1) { $chat_room_options .= "<select size="1"> <option value="$chat_room_variable[$_]">" . "$chat_rooms[$_]\n"; } if ($chat_room_options eq "") { $chat_room_options = "</option> <option>Chat Room Not Set Up\n"; } print qq! </option> </select></p> <h1>Welcome To The Chat Page</h1> <h2>$chat_error</h2> <form action="$chat_script" method="POST"> <input type="hidden" name="setup" value="$setup"><hr> <p><strong>Enter Information Below:</strong></p> <table border="1"> <tr> <td alight="RIGHT">User Name:</td> <td><input type="text" size="20" name="chat_username"></td> </tr> <tr> <td alight="RIGHT">Your Email Address(*):</td> <td><input type="text" size="20" name="chat_email"></td> </tr> <tr> <td alight="RIGHT">Your Home Page (*):</td> <td><input type="text" size="20" name="chat_http"></td> </tr> <tr> <td alight="RIGHT">How Many Old Messages To Display:</td> <td><input type="text" size="20" name="how_many_old" value="10"></td> </tr> <tr> <td alight="RIGHT">Automatic Refresh Rate (Seconds):</td> <td><input type="text" size="20" name="refresh_rate" value="0"></td> </tr> <tr> <td alight="RIGHT">Use Frames?:</td> <td><input type="checkbox" name="frames"></td> </tr> <tr> <td alight="RIGHT">Chat Room</td> <td><select name="chat_room" size="1"> </select>$chat_room_options </td> </tr> </table> <p><input type="submit" name="enter_chat" value="Enter The Chat Room"> </p> <p><strong>Special Notes:</strong></p> <p>(*) Indicates Optional Information</p> <p>Choose <strong>how many old messages</strong> to display if you want to display some older messages along with the new ones whenever you refresh the chat message list. </p> <p>Additionally, if you use Netscape 2.0 or another browser that supports the HTML <strong>Refresh</strong> tag, then you can state the number of seconds you want to pass before the chat message list is automatically refreshed for you. This lets you display new messages automatically. </p> <p>If you are using Netscape 2.0 or another browser that supports <strong>Frames</strong>, it is highly suggested that you turn frames ON. This allows the messages to be displayed in one frame, while you submit your own chat messages in another one on the same screen. </p> <hr> </form> <p>!; } # 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 = "<INPUT TYPE="HIDDEN" NAME="setup" " . "VALUE="$setup">"; } $more_url = "session=$session" . "&chat_room=$chat_room" . $more_url; # When we generate a meta tag, we need to # make sure the hidden variables get passed to # the URL since we can not post using the # META operator # if ($refresh_rate > 0) { $chat_refresh = qq!!; } else { $chat_refresh = ""; } if ($frames ne "on" && $fsubmit eq "on") { $chat_refresh = ""; } if ($frames eq "on") { print qq! </p> <p>!; } if ($frames ne "on") { print qq! </p> <p>$chat_refresh </p> <p>!; } if ($fsubmit eq "on") { $form_header = qq! </p> <form action="$chat_script" method="POST" target="_fmsgs"> <p>!; } else { $form_header = qq! </p> </form> <form action="$chat_script" method="POST"> <input type="hidden" name="fmsgs!" value="on"><input type="hidden" name="session" value="$session"><input type="hidden" name="chat_room" value="$chat_room"><p>!; } if ($fsubmit eq "on") { $form_header .= qq!!; } if ($fmsgs eq "on") { $form_header = ""; } $chat_message_header = ""; if ($fmsgs ne "on") { $chat_message_header = "</p> <h2>Chat Messages:</h2> <p>"; } if (($frames ne "on" && $fsubmit ne "on") || $fmsgs eq "on") { print qq! </p> <h1>Welcome To $chat_room_name Chat</h1> <p>!; } # # SUBMIT CHAT FORM # if ($fsubmit eq "on" || ($frames ne "on" && $fmsgs ne "on")) { print qq! $form_header $more_hidden <strong>Enter Chat Message Below:</strong> <br> <textarea name="chat_message" rows="3" cols="40" wrap="physical"></textarea> <br> Which User To Send To: <input type="text" size="20" name="chat_to_user" value="ALL"> <br> <input type="submit" name="submit_message" value="Send Message"> <input type="submit" name="refresh_chat" value="New Messages"> <input type="submit" name="logoff" value="Log Off"> <input type="submit" name="occupants" value="View Occupants"> <input type="reset" value="Clear Form"> </p> </form> <p>!; if ($fsubmit ne "on") { print "</p> <hr> <p>\n"; } } if (($frames ne "on" && $fsubmit ne "on") || $fmsgs eq "on") { print qq! $chat_message_header $chat_buffer!; if ($fmsgs ne "on") { print "</p> <hr> <p>\n"; } } if ($frames ne "on") { print qq! </p> <p>!; } } # end of PrintChatScreen ############################################################ # # subroutine: PrintChatError # # This routine outputs an error page if something # happened incorrectly in the chat room. # ############################################################ sub PrintChatError { local($error) = @_; print qq! </p> <h1>Problem In Chat Occurred</h1> <hr> <blockquote> <p>$error </p> </blockquote> <hr> <p>!; } # End of PrintChatError </p> </body>