###############################################################################
#                                                                             #
#                        P R I V A T E   M A I L E R                          #
#                                                                             #
#                         Last modified: 20 Apr 2000                          #
#         Modified 7 Mar 2004 for DBMan SQL version 1 by shann123			#
###############################################################################

###############################################################################
#                                                                             #
# This mod will allow your users to receive email from other visitors to your #
# site, while at the same time maintaining some degree of privacy. Instead of #
# using a "mailto:" link with their email address, this mod creates a form    #
# for the email and then looks up the recipient's email address in the        #
# and sends it.                                                               #
#                                                                             #
# The mod requires that you have the "sendmail" program on your system and    #
# that you have a field in your database for the email address of each user.  #
#                                                                             #
###############################################################################

###############################################################################
# file: default.cfg                                                           #
#                                                                             #
# somewhere in the authentication definitions                                 #
# add the following                                                           #
###############################################################################

# Full path to sendmail on your system
    $mailprog = "|/usr/lib/sendmail -t -oeq";

# Fieldname that contains the email address of the user
    $db_email_field = 'Email';


###############################################################################
#file:  db.cgi                                                                #
#       sub main                                                              #
#                                                                             #
# within the other "elsif" statements                                         #
# add the following                                                           #
###############################################################################

elsif ($in{'send_email_form'})  { &html_send_email_form; }  
elsif ($in{'send_email'})       { &send_email; }  

###############################################################################
#file:  db.cgi                                                                #
#       new subroutine                                                        #
#       sub send_email                                                        #
###############################################################################

sub send_email {
# --------------------------------------------------------
# This subroutine added for the private email mod
#
  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_user_data($in{$db_key});
  if (!%rec) { $message .= "The email address you requested could not be found.<BR>"; }
  elsif (!$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: $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;
}

###############################################################################
#file:  db.cgi                                                                #
#       new subroutine                                                        #
#       sub get_user_email                                                    #
# Change the numbers in "$email = $data[50]" & $name = $data[2] to match the  #
# email and Name fields in your "Items" table.								  #
###############################################################################

sub get_user_data { 
# -------------------------------------------------------- 
# Pulls the email address from the password file. 


    my $key = $_[0];
    my ($sth, $query, @result, %result, $i, $key_q);

# If we are not passed in a key, return undef.
    unless ($key) { return undef; }
    $db_is_int{$db_key} ?
        ($key_q = int($key)) :
        ($key_q = $DBH->quote($key));

    local $" = ',';
    $query = qq!
                SELECT @db_cols FROM $db_table
                WHERE $db_key = $key_q
            !;

my $sth = $DBH->prepare($query); 
$sth->execute(); 
if ($sth->rows) { 
while (@data = $sth->fetchrow_array) { 
$email = $data[50];  
$name = $data[2];  
} 
} 

$sth->finish; 
return $email; 
}

###############################################################################
#file: html.pl                                                                #
#      sub html_record                                                        #
#                                                                             #
# Just after                                                                  #
#   my (%rec) = @_;                                                           #
#                                                                             #
# Add                                                                         #
###############################################################################

$rec{$db_key} =~ s/<?.B>//g;

###############################################################################
#file: html.pl                                                                #
#      sub html_record                                                        #
#                                                                             #
# Add this link somewhere in the subroutine, probably close to the end.       #
###############################################################################

<a href="$db_script_link_url&$db_key=$rec{$db_key}&send_email_form=1">Send email to this person</a>

###############################################################################
#file:  html.pl                                                               #
#       new subroutine                                                        #
#       sub html_send_email_form                                              #
###############################################################################

sub html_send_email_form {
#----------------------------------------------------------
  my ($message) = $_[0];
  $in{$db_key} =~ s/<?.B>//g;
  %rec = &get_user_data($in{$db_key});
  &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><br>
  |;

  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 $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>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 message:</font></td>
                 <td><textarea name="emailmessage" cols=40 rows=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>
  |;

  &html_footer;
  print qq|</td></tr></table></body></html>|;
}

###############################################################################
#file:  html.pl                                                               #
#       new subroutine                                                        #
#       sub html_send_email_success                                           #
###############################################################################

sub html_send_email_success {
#-----------------------------------------------                  
  &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><br>
  |;
 
  print qq|<$font>Your email message was sent.</font>|;
print qq|<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>|;
}