I would line to add 3 new form fields to the submission form in the "FORWARD RECORD MOD"
1. Full name
2. Company
2. Country
However when i add the 3 fields in the DB.CGI and the HTML.PL and submit the form it gives the impression that the submission was successfull saying "Your email message was sent"
HOWEVER the email is NOT received by the recipient.
Can someone tell me what I am doing wrong and What to do to add these additional fields
**below are the changes I made to the DB.CGI and Html.pl**
sub forward_email {
# --------------------------------------------------------
# This subroutine added foward record mod
#
unless ($in{'yourname'}) { $message .= "You must fill in your full name<BR>"; }
unless ($in{'company'}) { $message .= "You must fill in your company name<BR>"; }
unless ($in{'country'}) { $message .= "You must fill in your country where you live<BR>"; }
unless ($in{'email'}) { $message = "You must fill in your email address<BR>"; }
unless ($in{'email'} =~ /.+\@.+\..+/) { $message = "Your email address is not in the correct format.<BR>"; }
unless ($in{'to_email'}) { $message = "You must fill in the recipient's email address<BR>"; }
unless ($in{'to_email'} =~ /.+\@.+\..+/) { $message = "The recipient's email address is not in the correct format.<BR>"; }
unless ($in{'subject'}) { $message .= "You must fill in a subject for your message.<BR>"; }
unless ($in{'emailmessage'}) { $message .= "Your email message is empty.<BR>"; }
if ($message) {
chomp($message);
&html_forward_email_form($message);
return;
}
open (MAIL, "$mailprog") || &cgierr("unable to open mail program");
print MAIL "Full Name: $in{'yourname'}\n";
print MAIL "Company: $in{'company'}\n";
print MAIL "Country: $in{'country'}\n";
print MAIL "To: $in{'to_email'}\n";
print MAIL "From: $in{'email'}\n";
print MAIL "Subject: $in{'subject'}\n\n";
print MAIL "-" x 75 . "\n\n";
print MAIL $in{'emailmessage'};
close (MAIL);
&html_forward_email_success;
}
In the HTML.PL I added the the 3 to fields
sub html_forward_email_form {
#----------------------------------------------------------
my ($message) = $_[0];
$in{$db_key} =~ s/<?.B>//g;
%rec = &get_record($in{$db_key});
unless ($in{'email_message'}) {
foreach $col (@db_cols) {
$in{'email_message'} .= "$col: $rec{$col}\n";
}
}
&html_print_headers;
print qq|
<html><head><title>$html_title: Email Enquiry</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td colspan=2 bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Email Enquiry</b></td></tr>
<tr><td>
<p><center><$font_title><b>
Enquire About This Vehicle
</b></font></center><br>
|;
if ($message) { print qq|There was a problem: $message|; }
print qq|
<$font>Use the <b>recipient field</b> to send a copy to yourself or to your client. If sending to us for enquiry, please copy "seicars\@gmail.com" in the field and your message in the message box $rec{'Name'}.</font>
|;
print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<input type=hidden name="$db_key" value="$in{$db_key}">
<table><tr><td align=right><$font>Full Name:</font></td>
<td><input type=text name="yourname" value="$in{'yourname'}" size=40></td></tr>
<tr><td align=right><$font>Company:</font></td>
<td><input type=text name="company" value="$in{'company'}" size=40></td></tr>
<tr><td align=right><$font>Country:</font></td>
<td><input type=text name="country" value="$in{'country'}" size=40></td></tr>
<tr><td align=right><$font>Your email address:</font></td>
<td><input type=text name="email" value="$in{'email'}" size=40></td></tr>
<tr><td align=right><$font>Recipient's email address:</font></td>
<td><input type=text name="to_email" value="$in{'to_email'}" size=40></td></tr>
<tr><td align=right><$font>Subject:</font></td>
<td><input type=text name="subject" value="$in{'subject'}" size=40></td></tr>
<tr><td align=right><$font>Your message:</font></td>
<td><textarea name="emailmessage" cols=40 rows=6 wrap="virtual">$in{'email_message'}</TEXTAREA></td></tr>
</table>
<center>
<INPUT TYPE="SUBMIT" NAME="forward_email" VALUE="Send Record">
<INPUT TYPE="RESET" VALUE="Reset Form">
</center>
</form>
|;
&html_footer;
print qq|</td></tr></table></body></html>|;
}
###############################################################################
#file: html.pl #
# new subroutine #
# sub html_forward_email_success #
###############################################################################
sub html_forward_email_success {
#-----------------------------------------------
&html_print_headers;
print qq|
<html><head><title>$html_title: Send An Enquire</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td colspan=2 bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Send An Enquire</b></td></tr>
<tr><td><p><center><$font_title><b>
Send An Enquire
</b></font></center><br>
|;
print qq|<$font>Your email message was sent.</font><P>
<center>
<a href="$db_script_link_url&$db_key=$in{$db_key}&view_records=1">
<$font>Go back to the record</font></a></center>|;
&html_footer;
print qq|</td></tr></table></body></html>|;
}
1. Full name
2. Company
2. Country
However when i add the 3 fields in the DB.CGI and the HTML.PL and submit the form it gives the impression that the submission was successfull saying "Your email message was sent"
HOWEVER the email is NOT received by the recipient.
Can someone tell me what I am doing wrong and What to do to add these additional fields
**below are the changes I made to the DB.CGI and Html.pl**
sub forward_email {
# --------------------------------------------------------
# This subroutine added foward record mod
#
unless ($in{'yourname'}) { $message .= "You must fill in your full name<BR>"; }
unless ($in{'company'}) { $message .= "You must fill in your company name<BR>"; }
unless ($in{'country'}) { $message .= "You must fill in your country where you live<BR>"; }
unless ($in{'email'}) { $message = "You must fill in your email address<BR>"; }
unless ($in{'email'} =~ /.+\@.+\..+/) { $message = "Your email address is not in the correct format.<BR>"; }
unless ($in{'to_email'}) { $message = "You must fill in the recipient's email address<BR>"; }
unless ($in{'to_email'} =~ /.+\@.+\..+/) { $message = "The recipient's email address is not in the correct format.<BR>"; }
unless ($in{'subject'}) { $message .= "You must fill in a subject for your message.<BR>"; }
unless ($in{'emailmessage'}) { $message .= "Your email message is empty.<BR>"; }
if ($message) {
chomp($message);
&html_forward_email_form($message);
return;
}
open (MAIL, "$mailprog") || &cgierr("unable to open mail program");
print MAIL "Full Name: $in{'yourname'}\n";
print MAIL "Company: $in{'company'}\n";
print MAIL "Country: $in{'country'}\n";
print MAIL "To: $in{'to_email'}\n";
print MAIL "From: $in{'email'}\n";
print MAIL "Subject: $in{'subject'}\n\n";
print MAIL "-" x 75 . "\n\n";
print MAIL $in{'emailmessage'};
close (MAIL);
&html_forward_email_success;
}
In the HTML.PL I added the the 3 to fields
sub html_forward_email_form {
#----------------------------------------------------------
my ($message) = $_[0];
$in{$db_key} =~ s/<?.B>//g;
%rec = &get_record($in{$db_key});
unless ($in{'email_message'}) {
foreach $col (@db_cols) {
$in{'email_message'} .= "$col: $rec{$col}\n";
}
}
&html_print_headers;
print qq|
<html><head><title>$html_title: Email Enquiry</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td colspan=2 bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Email Enquiry</b></td></tr>
<tr><td>
<p><center><$font_title><b>
Enquire About This Vehicle
</b></font></center><br>
|;
if ($message) { print qq|There was a problem: $message|; }
print qq|
<$font>Use the <b>recipient field</b> to send a copy to yourself or to your client. If sending to us for enquiry, please copy "seicars\@gmail.com" in the field and your message in the message box $rec{'Name'}.</font>
|;
print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<input type=hidden name="$db_key" value="$in{$db_key}">
<table><tr><td align=right><$font>Full Name:</font></td>
<td><input type=text name="yourname" value="$in{'yourname'}" size=40></td></tr>
<tr><td align=right><$font>Company:</font></td>
<td><input type=text name="company" value="$in{'company'}" size=40></td></tr>
<tr><td align=right><$font>Country:</font></td>
<td><input type=text name="country" value="$in{'country'}" size=40></td></tr>
<tr><td align=right><$font>Your email address:</font></td>
<td><input type=text name="email" value="$in{'email'}" size=40></td></tr>
<tr><td align=right><$font>Recipient's email address:</font></td>
<td><input type=text name="to_email" value="$in{'to_email'}" size=40></td></tr>
<tr><td align=right><$font>Subject:</font></td>
<td><input type=text name="subject" value="$in{'subject'}" size=40></td></tr>
<tr><td align=right><$font>Your message:</font></td>
<td><textarea name="emailmessage" cols=40 rows=6 wrap="virtual">$in{'email_message'}</TEXTAREA></td></tr>
</table>
<center>
<INPUT TYPE="SUBMIT" NAME="forward_email" VALUE="Send Record">
<INPUT TYPE="RESET" VALUE="Reset Form">
</center>
</form>
|;
&html_footer;
print qq|</td></tr></table></body></html>|;
}
###############################################################################
#file: html.pl #
# new subroutine #
# sub html_forward_email_success #
###############################################################################
sub html_forward_email_success {
#-----------------------------------------------
&html_print_headers;
print qq|
<html><head><title>$html_title: Send An Enquire</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td colspan=2 bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Send An Enquire</b></td></tr>
<tr><td><p><center><$font_title><b>
Send An Enquire
</b></font></center><br>
|;
print qq|<$font>Your email message was sent.</font><P>
<center>
<a href="$db_script_link_url&$db_key=$in{$db_key}&view_records=1">
<$font>Go back to the record</font></a></center>|;
&html_footer;
print qq|</td></tr></table></body></html>|;
}
Forward Record Mod Help