#!/usr/bin/perl -w
#
# Membership list email/admin program
#
use strict;
use DBI;
my $statusStr = "";
my $address;
my $subject;
my $username="";
my $password="";
my $database="";
my $server="localhost";
my $size;
my @lines;
my $newstext;
my $temphtml="";
my $template;
my $defaulttitle="New web site";
my $defaultmsg="Dear Sir/Madam,\n\nThis is a one-off message to let you know about a new web site.";
my $dbh = DBI->connect("DBI:mysql:$database:$server",$username,$password);
&readList(); # get membership list
#
# Send a newsletter to all of the members
#
if (($input{"sendNewsletter"}) & ($input{"AllMembers"} eq "Yes")) {
# $address = "mmilner\@actis.co.uk";
# for testing purposes
$address = "admin\@somwhere.net";
# for testing purposes
$subject=$input{"newsTitle"};
$newstext=$input{"newsText"};
# &sendMail();
}
#
# Send a newsletter to the (selected) members
#
if ($input{"NewsletterConfirm"}) {
$address = "admin\@somwhere.net"; # for testing purposes
$subject=$input{"title"};
$newstext=$input{"text"};
&sendMailtoSelected();
}
#
# Add a new user to the database
#
if ($input{"AddUser"} eq "1") {
my $query="insert into bsmailinglist (user_name,user_type,centre_name,centre_number,email,member,last_mailed,optout,fore_name,middle_names,sur_name) values (?,?,?,?,?,?,?,?,?,?,?)";
my $sth = $dbh->prepare($query);
$size = $sth->execute($input{'username'},$input{'usertype'},$input{'centre'},$input{'centrenum'},$input{'email'},$input{'member'},$input{'lastmailed'},$input{'optout'},$input{'forename'},$input{'midname'},$input{'surname'});
}
#
# Edit a users details
#
if ($input{"EditUser"} eq "1") {
my $query="update bsmailinglist set user_name=?,user_type=?,centre_name=?,centre_number=?,email=?,member=?,last_mailed=?,optout=?,fore_name=?,middle_names=?,sur_name=? where id=$input{'recid'}";
my $sth = $dbh->prepare($query);
$size = $sth->execute($input{'username'},$input{'usertype'},$input{'centre'},$input{'centrenum'},$input{'email'},$input{'member'},$input{'lastmailed'},$input{'optout'},$input{'forename'},$input{'midname'},$input{'surname'});
my $row = $sth->fetchrow_hashref();
}
#
# Delete a user from the database
#
if ($input{"DeleteUser"} eq "1") {
my $query="delete from bsmailinglist where id=$input{'recid'}";
my $sth = $dbh->prepare($query);
$size = $sth->execute();
}
my $font = qq^^;
#print "Content-type: text/plain\n\ntest\n"; # desperate debugging only!
#
# now build the forms to be displayed
#
$template = <
BSOL Administration Page
$font
BSOL Administration Page
$statusStr
EOFHTML
&readList(); # get latest membership list
if (($input{"sendNewsletter"}) & ($input{"AllMembers"} eq "No")) { # email selected members?
my $recno=0;
$template .= qq^
List of users:
\n^;
$template .= qq^\nBack\n^;
$sth = undef;
$dbh->disconnect;
#
# Add a user - display form
#
} elsif ($input{"Add"} eq "Add") {
$template .= <Add user details
EOFHTML
#
# Edit a user - display form
#
} elsif ($input{"Edit"} eq "Edit") {
my $query="select * from bsmailinglist where id=$input{'member'}";
my $sth = $dbh->prepare($query);
$size = $sth->execute();
my $row = $sth->fetchrow_hashref();
$template .= <Amend user details
EOFHTML
$sth = undef;
$dbh->disconnect;
#
# Delete a user - display confirmation form
#
} elsif ($input{"Delete"} eq "Delete") {
my $query="select * from bsmailinglist where id=$input{'member'}";
my $sth = $dbh->prepare($query);
$size = $sth->execute();
my $row = $sth->fetchrow_hashref();
$template .= <Delete a user
EOFHTML
$sth = undef;
$dbh->disconnect;
#
# Send email to selected user. (Display initial form.)
#
} elsif ($input{"mail"}) {
my $query="select * from bsmailinglist where id=$input{'member'}";
my $sth = $dbh->prepare($query);
$size = $sth->execute();
my $row = $sth->fetchrow_hashref();
$template .= <Send email to selected user
EOFHTML
$sth = undef;
$dbh->disconnect;
#
# Send email to selected user. (Display formmail form.)
#
} elsif ($input{"SendEmailviaFormmail"}) {
# update last emailed field
my $query="select * from bsmailinglist where id=$input{'recid1'}";
my $sth = $dbh->prepare($query);
$size = $sth->execute();
my $row = $sth->fetchrow_hashref();
# get current date/time
my $cdate;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdist) = localtime(time);
$cdate=($year+1900) . "/" . $mon . "/" . $mday;
$query="update bsmailinglist set last_mailed=? where id=$input{'recid1'}";
$sth = $dbh->prepare($query);
$sth->execute($cdate);
$sth = undef;
$dbh->disconnect;
$template .= <Send email to selected user
SQL/Date:- $query , $cdate
Info to send formmail:-
EOFHTML
#
# ============ initial display of form ===============
#
} else {
my $recno;
$template .= qq^List of existing users
\n^;
$template .= qq^\n^;
}
unless (($input{"sendNewsletter"}) | ($input{"NewsletterConfirm"}) | ($input{"SendEmailviaFormmail"})) {
$template .= <Send email to users
Use this form to compose a message to send to all users who have opted to receive them.
EOFHTML
}
$template .= <