#!/usr/bin/perl -Tw
############################################################
## Written and copyright 2002 by 
## Jacqueline D. Hamilton (kira@cgi101.com)
##
## This code is excerpted from "CGI Programming 201"
## (http://www.cgi101.com/advanced)
##
## You may use this code on your own website, however
## you may not publish or sell any copy or derivative work
## without permission of the author.
#############################################################
use strict;
use lib '../';
use MyBoard;

# declare variables
my($sth, $rv, $id, $name, $desc);

&do_header("New Topic in $btitle");

print <<EndForm;
<form action="postmsg.cgi" method="POST">
<pre>
Your Name:     <input type="text" name="name" size=40 value="$ENV{REMOTE_USER}">
Email Address: <input type="text" name="email" size=40>
Subject:       <input type="text" name="subject" size=40>
</pre>
Enter your message below. Please use HTML tags.<p> 
<textarea name="message" rows=10 cols=78 wrap="HARD"></textarea>
<p>
<input type="submit" value="Post Message">
<input type="reset" value="Erase">
</form>

EndForm

&do_footer;