I have the following form that I use as survey I that I'm building for my web site.
<form METHOD=POST ACTION="https://www726.vwh1.net/peggy1/cgi-local/surve y.cgi"> Are you a new cutomer or a returning customer?<BR> <input TYPE=CHECKBOX NAME="Customer" VALUE="New Customer">New Customer <BR> <input TYPE=CHECKBOX NAME="Customer" VALUE="Returning Customer">Return ing Customer<BR> <HR> How did you learn about Peggy's Health Center?<BR> <input TYPE=CHECKBOX NAME="Learn" VALUE="Web Site">Web Site<BR> <input TYPE=CHECKBOX NAME="Learn" VALUE="Email">Email<BR> <input TYPE=CHECKBOX NAME="Learn" VALUE="Search Enginee">Search Engine <BR> <input TYPE=CHECKBOX NAME="Learn" VALUE="Postal">Postal Mail<BR> <input TYPE=CHECKBOX NAME="Learn" VALUE="By Mouth">Word of Mouth<BR> <HR> What do you think about our web site?<BR> <input TYPE=CHECKBOX NAME="Site Opinion" VALUE="Very Good">Very Good<B R> <input TYPE=CHECKBOX NAME="Site Opinion" VALUE="Good">Good<BR> <input TYPE=CHECKBOX NAME="Site Opinion" VALUE="Good">Bad<BR> <input TYPE=CHECKBOX NAME="Site Opinion" VALUE="Good">Very Bad<BR> <HR> What is it about our site you think needs improvement?<BR> <input TYPE=CHECKBOX NAME="Site Improvement" VALUE="Navigation">Naviga ting the Web Site<BR> <input TYPE=CHECKBOX NAME="Site Improvement" VALUE="Ordering">Order Pr oducts<BR> <input TYPE=CHECKBOX NAME="Site Improvement" VALUE="New Products">Addi ng New Products<BR> <input TYPE=CHECKBOX NAME="Site Improvement" VALUE="Searching Products ">Searching for Products<BR> <HR> Please provide any other comments: <TEXTAREA NAME="comments" ROWS="6" COLS="45">Place your Comments here< /TEXTAREA><BR> <input TYPE=HIDDEN NAME=return VALUE="http://www.peggyshealth.com/";> <input TYPE=SUBMIT NAME="SUBMIT"> </form>
Now here is the CGI script I've written so far.
#!/usr/bin/perl # use Mail::Internet;
# Collect parameters using CGI
my $customer = param("Customer");
my $learn = param("Learn");
my $opinion = param("Site Opinion");
my $improvements = param("Site Iimprovement");
my $comments = param("comments");my $head = Mail::Header->new; $head->add(From => 'Webmaster <[EMAIL PROTECTED]>'); $head->add(To => '[EMAIL PROTECTED]'); $head->add(Subject => 'hello there');
my $body = <<END; This is just a simple e-mail message. Nothing to get excited about.
Customer Type: $customer How they learn of us: $learn Their Opinions: $opinion Their improvemetns: $improvements Their comments: $comments END
$mail = Mail::Internet->new(Header => $head,
Body => [$body],
Modify => 1);
print $mail->send('sendmail');end of cgi script.
What I'm concern with is the execution of this script. I don't seem to be doing something right. Can someone correct on what it that missing.
-- ************************************************************ *** Phillip B. Bruce *** *** *** *** "Politicians and diapers have one thing in common. *** *** They should both be changed regularly and for the *** *** same reason." *** *** *** ************************************************************
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
