########################################################### # BBS_HTML_CREATE_MESSAGE.PL # # This script was written by Gunther Birznieks. # Date Created: 4-18-96 # # You may copy this under the terms of the GNU General Public # License or the Artistic License which is distributed with # copies of Perl v5.x for UNIX. # # Purpose: # Print out the HTML for the CREATE MESSAGE Screen # ############################################################ # Hidden fields need to get passed from screen to screen $print_hidden_fields = &HiddenFields; $form_hdr = qq!
!; if ($post_attachment eq "") { $form_hdr = qq!!; } print <<__ENDHTML__; $title

$header

$form_hdr $print_hidden_fields
First Name: $post_first_name_field
Last Name: $post_last_name_field
Email: $post_email_field
Date: $post_date_time
Subject:
Enter Message Below:
$post_attachment $post_want_email

__ENDHTML__ 1;