Okay. I finally worked out the mod for more privacy in sending email. (It needed some brain time.
)
This has not been tested, except that I'm pretty sure there aren't any syntax errors. I'm pretty sure it will work, though.
I'll post the whole thing here and, when I can, I'll upload the text file to my site and list it in the resources. Things in
bold need to be edited by you.
First, in default.cfg add a line
Code:
# The email program on your system
$mailprog = "
|/usr/lib/sendmail -t";
In db.cgi, sub main (where all the other "elsif" statements are) add
Code:
elsif ($in{'send_email_form'}) { &html_send_email_form; }
elsif ($in{'send_email'}) { &send_email; }
also in db.cgi, a new subroutine. You can add it anywhere, as long as it's not within another subroutine.
Code:
sub send_email {
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{'subject'}) { $message .= "You must fill in a subject for your message.<BR>"; }
unless ($in{'emailmessage'}) { $message .= "Your email message is empty.<BR>"; }
%rec = &get_record($in{$db_key});
if (!%rec) { $message .= "The email address you requested could not be found.<BR>"; }
if (!$rec{'
Email'}) { $message .= "There is no email address on file for this person.<BR>" }
if ($message) {
chomp($message);
&html_send_email_form($message);
return;
}
open (MAIL, "$mailprog") | | &cgierr("unable to open mail program");
print MAIL "To: $rec{'
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_send_email_success($rec{'
Name'});
}
Be sure to change the field names to the names in your database.
In html.pl, sub html_record, wherever you want the link to be to send an email to the person -- this must be within a print qq| statement.
Code:
<a href="$db_script_link_url&$db_key=$rec{$db_key}&send_email_form=1">Send email to this person</a>
html.pl -- new subroutine
Code:
sub html_send_email_form {
my ($message) = $_[0];
%rec = &get_record($in{$db_key});
&html_print_headers;
# <-- top of page formatting -->
print qq|
<html><head><title>$html_title: Send an email</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 email</b></td></tr>
<tr><td>
<p><center><$font_title><b>
Send an email
</b></font></center><br>
|;
# <-- introductory text -->
if ($message) { print qq|There was a problem: $message|; }
print qq|
<$font>Fill in your email address, the subject of your email and the
message you wish to send to $rec{'
Name'}.</font>
|;
# <-- email form -->
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>Your email address:</font></td>
<td><input type=text name="email" value="$in{'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 email address:</font></td>
<td><textarea name="emailmessage" width=40 height=10>$in{'emailmessage'}</textarea></td></tr>
</table>
<center>
<INPUT TYPE="SUBMIT" NAME="send_email" VALUE="Send Email">
<INPUT TYPE="RESET" VALUE="Reset Form">
</center>
</form>
|;
# <-- end of page formatting -->
&html_footer;
print qq|</td></tr></table></body></html>|;
}
Again, be sure to change the field names to match your database.
html.pl -- another new subroutine
Code:
sub html_send_email_success {
my ($message) = $_[0];
&html_print_headers;
# <-- top of page formatting -->
print qq|
<html><head><title>$html_title: Send an email</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 email</b></td></tr>
<tr><td><p><center><$font_title><b>
Send an email
</b></font></center><br>
|;
# <-- text -->
print qq|<$font>Your email message was sent to $message.</font>|;
# <-- end of page formatting -->
&html_footer;
print qq|</td></tr></table></body></html>|;
}
If anybody uses this, I'd really appreciate your letting me know how it works for you, good or bad.
------------------
JPD
[This message has been edited by JPDeni (edited March 29, 1999).]
