#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Main' => 'Main',
'Set' => 'Set',
'Color' => 'Color',
'Error' => 'Error',
'Cannot open file' => 'Cannot open file',
'Old' => 'Old',
'New' => 'New',
'File' => 'File',
'Updated' => 'Updated',
'Click' => 'Click',
'or' => 'or',
'Continue' => 'Continue',
'Eoy' => 'Eoy',
);
my $self = 'setcolor.pl';
use DBI;
use CGI;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@
\n";
die $lex{Error}. " $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Print Page Header
print qq{$doctype\n$lex{Set} $lex{Color}\n};
print qq{\n};
if ( not $arr{page} ) {
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
}
print qq{$chartype\n\n};
print qq{[ $lex{Main} | \n};
print qq{$lex{Eoy} ]\n};
print qq{$lex{Set} $lex{Color}
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
confirmColor();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
setColor();
}
#---------------
sub confirmColor {
#---------------
# foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; }
print qq{\n};
exit;
}
#----------------
sub showStartPage {
#----------------
print qq{\n};
print qq{