#!/usr/bin/perl
# Copyright 2001-2018 Leslie Richardson
# This file is part of Open Admin for Schools.
# Open Admin for Schools is free software; you can redistribute it
# and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
my %lex = ('Group Email' => 'Group Email',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Main' => 'Main',
'Blank=All' => 'Blank=All',
'Select' => 'Select',
'Values' => 'Values',
'Group' => 'Group',
'Parent' => 'Parent',
'Separate with Spaces' => 'Separate with Spaces',
'Subject' => 'Subject',
'Message' => 'Message',
'Continue' => 'Continue',
'Student' => 'Student',
'Checked' => 'Checked',
'Email Sent' => 'Email Sent',
'Error' => 'Error',
'Email' => 'Email',
'Attach File' => 'Attach File',
'Cannot open file' => 'Cannot open file',
'Maximum File Upload size exceeded!' => 'Maximum File Upload size exceeded!',
'Next Page' => 'Next Page',
'Form' => 'Form',
'Forms' => 'Forms',
'OR' => 'OR',
);
my $self = 'emailgroup1.pl';
# Configured Values
my $maxbufcount = 1000; # 1000K = 1Mb limit for file attach size.
#my $mailserver = 'richtech.ca'; # localhost
#my $noreplyName = 'OpenAdmin Messaging System';
#my $noreplyEmail = 'no-reply@yoursite.net';
# New config values in conf_system.
my $g_EmailAuthId = '';
my $g_EmailAuthPwd = '';
my $g_EmailPort = 587; # or 587 for TLS
my $g_EmailServer = 'email-smtp.us-east-1.amazonaws.com';
my $g_EmailNoReply = 'no-reply@conventhighschool.org';
my $g_EmailUseTLS = '1'; # use 1 or 0 (zero)
use CGI;
use DBI;
# The Email libraries are found in the postEmail sub.
# calc current date
my @tim = localtime(time);
my $year = @tim[5] + 1900;
my $month = @tim[4] + 1;
my $day = @tim[3];
my $currdate = "$year-$month-$day";
eval require "../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " :$@ \n";
die $lex{Error}. " :$@ \n";
}
my $schoolmode;
if ( $g_BritishSchoolMode ) {
$schoolmode = 1; # will there be a mode 2?
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $checked = $arr{checked};
delete $arr{checked};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
# Show page Header
my $title = $lex{'Group Email'};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) { # Select Groups and which emails to do (Student, Parents)
showStartPage();
} elsif ( $arr{page} == 1 ) { # Select Students, Parents / Set Message, Attachment
delete $arr{page};
selectRecipients();
} elsif ( $arr{page} == 2 ) { # post the Mail
delete $arr{page};
postEmail();
}
#----------------
sub showStartPage {
#----------------
my (@homerooms, @grades );
# Get Homerooms
my $sth = $dbh->prepare("select distinct homeroom from student
where homeroom is not NULL and homeroom != ''");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $hr = $sth->fetchrow ) {
push @homerooms, $hr;
}
@homerooms = sort {$a <=> $b} @homerooms;
# Get Grades
$sth = $dbh->prepare("select distinct grade from student
where grade is not NULL and grade != ''");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $gr = $sth->fetchrow ) {
push @grades, $gr;
}
@grades = sort {$a <=> $b} @grades;
# Setup the form and start of table.
print qq{\n};
print qq{\n};
exit;
}
#-------------------
sub selectRecipients { # Choose students/parents to email to and put in message
#-------------------
# foreach my $key (keys %arr) { print qq{K:$key V:$arr{$key} \n}; }
# passed 3 email selects, check, and then all groups G: or H:
my $selStudent = $arr{selStudent};
delete $arr{sel};
my $selPar1 = $arr{selPar1};
delete $arr{selPar1};
my $selPar2 = $arr{selPar2};
delete $arr{selPar2};
# $checked is already defined at top, if selected in startpage.
# only groups left in %arr now.
my (%sort, %student);
foreach my $key ( keys %arr ) {
my ($group, $val) = split(':', $key);
my $sth;
if ( $group eq 'G' ) {
$sth = $dbh->prepare("select lastname, firstname, studnum, grade, homeroom,
email, par1_email, par2_email from student where grade = ?");
$sth->execute( $val );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
} else { # homeroom
$sth = $dbh->prepare("select lastname, firstname, studnum, grade, homeroom,
email, par1_email, par2_email from student where homeroom = ?");
$sth->execute( $val );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
}
# Loop through the students
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$sort{"$r{lastname}$r{firstname}$r{studnum}"} = $r{studnum};
$student{$r{studnum}} = $ref;
}
}
# Setup the form and start of table.
print qq{