Need Assistance

Guest_imported · Mar 12, 2001

Hi All,

I successfully created a form and cgi script a few days ago for the first time (with the help of goboating of course). However, when I type data/information into my form and hit submit, the only thing that appears in my e-mail is the print command data

For example,

print MAIL "Date of Birth: $FORM{'DOB'}\n;

Can someone please help? It would be greatly appreciated.

shake & bake

Payload · Mar 12, 2001

Well the reasons could depend on many items, how are you getting the form information from the content_length environment to the hash FORM?

-Blake

Guest_imported · Mar 12, 2001

Hi Payload,

This is my script. Hope this answers your question.

shake & bake

Please help.

#!/usr/local/bin/perl
&get_form_data();
&send_email;
&print_thankyou_page;
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-F0-9][a-fA-F0-9])/pack("C",hex($!))/eg;
$value=~s/%[a-fA-F0-9][a-fA-F0-9]/pack("C",
hex($!))/eg;
$value=~s///g;
# $FORM{$name}=$value;
$FORM{$name}=$value;
}
}
sub send_email
{
$to="hcwhite\@hotmail.com";
open(MAIL, "|/var/qmail/bin/qmail-inject -t $to&quot

|| die
("can't open sendmail&quot

;
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 "Title: $FORM{'Title'}\n";
# print MAIL "E-mail: $FORM{'Email'}\n";
print MAIL "E-mail: $FORM{'Email'}\n";
# print MAIL "Address: $FORM{'Address'}\n";
print MAIL "Address: $FORM{'Address'}\n";
# print MAIL "Gender: $FORM{'Gender'}\n";
print MAIL "Gender: $FORM{'Gender'}\n";
#print MAIL "Age: $FORM{'Age'}\n";
print MAIL "Age: $FORM{'Age'}\n";
# print MAIL "Date of Birth: $FORM{'DOB'}\n";
print MAIL "Date of Birth: $FORM{'DOB'}\n";
#print MAIL "How did you find out about Harmani?: $FORM{'Info1'}\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 is it that you like about Harmani?: $FORM{'info2'}\n";
#print MAIL "What would you like to see improved at Harmani?: $FORM{'Comment'}\n";
print MAIL "What would you like to see improved at Harmani?: $FORM{'Comment'}";
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. We at Harmani will respond to you shortly.\n";
print "<P>\n";
print "<A HREF=\"

http://www.harmani.com/glance.html\">Return

To Main Page</A>\n";
}
print "</BODY<\n</HTML>";

Guest_imported · Mar 13, 2001

Hey All,

I know your busy, but if someone could help, I would greatly appreciate it. I still need help with solving the above.

shake & bake

MikeLacey · Mar 14, 2001

Shake and Bake -- I'm sorry, I don't understand you. What is missing from the email? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.

goBoating · Mar 14, 2001

Ditto - I don't understand the question, yet.

keep the rudder amid ship and beware the odd typo

hmerrill · Mar 14, 2001

Shake and Bake, can you post the actual form that is collecting and submitting the data that get_form_data is accepting?
Hardy Merrill
Mission Critical Linux, Inc.

http://www.missioncriticallinux.com

Guest_imported · Mar 14, 2001

Hey All,

Thanks for responding. The form that I'm currently using is located at

http://www.harmani.com/feedback/form.html

When I type data into the form, and then press submit, the form appears to be working fine--that is, I receive a thank you for your submission response, and that someone will reply to me soon. Yet, when the form's e-mail is sent to me, there is no data included. The only thing that appears is the following:

Name:
E-mail:
Address:
Gender:
Age:
Date of Birth:
How did you find out about Harmani?:
What is it that you like about Harmani?:
What would you like to see improved at Harmani?:

Can anyone help?

shake & bake

stefanos · Mar 14, 2001

try the following script:

#!/usr/local/bin/perl

################ DECODE THE FORM INPUT
################################################
if ($ENV{'REQUEST_METHOD'} eq "POST&quot

{ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }

@nvpairs = split(/&/, $buffer);
foreach $pair (@nvpairs)
{
$pair =~ tr/+/ /;
$pair =~ s/%(..)/pack("c",hex($1))/ge;
($name, $value) = split(/=/, $pair, 2);
$FORM{$name} = $value;
$value =~ tr/\n/ /;
$value =~ tr/\r/ /;
$value =~ tr/\"/\'/;
$value =~ tr/,/\;/;
push(@values, qq/"$value"/);
push(@email, qq/$name=$value/);
}

$Comments = $FORM{'Comments'};

################ SET THE VARIABLES
################################################

$mail = "/bin/mail";
$mail_to = "sth\@sth.com";

################ NOTIFY THE DEPARTMENT
################################################

open(MAIL , "| $mail -s \"Complaints Form For sth.com.\" $mail_to&quot

;
print MAIL "COMPLAINS SUBMISSION FORM\n\n";
print MAIL "----------------------------------------------------------------------------------------\n";
print MAIL "$Comments\n";
print MAIL "----------------------------------------------------------------------------------------\n";

close(MAIL);

exit;

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Need Assistance

Guest_imported

New member

Payload

Programmer

Guest_imported

New member

Guest_imported

New member

MikeLacey

MIS

goBoating

Programmer

hmerrill

Programmer

Guest_imported

New member

stefanos

Programmer

Similar threads

Part and Inventory Search

Sponsor