#! /usr/bin/perl
# Copyright 2001-2021 Leslie Richardson
# This file is part of Open Admin for Schools.
# based on IEP system file 'attendcheck_local.pl';
my $self = 'past_attscan2.pl';
my %lex = ('Attendance' => 'Attendance',
'Error' => 'Error',
'Main' => 'Main',
'Continue' => 'Continue',
'Cutoff' => 'Cutoff',
'Entry Value' => 'Entry Value',
'Percent' => 'Percent',
);
use DBI;
use CGI;
use Number::Format qw(:all);
use Cwd;
use Time::JulianDay;
# Read config variables
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
# Get passed vars; comment this out below.
my $q = new CGI;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
# Page Header
my $title = qq{Attendance Scan 2};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{ SSP ] $currdate\n};
print qq{
$title
\n};
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my ($db, $dsn, $dbh );
if ( not $arr{remote} ) { # get the remote database of choice.
# Get remote databases
my $remotedbase = 'information_schema';
my $dsnr = "DBI:$dbtype:database=$remotedbase;host=$remotehost";
my $dbhr = DBI->connect($dsnr,$remoteuser,$remotepassword);
my $sth = $dbhr->prepare("select distinct table_schema from TABLES order by table_schema");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my %remotedb;
# Select Previous Databases for this school
while ( my $db = $sth->fetchrow ) {
if ( $db eq 'mysql' or $db eq 'information_schema' ) { next; }
if ( $db =~ m/$dbase/ ) {
$remotedb{$db} = 1;
}
}
# Start the form
print qq{\n};
print qq{\n};
exit;
} else { # we have $arr{remote}
my $dbase = $arr{database}; # passed from function above.
$dsn = "DBI:$dbtype:database=$dbase;host=$remotehost";
$dbh = DBI->connect($dsn,$remoteuser,$remotepassword);
# Get the values from configuration system of this year.
my $sth = $dbh->prepare("select datavalue from conf_system where filename = 'admin'");
$sth->execute;
my $failflag = 1;
while ( my $datavalue = $sth->fetchrow ) {
# print "DV:$datavalue \n";
if ( $datavalue =~ m/schoolstart/ or $datavalue =~ m/schoolend/ ) {
$failflag = 0;
}
eval $datavalue;
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
}
if ( $failflag ) { # school year not defined.
print qq{