#!/usr/bin/perl 

###########################################################################
# email.pl
# 200804, cbartels
#
# sends email with a link to the newsletter to the address provided
# replaces email.sfe written by jstrimpe, 10/2006

###########################################################################
#
BEGIN {
  $debug = 0;   # important that this is set before the use CGI_Input
  $|=1;         # output auto flush
  use lib '/local/apache/htdocs-dah/news/newsletter';
}
 
use DAH_CGI_Input;   # note this is a local copy for dah.


###########################################################################
# global vars

my $header = "header.html";
my $footer = "footer.html";
my $support = 'webmaster@soe.ucsd.edu';
my $mailsubject = "Link, an e-newsletter from UC San Diego's Division of Arts and Humanities";

my ($mailto,$mailfrom,$access,$bad_var);
@allowed_vars; 
@required_vars;
$error_msg_text;

###########################################################################
# print header
print "Content-type: text/html\n\n";

###########################################################################
# Process incoming data
 
# decode and split input data 
$Vars=DAH_CGI_Input::parse_indata();      # $Vars is a ref to hash


##########################################
# Assign values to variable names

while ( ($name,$value) = each(%$Vars) ) {

#  # remove either quote character from data values (since these
#  # would require special handling to do the sybase insert).
#  $value =~ s/'|"//g;

  $$name = $value;
  if ($debug) {print "$name equals $$name<BR>\n";}

}

#########################################
# Check variables passed in
# these are the only variables allowed; reject if they send anything else.

@allowed_vars = qw(SendToEmail SendFromEmail SendBodyEmail submit);

$bad_var = DAH_CGI_Input::allowed_vars(\@allowed_vars, $Vars);

if ($bad_var) {
   $error_msg_text = "Rejected Submission -- Bad Variable Passed: $bad_var";
   DAH_CGI_Input::error_form("Bad Variable");
} elsif ($debug) {
  print "All vars OK<BR>\n";
}

#########################################
# set this var now; used below in required var check
# what are we doing?  submitting the form or just displaying it?

if ($SendToEmail && $SendToEmail ne "") {
  $access = "SendMail";
} else {
  $access = "ShowForm";
}

#########################################
# Check for required variables -- 
# dependent upon value of $access set above

if ($access eq "SendMail") {
  @required_vars = qw(SendToEmail SendFromEmail SendBodyEmail);
} else {
  @required_vars = qw();
}

($missing_vals) = DAH_CGI_Input::required_vars(\@required_vars,0);  # ref to array

if ($missing_vals) {

  for ($i=0;$i<@$missing_vals;++$i) {
    $missing_vals_html .= "<BR>" . uc(@$missing_vals[$i]);
  }

  $error_msg_text = "You must supply data for the following field(s):<B> $missing_vals_html</B>";
  DAH_CGI_Input::error_form("Missing Values");
} elsif ($debug) {
  print "OK - No Missing Vals<BR>\n";
}

 

###########################################################################
# Check variable values 

if ($debug) { 
  print "DEBUGGING IS TURNED ON...<P>\n"; 
}


#######################################################

if ($access eq "SendMail") {
  send_email();
}

print_page();

#######################################################
 
#######################################################
# SUBROUTINES
#######################################################
 
#######################################################
 
sub print_page {

  open (HDR,"$header") || warn "Cannot Open Form Header\n";
    while (<HDR>) {
      print "$_\n";
  }
  close(HDR);

  print '
    <p class="title">Mail Newsletter to a Friend</p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
  ';  # end print

  if ($access eq "ShowForm") {
    print '
      <form name="form1" method="post" action="email.pl" onSubmit="return ValidateEmailForm(this);">
      <table width="100%" border="0" cellpadding="3" cellspacing="0" class="box">
      <tr valign="top">
        <td width="40%"align="right">
          Recipient\'s Email Address:
        </td>
        <td width="60%">
          <input name="SendToEmail" type="text" id="SendToEmail" size="25" maxlength="75">
        </td>
      </tr>
      <tr valign="top">
        <td align="right">
          Your Email Address:
        </td>
        <td>
          <input name="SendFromEmail" type="text" id="SendFromEmail" size="25" maxlength="75"><br />
          <span class="smalltext">
            Email addresses will NOT be collected, stored, or used in any way.
          </span>        
        </td>
      </tr>
      <tr valign="top">
        <td align="right">
          Message:
        </td>
        <td>
          <textarea name="SendBodyEmail" id="SendBodyEmail" cols="35" rows="10" wrap="VIRTUAL"></textarea>
        </td>
      </tr>
      <tr valign="top">
        <td height="21" colspan="2">
          <center>
            <input type="submit" name="submit" value="Submit">
          </center>
        </td>
      </tr>
    </table>
    </form>
    <p><a href="/news/newsletter/">&laquo; Back to Newsletter</a></p>
   ';  # end print
  } else {
    print '
      <p>
      Your message and a link to the newsletter has been sent to 
      the email address you entered into the form.<br />
      <a href="/news/newsletter/">&laquo; Back to Newsletter</a>
    </p>
   '; # end print
  }  # end check for ShowForm

  open (HDR,"$footer") || warn "Cannot Open Form Footer\n";
    while (<HDR>) {
      print "$_\n";
  }
  close(HDR);
  print "</body></html>";


}  # end print_page

#######################################################
# Send email with form values.
    
sub send_email {
    if (open (MAIL, "|/usr/lib/sendmail -t -oi" ))
    {
        print MAIL "From: $SendFromEmail \n";
        print MAIL "To: $SendToEmail \n";
        print MAIL "Subject: $mailsubject\n";
        print MAIL "$SendBodyEmail\n";
        print MAIL "http://dah.ucsd.edu/news/newsletter/";
        print MAIL "\n";
        close MAIL;
    } else {
        $error_msg_text = " The form you filled out could not be mailed.<BR>
        Please contact <A HREF=\"mailto:$support\">webmaster</A> ";
        DAH_CGI_Input::error_form("Mail Error");
    }
}

#######################################################