###############################################################################
#                                                                             #
#                        F O R W A R D   R E C O R D                          #
#                                                                             #
#                         Last modified: 22 Jun 2000                           #
###############################################################################

###############################################################################
#                                                                             #
# This mod will allow your users to mail the contents of a record to          #
# themselves or someone else.                                                 
#                                                                             #
# The mod requires that you have the "sendmail" program on your system.       #
#                                                                             #
###############################################################################

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

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


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

elsif ($in{'forward_email_form'})  { &html_forward_email_form; }  
elsif ($in{'forward_email'})       { &forward_email; }  

###############################################################################
#file:  db.cgi                                                                #
#       sub get_record                                                             #
#                                                                             #
# Delete or comment out the following line:
###############################################################################

($restricted = 1) if ($auth_modify_own and !$per_admin);

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

sub forward_email {
# --------------------------------------------------------
# This subroutine added foward record 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{'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 "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;
}

###############################################################################
#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}&forward_email_form=1">Send this record to a friend</a>

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

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: 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 $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>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=10 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 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><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>|;
}