Did the code work alright for you?
We will create an extra form for the HTML email.
In your .cfg file you need (and you will probably have something like)
$UPLOADURL = "http://www.yourdomain/upimages";
$ALLOWED_EXT = '\.gif$|\.jpg$';
In db.cgi in sub main add this line with all other elseif's
elsif ($in{'forward_email_htmlform'}) { if ($per_view) { &html_forward_email_htmlform; }else { &html_unauth; } }
In html.pl add this subroutine
sub html_forward_email_htmlform {
#----------------------------------------------------------
my ($message) = $_[0];
$in{$db_key} =~ s/<?.B>//g;
$auth_modify_own = 0;
%rec = &get_record($in{$db_key});
unless ($in{'emailmessage'}) {
foreach $col (@db_cols) {
$rec{$col} =~ s/\n/
/g;
if ($rec{$col} =~ /$ALLOWED_EXT/){ $rec{$col} = "<img src= $UPLOADURL/$rec{'Image Name'}>";}
$in{'emailmessage'} .= "<tr><td align=right><$font>$col:</font></td><td><$font>$rec{$col}</font></td></tr>\n";
}
}
&html_print_headers;
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>
|;
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 .</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>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></font></td><td><$font>To send to more than one email address seperate
with a comma (eg. email\@hisdomain.com, email\@herdomain.com)</font></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></font></td>
<td><input type=hidden name="Image Name" value="" size=40><$font></font></td></tr>
<tr><td align=right><$font>This record :</font></td>
<td><textarea name="emailmessage" cols=40 rows=10 readonly="readonly" wrap="virtual"><html><head></head><body><TABLE WIDTH="450" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#FFFFCC">
$in{'emailmessage'}</body>
</html></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>|;
}
I have made the textarea readonly but you can remove that.
More than one email can be sent at a time if they are seperated by a comma, the same applies to the plain email.
At the bottom of sub html record you will need something similar to
<a href="$db_script_link_url&$db_key=$rec{$db_key}&forward_email_form=1"><$font>Send this record to a friend</Font></a><br />
<a href="$db_script_link_url&$db_key=$rec{$db_key}&forward_email_htmlform=1"><$font>Send this record to a friend as HTML</Font></a>
The HTML comes through as one whole page to Eudora 4.3, I don't use Outlook or Hotmail, but can you let me know if it is ok.
rog
