#!/usr/local/bin/perl
# This script sends out an email to a specified group of individuals from
# the database
use CGI qw(:all);
use DBI;
use Net::SMTP;
use MIME::Lite;

print header;


####################
# PROGRAM OVERVIEW #
####################
# Is user admin? If not kill process.
isadmin();

# Display an email form.
#	- Subject
#	- Content
#	- Send

# Clicking the send button will
# check if all email fields are filled out.
# And if they are, will process the data, and send the
# email to the selected users.
# If not, it will display the form again.
if (param("subject") and param("body")) {
    # Get the array / hash of NL subscribers
	getsubscribers();
	sendemail();
	# Show the results of the routine.
	showresults ();
} else {
	displayform();
}


########################
# SUBROUTINES ##########
########################
sub isadmin {
    	$servername = $ENV{'SERVER_NAME'};

	## Sends Environement Variables
	if ($servername eq "localhost" or $servername eq "JaredWork"){
	   $remoteuser = 'admin';
	    } elsif ($servername eq "www.wilcoxassoc.com"){
	        $remoteuser = $ENV{'REMOTE_USER'};
	      } else{
	        foreach $key (sort(keys %ENV)){
	            print ("<p>$key = $ENV{$key}");
	        }
	        &dienice("Couldn't connect to unknown servername of: $servername");
	}


	$remoteuser = lc($remoteuser);
	$datasource = 'dbi:mysql:userinfo';
	$dbusername = 'perlscript';
	$dbpassword = 'scriptpass';

	## Connect to database
	$dbh = DBI->connect($datasource,$dbusername,$dbpassword) or dienice ("Can't connect: $! ." . $DBI::errstr );

	## Grab user info from the table
	$sth = $dbh->prepare("SELECT * FROM registered
	WHERE username = ?") or	dienice ("Couldn't prepare select statement: $!" . $dbh->errstr);
	$sth->execute ($remoteuser) or dienice ("Couldn't execute prepared statement $!" . $dbh->errstr);
	@row = $sth->fetchrow_array();

	$user = $row[0]; # Get their username
	$name = $row[1]; # Get their name
	$email = $row[2]; # Get their email
	$isadmin = $row[4]; # Get the admin column

	if (length($name)<=0) {
	   dienice("There is no username that matches
	   $remoteuser in the database. Use a different
	   username.");
	}

	if ($isadmin ne "Y" and $isadmin ne "S") {
    	dienice("$name, You do not have
    	priveleges to send out a mailing to the users.");
	}

}

sub getsubscribers {
    $sth = $dbh->prepare("SELECT * FROM subscriber") or	dienice ("Couldn't prepare select statement to get list of NL subscribers: $!" . $dbh->errstr);
	$sth->execute() or dienice ("Couldn't execute prepared statement $!" . $dbh->errstr);

    while (@row = $sth->fetchrow_array) {
	    $name = $row[2]; # Get their names
	    $email = $row[1]; # Get their emails
	    $subkey = $row[7]; # Get their subkeys
		# print "<p>Testing... $name, $email, $subkey";
	    push @names,$name;
	    push @emails,$email;
	    push @subkeys,$subkey;

    }
}

sub displayform {
	print "<h2>PC-DMIS Newsletter Subscribers - Email Form</h2>";
    print "<p>Use this form to send out emails
    to newsletter subscribers. Simply type the
    subject of the email and the body into the form below.
    You don't need to include a 'Dear (name)'
    line. This is handled automatically:</p>";

    # print "<p>Testing...list of emails to send to: @emails</p>";

    $locscriptdownload='../scriptdownload.pl';
    $accountmanagement='accountmanagement.pl';
    print <<FORM;

<form method="post" action="">
  <p><b>Subject: </b>
    <input type="text" name="subject" size="50">
  </p>
  <table width="100" border="1" height="403">
    <tr>
      <td width="66%" bgcolor="#CCCCFF" height="357">
        <p><b>Body:</b></p>
        <p align="center">
          <textarea name="body" cols="50" rows="20"></textarea>
        </p>
      </td>
    </tr>
  </table>
  <p>
    <input type="submit" name="Submit" value="Send Now">
    <input type="reset" name="Reset" value="Reset">
  </p>
  </form>
  <p><a href="$accountmanagement">Return to the Account Management Area</a></p>

FORM
}

sub sendemail {
	print "<h3>Entering Send Mail Routine</h3>";
    print "<p>This email message will be sent:";
    $body = param("body");
    $subject = param("subject");
    print "<P><b>Subject:</b> $subject";
	print "<P><b>Body:</b> $body<hr>";
    $j = 0;

	foreach $i(@names){
    		## Grab user info from the table

		$name = $names[$j]; # Get their name
		$email = $emails[$j]; # Get their email
		$subkey = $subkeys[$j]; #Get their subscriber key
		$remotehost =  $ENV{'HTTP_HOST'};
		$remotehost = "http://" . $remotehost . "/";
		$locunsubscribe = 'perl/nl_unsubscribe.pl' . '?' . $subkey;
		$locunsubscribe = $remotehost . $locunsubscribe;
    	mailit();
    	$j++;

	}

 }

sub mailit{
print "<p>...Attempting to send message to user:";
print "<H4>Record for $user</H4>";
        print "<UL>";
	        print "<LI>User: $user";
	        print "<LI>Name: $name";
	        print "<LI>Email: $email";
            print "</UL>";
    	print "<HR>";


my $wai = 'Wilcox Associates Inc.<admin@wilcoxassoc.com>';
my $when = localtime();
my $locwai = '../Contactinfo/feedback.htm';
my $mail_host = 'mail.wilcoxassoc.com';

 # Replace w/ browse button on form to get these.
my $fullpath = 'd:\temp\test.pdf';
my $filename = 'test.pdf';



### Create the multipart container
$msg = MIME::Lite->new (
  From => $wai,
  To => $email,
  Subject => $subject,
  Type =>'multipart/mixed'
  ) or die "Error creating multipart container: $!\n";

### Add the text message part
$msg->attach (
  Type => 'TEXT/HTML',
  Data => "<p>Dear $name,</p><p>$body</p><p></p><p></p>To unsubscribe from the WAI Newsletter, follow this link:
$locunsubscribe<hr>THIS IS AN AUTOMATED MESSAGE! PLEASE DON'T REPLY TO THIS EMAIL."
) or die "Error adding the text message part: $!\n";

### Add the specified PDF file
$msg->attach (
   Type => 'application/pdf',
   Path => $fullpath,
   Filename => $filename,
   Disposition => 'attachment'
) or die "Error adding $fullpath: $!\n";


### Send the Message
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send or push @notsent,$email;
}

# Show the results of the send. This sub checks to
# see if the array contains any addresses that it coulnd't send to and displays them:
sub showresults{
	print "<h3>Showing Results</h3>";

	if (@notsent) {
	    print "<font color = 'red'><p>COULD NOT SEND TO the following emails:";
	    print "<br>@notsent</font>";
	}
	else {
	    print "<font color = 'blue'><p>All emails were sent.";
	}
print "<p><a href=$accountmanagement>Return to the Account Management Area</a></p>";
print "<p><a href=$locscriptdownload>Visit the Script Repository</a></p>";
}


####################
### DYING NICELY ###
sub dienice {
        my($errmsg) = @_;
        print <<DIENICE;
        <HTML><HEAD><TITLE>ERROR!</TITLE></HEAD>
        <BODY bgcolor="#CDDAE0" text="red" link="#000066" vlink="#666666" alink="#CCCCCC">
        <H1>ERROR...</H1>
        <P>$errmsg</P>
        </BODY>
        </HTML>
DIENICE
        exit;
}