#!/usr/bin/perl # Copyright 2001-2024 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 = ('Eoy' => 'Eoy', 'Configuration' => 'Configuration', 'Entry' => 'Entry', 'Error' => 'Error', 'Section' => 'Section', 'Name' => 'Name', 'Value' => 'Value', 'Type' => 'Type', 'Version' => 'Version', 'Description' => 'Description', 'Sequence' => 'Sequence', 'File' => 'File', 'Linked' => 'Linked', 'Record' => 'Record', 'Save' => 'Save', 'Record(s) Added' => 'Record(s) Added', 'Eoy' => 'Eoy', ); my $self = 'confadminadd.pl'; my @types = qw( scalar scalaronoff array hash hashofarray arrayofhash ); # data types my %files = ( 'repcard' => 'Report Card', 'admin' => 'Administration', 'first_nation' => 'First Nation', 'transcript' => 'Transcript', 'gbook' => 'Grade Book', 'image' => 'Image Management', 'schedule' => 'Timetable', 'fees' => 'Fees', 'ldap' => 'LDAP - User Management', 'usermanage' => 'User Management', 'repcardOVR' => 'Report Card Override - Teacher', ); use DBI; use CGI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $q = CGI->new; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header print qq{$doctype\n$lex{Configuration} $lex{Entry} $chartype\n\n}; print qq{[ $lex{Eoy} ]\n}; print qq{

$lex{Configuration} $lex{Entry}

\n}; #foreach my $key ( keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } if ( not $arr{page} ) { showStartPage(); } else { delete $arr{page}; writeValues(); } #---------------- sub showStartPage { #---------------- #foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } # Start Form print qq{

\n}; print qq{\n}; print qq{

\n}; # Start Table print qq{\n}; # File Name print qq{\n\n}; # Section Name print qq{\n}; print qq{\n}; # Sequence Value print qq{\n\n}; # Data Name print qq{\n\n}; # Data Value print qq{\n\n}; # Datatype print qq{\n\n\n}; # Version print qq{\n\n}; # Description print qq{\n\n}; print qq{

$lex{File}	}; print qq{
$lex{Section}
$lex{Sequence}	}; print qq{
$lex{Name}	}; print qq{
$lex{Value}	}; print qq{
$lex{Type}	}; print qq{\n}; # Linked Record (which supplies values) print qq{
$lex{Linked} $lex{Record}	}; print qq{
$lex{Version}	}; print qq{
$lex{Description}	}; print qq{

\n}; print qq{\n}; print qq{

\n}; exit; } # end of showStartPage #-------------- sub writeValues { #-------------- #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $sth = $dbh->prepare("insert into conf_system ( filename, sectionname, sequenceval, dataname, datatype, datavalue, hashvar, version, description ) values ( ?, ?, ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $arr{filename}, $arr{sectionname}, $arr{sequenceval}, $arr{dataname}, $arr{datatype}, $arr{datavalue}, $arr{hashvar}, $arr{version}, $arr{description} ); if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Added'}

\n}; } else { print qq{

$lex{Error}: $DBI::errstr

\n}; } print qq{

[ $lex{Eoy} ]

\n}; print qq{

\n}; print qq{\n}; exit; } # End of writeValues;