#!/usr/bin/perl ####################################################################### # Application Information # ######################################################################## # # Description: # # Provide a front entrance to the bbs_forum.cgi script # to show some of its features. # # All this script does is print out an HTML form. It really does no # other significant processing at all. # # SPECIAL NOTE: THIS IS NOT A NECESSARY SCRIPT TO RUN THE BBS. IT # MERELY EXISTS TO PROVIDE AN *EXAMPLE* OF DIFFERENT PARAMETERS THAT # CAN BE USED TO ENTER A BBS FORUM. # # Read the Comments in the header of the bbs_forum.cgi script # with advice on how to call it directly from an HTML Document. # # Basic Usage: # # 1. The file should have read and execute access but need not have # write access. # ######################################################################## # Application Code # ######################################################################## $TemplateFile="bbs_template.txt"; ## show static template ## subbing in results appropriately ## to maintain look and feel. &ShowTemplate($TemplateFile); ############################################################ # # subroutine: ShowTemplate() # Usage: # # Parameters: # # Output: # ############################################################ sub ShowTemplate { local($Template)=$_[0]; print "Content-type: text/html\n\n"; open(TEMPLATE,"< $Template"); while(