Can anyone help? Part II
Can anyone help? Part II
(OP)
#!/data1/hm/harmani.com/cgi-bin/form.cgi
&get_form_data();
&send_email;
&print_thankyou_paga;
sub get_form_data
{
#Get the input
read(STDIN, $buffer,$ENV{'Content_Length'} );
#Split the name-value pairs
@parirs=split(/&/, $buffer);
foreach $pair (@paris)
{
($name, $value)=split(/=/, $pair);
#Un-Webify plus signs and %-encoding
$value=~tr/+/ /;
$value=~s/%[a-fA-FO-9][a-fA-FO-9])/pack("C",
hex($!))/eg;
$value=~s/<!--(.|\n)*-->//g;
$FORM($name)=$value;
}
}
sub send_email
{
$to="ceo\@harmani.com";
open(MAIL, "/var/qmail/bin/qmail-inject -t $to") || die
("can't open sendmail");
print MAIL "From: $FORM{'email'}\n";
print MAIL "To: $to\n";
print MAIL "Subject: Form submission\n\n";
# print out the form results
print MAIL "Name: $FORM{'Name1'}\n";
print MAIl "Title: $FORM{'Title'}\n;
print MAIL "E-mail: $FORM{'Email'}\n;
print MAIL "Address: $FORM{'Address'}\n;
print MAIL "Gender: $FORM{'Gender'}\n;
print MAIL "Age: $FORM{'Age}\n;
print MAIL "Date of Birth: $FORM{'DOB'}\n;
print MAIL "How did you find out about Harmani?: $FORM{'Info1'}\n;
print MAIL "What is it that you like about Harmani?: $FORM{'Info2'}\n;
print MAIL "What would you like to see improved at Harmani?: $FORM{'Comment'}\n;
close (MAIL);
}
sub print_thankyou_page
{
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<BODY BGCOLOR=\"#FFFF99\">\n
</HEAD>";
print "<H3>Thank you</H3>\n\n";
print "<P>\n";
print "Thank you for your submission\n";
print "<P>\n";
print "<A HREF=\"http://www.harmani.com/glance.html\">Return</A>to the home page\n";
}
print "</BODY<\n</HTML>";
&get_form_data();
&send_email;
&print_thankyou_paga;
sub get_form_data
{
#Get the input
read(STDIN, $buffer,$ENV{'Content_Length'} );
#Split the name-value pairs
@parirs=split(/&/, $buffer);
foreach $pair (@paris)
{
($name, $value)=split(/=/, $pair);
#Un-Webify plus signs and %-encoding
$value=~tr/+/ /;
$value=~s/%[a-fA-FO-9][a-fA-FO-9])/pack("C",
hex($!))/eg;
$value=~s/<!--(.|\n)*-->//g;
$FORM($name)=$value;
}
}
sub send_email
{
$to="ceo\@harmani.com";
open(MAIL, "/var/qmail/bin/qmail-inject -t $to") || die
("can't open sendmail");
print MAIL "From: $FORM{'email'}\n";
print MAIL "To: $to\n";
print MAIL "Subject: Form submission\n\n";
# print out the form results
print MAIL "Name: $FORM{'Name1'}\n";
print MAIl "Title: $FORM{'Title'}\n;
print MAIL "E-mail: $FORM{'Email'}\n;
print MAIL "Address: $FORM{'Address'}\n;
print MAIL "Gender: $FORM{'Gender'}\n;
print MAIL "Age: $FORM{'Age}\n;
print MAIL "Date of Birth: $FORM{'DOB'}\n;
print MAIL "How did you find out about Harmani?: $FORM{'Info1'}\n;
print MAIL "What is it that you like about Harmani?: $FORM{'Info2'}\n;
print MAIL "What would you like to see improved at Harmani?: $FORM{'Comment'}\n;
close (MAIL);
}
sub print_thankyou_page
{
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<BODY BGCOLOR=\"#FFFF99\">\n
</HEAD>";
print "<H3>Thank you</H3>\n\n";
print "<P>\n";
print "Thank you for your submission\n";
print "<P>\n";
print "<A HREF=\"http://www.harmani.com/glance.html\">Return</A>to the home page\n";
}
print "</BODY<\n</HTML>";
RE: Can anyone help? Part II
keep the rudder amid ship and beware the odd typo
RE: Can anyone help? Part II
-Vic
vic cherubini
vikter@epicsoftware.com
www.epicsoftware.com
====
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash, Director
====