#####################################
#!/usr/local/bin/perl -wT
use CGI qw/:standard/;
use strict;
use CGI::Carp qw/fatalsToBrowser/;
#use Mail::Sendmail;

$CGI::POST_MAX = 10000;

	my $filename = param('filename');
	my $action; 	
	my $method = "Post";
	my $preview = "preview_form.cgi";
	my $submit = "createreply.cgi";
	my $issues = param('issues');
	my $email = param('email');

print header;

print start_html('MD Best Practices Forum'),
	h1('Mechanical Disciplines'),
	p, 
	h2('Best Practices Executive Forum'),

     	start_form(-method=>$method,-action=>$action),

	hidden(-name=>'filename', -value=>''),
	hidden(-name=>'to', -value=>''),
	hidden(-name=>'from', -value=>''),
	     "What's your beef? ",
	p,
	
	textarea(-name=>'issues', -rows=>'10', -columns=>'60'),

	p,

	"Reply from: 
	popup_menu(-name=>'email',
 	       -values=>['Select Manager','David','Mark']),
	submit(-name=>'recommendedby', -value=>'Recommended by'),
	p,
	submit(-name=>'submitreply',-value=>'Submit Reply'),
	submit(-name=>'closefile', -value=>'Close File'),
	submit(-name=>'preview', -value=>'Preview'),
	reset(-name=>'reset', -value=>'Reset'),
	submit(-name=>'submittodept', -value=>'Submit to Dept'),


     end_form,

     hr;

	if (param('preview') eq 'Preview') {

	print "<P>Your message: <I>$issues</I>\n";
	print "<P>Manager: <I>$email</I>\n";
	}


	if (param('submitreply') eq 'Submit Reply') {
	$action = "createreply.cgi";

	}