Ok... This is killing me. I have been working on this forever and have tried so many different options..
All I want is for my web form to be emailed to me. I have read about needing a mail server..ArGoSoft, well, I have it and have no idea what to do with it...
I have definitely followed the abyss install instructions for Perl.
The setup/config that I have is,
my website + Abyss, + no-ip, ( I am also using the bebosoft forms-to-go) and a simple netgear firewall and router. I do not have mail service through noip, but have been trying to use my local @hotmail and @erau.edu addresses.
After testing the form with no validation, it tells me success, but I never recieve any emails.
here is my html code sample,
<form action="formpagedda.pl" method="post" enctype="application/x-www-form-urlencoded">
<strong>
<p>Parents First Name: <input type="text" name="pfname" id="pfname" size="20" maxlength="30">
Parents Last Name: <input type="text" name="plname" id="plname" size="20" maxlength="30"></p>
<p>First Child's Name: <input type="text" name="cfname" id="cfname" size="20" maxlength="30"> Age: <input type="radio" name="age" id="age" value="3-5">3-5 <input type="radio" name="age" id="age" value="6-9">6-9 <input type="radio" name="age" id="age" value="10-12">10-12 <input type="radio" name="age" id="age" value="YoungAdult">Young Adult </p>
<p>Second Child's Name: <input type="text" name="c2fname" id="c2fname" size="20" maxlength="30"> Age: <input type="radio" name="age" id="age" value="3-5">3-5 <input type="radio" name="age" id="age" value="6-9">6-9 <input type="radio" name="age" id="age" value="10-12">10-12 <input type="radio" name="age" id="age" value="YoungAdult">Young Adult </p>
<p>Third Child's Name: <input type="text" name="c3fname" id="c3fname" size="20" maxlength="30"> Age: <input type="radio" name="age" id="age" value="3-5">3-5 <input type="radio" name="age" id="age" value="6-9">6-9 <input type="radio" name="age" id="age" value="10-12">10-12 <input type="radio" name="age" id="age" value="YoungAdult">Young Adult </p>
<p>Address 1: <input type="text" name="address1" id="address1" size="40" maxlength="50"></p>
<p>Address 2: <input type="text" name="address2" id="address2" size="40" maxlength="50"></p>
<p>City: <input type="text" name="city" id="city" size="20" maxlength="30"> Zip Code: <input type="text" name="zip" id="zip" size="5" maxlength="9"> </p>
<p>Email: <input type="text" name="email" id="email" size="35" maxlength="60"> </p>
<p>Preferred Method of Contact: <input type="radio" name="contact" id="contact" value="email">
Email <input type="radio" name="contact" id="contact" value="regmail">Regular Mail</p>
<p> </p>
<tr>
<td colspan="50%"><table>
<tr><td><p><strong>Please feel free to ask us questions and comments and we will do our best to reply to them..</strong></p>
<textarea name="comandques" cols="25" rows="10" id="comandques"></textarea>
<input type="submit" name="submit" value="Submit"> <input type="reset" name="Reset" value="Reset"></td></tr>
</table>
</tr>
</strong>
</form>
here is my perl script,
#!/perl/bin/perl.exe
$mailprog = '/usr/sbin/sendmail -t -i -froot@mail.db.erau.edu';
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$pfname = $FORM{'pfname'};
$plname = $FORM{'plname'};
$cfname = $FORM{'cfname'};
$age = $FORM{'age'};
$c2fname = $FORM{'c2fname'};
$c3fname = $FORM{'c3fname'};
$address1 = $FORM{'address1'};
$address2 = $FORM{'address2'};
$city = $FORM{'city'};
$zip = $FORM{'zip'};
$email = $FORM{'email'};
$contact = $FORM{'contact'};
$comandques = $FORM{'comandques'};
$Submit = $FORM{'Submit'};
$Reset = $FORM{'Reset'};
# Redirect user to FAIL page
if ($validationfailed == 1)
{
print "Location: error.html\n\n";
exit;
}
# Email Body
$body_form_email = "pfname: $pfname\n"
. "plname: $plname\n"
. "cfname: $cfname\n"
. "age: $age\n"
. "c2fname: $c2fname\n"
. "c3fname: $c3fname\n"
. "address1: $address1\n"
. "address2: $address2\n"
. "city: $city\n"
. "zip: $zip\n"
. "email: $email\n"
. "contact: $contact\n"
. "comandques: $comandques\n"
. "Submit: $Submit\n"
. "Reset: $Reset\n"
. "\n"
. "";
# Send the email to the form owner
open(MAIL,"|$mailprog");
print MAIL "To: myemailisreallyhere\@erau.edu <>\n";
print MAIL "From: $email\n";
print MAIL "Subject: \n\n";
print MAIL $body_form_email;
close(MAIL);
# Redirect user to OK page
print "Location: success.html\n\n";
exit;
# End of Perl script
The perl script is not in my cgi-bin, it is in my htdocs folder. I have tried both ways and have only gotten succes with it being in htdocs.
What the hell do I do now....
HELP BEFORE I HAVE A BREAK DOWN...
the site is www.danceatdayspring.com
thanks