sub sendemail {    
    $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;
}
[download]

# 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>Out of the following emails:";
        print "<br>@to";
        print "<p>The following were not sent:";
        print "<br>@notsent</font>";
    }
    else {
        print "<font color = 'blue'><p>Emails successfully sent to the
+se addresses:";
        print "<br>@to</font>";
    }
print "<p><a href=$accountmanagement>Return to the Account Management 
+Area</a></p>";
print "<p><a href=$locscriptdownload>Visit the Script Repository</a></
+p>";
}
[download]

#!/usr/local/bin/perl
# This script sends out an email to a specified group of individuals f
+rom
# 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: $serv
+ername");
    }


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

    ## Connect to database
    $dbh = DBI->connect($datasource,$dbusername,$dbpassword) or dienic
+e ("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 state
+ment: $!" . $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 ("C
+ouldn'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 Are
+a</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="#6666
+66" alink="#CCCCCC">
        <H1>ERROR...</H1>
        <P>$errmsg</P>
        </BODY>
        </HTML>
DIENICE
        exit;
}
[download]