#!/usr/bin/perl # Copyright 2001-2020 Leslie Richardson use DBI; use CGI; use Number::Format qw(:all); my $self = 'emailStudent.pl'; # my $sssvmail = "SummerSchoolfortheSoloVoice\@gmail.com"; eval require "../etc/admin.conf.root"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Load configuration values of interest my $sth = $dbh->prepare("select datavalue from conf_system where dataname = ?"); foreach my $dv ( qw( doctype tchcss tchpage )) { $sth->execute($dv); my $datavalue = $sth->fetchrow; eval $datavalue; if ( $@ ) { print "Error: $@
\n"; die "Error: $@\n"; } } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; # Page Header. my $title = "Email Students/Parents"; print "$doctype\n$title\n"; print qq{\n}; print qq{[ Main ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; showReport(); } #------------- sub showReport { #------------- # foreach my $key (keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # find who to email for each student. my @emailwho; foreach my $key ( keys %arr ) { if ( $key eq 'emailstudent' ) { push @emailwho, 'email'; delete $arr{$key}; } elsif ( $key eq 'emailpar1' ) { push @emailwho, 'par1_email'; delete $arr{$key}; } elsif ( $key eq 'emailpar2' ) { push @emailwho, 'par2_email'; delete $arr{$key}; } } if ( not @emailwho ) { print qq{

No Email Recipients Selected!

\n}; print qq{\n}; exit; } # foreach my $key (keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Get teacher's email address. my $userid = $ENV{'REMOTE_USER'}; my $sth = $dbh->prepare("select email from staff where userid = ?"); $sth->execute($userid); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $tchEmail = $sth->fetchrow; my $sth = $dbh->prepare("select * from studentall where studnum = ?"); my %email; # list of all emails to send to. foreach my $studnum ( sort {$a <=> $b} keys %arr ) { # Get the student record $sth->execute($studnum); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; foreach my $field ( @emailwho ) { $email{ $r{$field} } = 1; print "Field:$field Email:$r{$field}
\n"; } } my $em = join(',',keys %email); print qq{[ Send Email ]\n}; # Example: print qq{Email Confirmation}; print qq{\n}; exit; } # end of showReport #------------- sub showReportOLD { #------------- # foreach my $key (keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # open passed database my $dbtype = 'mysql'; my $dbase = $arr{db}; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; delete $arr{db}; my $combineemail = $arr{combineemail}; delete $arr{combineemail}; my $first = 1; my $count = 1; my $sth = $dbh->prepare("select * from student where id = ?"); if ( $combineemail ) { print '[ Send Combined Email ]'; } else { foreach my $id ( keys %arr ) { $sth->execute($id); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; if ( $first ) { # print header print qq{\n}; print qq{\n}; $first = 0; } print qq{}; print qq{}; print qq{\n}; $count++; } print qq{
NameEmailEmail LinkPassword
$count. $r{lastname}, $r{firstname}$r{email}Email Confirmation$r{password}
\n}; } print qq{\n}; exit; } # end of showReportOLD #---------------- sub showStartPage { #---------------- # Get the userid and then homerooms and/or courses. my $userid = $ENV{'REMOTE_USER'}; # Get homerooms, if any my @homerooms; my $sth = $dbh->prepare("select field_value from staff_multi where userid = ? and field_name = 'homeroom'"); $sth->execute($userid); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $homeroom = $sth->fetchrow ) { push @homerooms, $homeroom; } # Get Courses; my %courses; my $sth = $dbh->prepare("select * from subject where teacher = ?"); $sth->execute($userid); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; $courses{"$r{startrptperiod}$r{description}$r{subjsec}"} = $ref; } # Start the Form print qq{
\n}; print qq{\n}; print qq{
\n}; my $first = 1; # Homerooms if ( @homerooms ) { print qq{\n}; print qq{\n}; foreach my $hr ( sort @homerooms ) { print qq{\n}; } print qq{
Select Homeroom
$hr
\n}; $first = 0; } if ( @homerooms and %courses ) { # OR print qq{
OR
\n}; } # Courses if ( %courses ) { print qq{\n}; print qq{\n}; foreach my $key ( sort keys %courses ) { my %r = %{ $courses{$key}}; print qq{\n}; } print qq{
Select Course
}; print qq{$r{description} ($r{subjsec})
\n}; $first = 0; } if ( $first ) { print qq{

No Homerooms or Courses Found!

\n}; } print qq{
\n}; # Email who? print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
Select Email
Email Student
Email Parent 1
Email Parent 2
\n}; # Check Next Page? print qq{
Check Next Page of Students?
\n}; if ( not $first ) { print qq{
\n}; } print qq{
\n}; print qq{\n}; exit; } #----------------- sub selectStudents { #----------------- # foreach my $key (sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Passed Homeroom and/or Courses; my $checked; if ( $arr{check} ) { $checked = qq{checked="checked"}; } delete $arr{check}; # Check for courses/homeroom my (@homerooms, @courses); foreach my $key ( keys %arr ) { my ($type,$val ) = split(':', $key); if ( $val ) { if ($type eq 'C') { push @courses, $val; } elsif ( $type eq 'H' ) { push @homerooms, $val; } delete $arr{$key}; } } # only up to 3 email recipients left in %arr; pass these in hidden form values. # print "ARR:", %arr, "
\n"; # print "Courses:@courses
\n"; # print "Homeroom:@homerooms
\n"; my %students; # collect student numbers (studnum) if ( @courses ) { my $sth = $dbh->prepare("select distinct studnum from eval where subjcode = ?"); foreach my $subjsec ( @courses ) { $sth->execute( $subjsec ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $studnum = $sth->fetchrow ) { $students{$studnum} = 1; } } } if ( @homerooms ) { my $sth = $dbh->prepare("select studnum from student where homeroom = ?"); foreach my $homeroom ( @homerooms ) { $sth->execute( $homeroom ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $studnum = $sth->fetchrow ) { $students{$studnum} = 1; } } } # now have all students in %students hash. # Create a sort hash and hash to hold name. my (%sort,%name); my $sth = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); foreach my $studnum ( keys %students ) { $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; $sort{"$lastname$firstname$studnum"} = $studnum; $name{$studnum} = qq{$lastname, $firstname}; } # Start Form print qq{
\n}; print qq{\n}; foreach my $key ( keys %arr ) { # put in who to email (emailstudent,emailpar1, emailpar2) print qq{\n}; } print qq{\n}; print qq{\n}; print qq{\n}; my $count = 1; foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; print qq{\n}; $count++; } print qq{\n}; print qq{
Select Students
$count. \n}; print qq{$name{$studnum} ($studnum)
\n}; print qq{\n}; exit; }