#!/usr/bin/perl # Copyright 2001-2021 Leslie Richardson # This file is part of Open Admin for Schools. # Edit ALL configuration values in a single screen. my %lex = ('Eoy' => 'Eoy', 'Configuration' => 'Configuration', 'Error' => 'Error', 'Edit' => 'Edit', 'View' => 'View', 'Section' => 'Section', 'Name' => 'Name', 'Value' => 'Value', 'Type' => 'Type', 'Update Record(s)' => 'Update Record(s)', 'Version' => 'Version', 'Description' => 'Description', 'Sequence' => 'Sequence', 'File' => 'File', 'Linked' => 'Linked', 'Record(s) Updated' => 'Record(s) Updated', 'No Change' => 'No Change', 'Eoy' => 'Eoy', 'Variable' => 'Variable', 'Admin' => 'Admin', 'Main' => 'Main', 'Start' => 'Start', 'Set' => 'Set', 'Save' => 'Save', 'Update' => 'Update', ); my $self = 'confadminedall.pl'; my @types = qw( scalar scalaronoff array hash hashofarray arrayofhash ); # data types 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; #$dbase = 'temp'; #$user = 'root'; #$password = 'rootpwd'; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = qq{$lex{Edit} $lex{Configuration} - ADMIN VERSION}; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Eoy} |\n}; print qq{$lex{Start} ]\n}; print qq{

$title

\n}; #foreach my $key ( keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } if ( not $arr{page} ) { showValues(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; editValues(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; writeValues(); } elsif ( $arr{page} == 4 ) { # reset filename records (sectionname sequenceval) delete $arr{page}; getField(); } elsif ( $arr{page} == 5 ) { delete $arr{page}; setField(); # write reset to all records. } elsif ( $arr{page} == 6 ) { delete $arr{page}; updateFiles(); # rewrite files from conf_system table; } #---------------- sub showStartPage { #---------------- # Select Main Filename Sections to Display my $sth = $dbh->prepare("select distinct filename from conf_system order by filename"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{

\n}; while ( my $filename = $sth->fetchrow ) { my $fileview = ucfirst $filename. '.conf'; print qq{\n}; } # Update Files print qq{\n}; print qq{

\n}; } #----------- sub getField { # page 4 #----------- # foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } my $sth = $dbh->prepare("select * from conf_system order by filename, sectionname, sequenceval, dataname"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Start Form print qq{

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

\n}; my $prevname = ''; my $first = 1; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $id = $r{id}; my $dataname = $r{dataname}; my $sectionname = $r{sectionname}; my $sequenceval = $r{sequenceval}; if ( $prevname ne $sectionname or not $sectionname ) { if ( not $first ) { print qq{\n}; } else { $first = 0; } print qq{

$r{filename} - $sectionname

\n}; print qq{\n}; print qq{\n}; } $prevname = $sectionname; print qq{}; print qq{}; print qq{\n}; } print qq{

$lex{Name}	$lex{Section}	Sequence $lex{Value}
$dataname

\n}; print qq{

\n}; exit; } # end of getField #------------- sub showValues { #------------- #foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } # Section Form print qq{\n}; my $sth = $dbh->prepare("select * from conf_system order by filename, sectionname, sequenceval, dataname"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Print Table Heading. print qq{\n}; my ($prevsection, $currsection); while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $id = $r{id}; my $dataname = $r{dataname}; my $datatype = $r{datatype}; my $datavalue = $r{datavalue}; my $sectionname = $r{sectionname}; $prevsection = $currsection; $currsection = $sectionname; if ( $currsection ne $prevsection ) { print qq{}; print qq{\n}; } $datavalue =~ s/\/>/g; print qq{\n}; print qq{\n}; } print qq{

$r{filename}	$lex{Name}	$lex{Section}	$lex{Type}	$lex{Value}
\n}; print qq{\n}; print qq{\n}; print qq{	$dataname	$sectionname	$datatype	$datavalue

\n}; exit; } # end of showValues #------------- sub editValues { # edit record whose is id passed #------------- #foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } print qq{

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

\n}; # Get the Record my $sth = $dbh->prepare("select * from conf_system where id = ?"); $sth->execute( $arr{id} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my %rec = %$ref; print qq{\n}; # File Name print qq{\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}	$rec{filename}
$lex{Section}	}; print qq{
$lex{Sequence}	}; print qq{
$lex{Name}	}; print qq{
$lex{Value}	}; print qq{$rec{datavalue}
$lex{Type}	}; print qq{\n}; # Linked hashvar (which supplies values) print qq{
$lex{Linked} $lex{Variable}	}; print qq{
$lex{Version}	}; print qq{
$lex{Description}	}; print qq{$rec{description}

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

\n}; exit; } # end of editValues #-------------- sub writeValues { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $id = $arr{id}; delete $arr{id}; # Get the original record my $sth = $dbh->prepare("select * from conf_system where id = ?"); $sth->execute( $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %orig = %$ref; my $filename = $orig{filename}; print qq{\n}; my $count; foreach my $key ( sort keys %arr ) { # Check for update, skip if no change. if ( $arr{$key} eq $orig{$key} ) { next; } my $sth = $dbh->prepare("update conf_system set $key = ? where id = ?"); $sth->execute( $arr{$key}, $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } # print line for this record. $count++; print qq{\n}; } # Next Field; print qq{

$count. $key: $orig{$key}

=> $arr{$key}

\n}; if ( not $DBI::errstr and $count ) { print qq{

$lex{'Record(s) Updated'}

\n}; updateFiles( $filename ); print qq{

File Updated

\n}; } else { print qq{

$lex{'No Change'}

\n}; } print qq{\n}; exit; } # End of writeValues; #----------- sub setField { #----------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Start Table # print qq{\n}; # Set SQL my $sth1 = $dbh->prepare("update conf_system set sectionname = ? where id = ?"); my $sth2 = $dbh->prepare("update conf_system set sequenceval = ? where id = ?"); foreach my $key ( sort keys %arr ) { my ($type, $id) = split(':', $key ); if ( $type eq 'S' ) { # sectionname # print qq{S ID:$id Value:$arr{$key}
\n}; $sth1->execute( $arr{$key}, $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } } elsif ( $type eq 'V' ) { # sequenceval # print qq{V ID:$id Value:$arr{$key}
\n}; $sth2->execute( $arr{$key}, $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } } } # Next Field; print qq{

\n}; if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Updated'}

\n}; } else { print qq{

$lex{Error} $DBI::errstr

\n}; } print qq{

[ $lex{Eoy} ]

\n}; print qq{\n}; print qq{\n}; exit; } # End of setField; #-------------- sub updateFiles { #-------------- # Note: needs file path: $g_EtcPath to write files to. if ( not -e $g_EtcPath ) { print qq{

$lex{Path} $lex{'Not Found'}

\n}; } my $singlefile = shift; my @files; if ( $singlefile ) { push @files, $singlefile; } else { # do them all my $sth = $dbh->prepare("select distinct filename from conf_system where filename is not NULL and filename != '' order by filename"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $filename = $sth->fetchrow ) { push @files, $filename; } } foreach my $updatefile ( @files ) { my $filename = qq{$g_EtcPath/$updatefile.conf}; print qq{

$lex{Update}: $filename

\n}; # special case for admin.conf if ( $updatefile eq 'admin' ) { # use the admin.conf.root file. unless ( -e "$g_EtcPath/admin.conf.root" ) { print qq{

$g_EtcPath/admin.conf.root $lex{'Not Found'}

\n}; } system("cp -f $g_EtcPath/admin.conf.root $g_EtcPath/admin.conf"); # print qq{Result:", $? >> 8, "
\n}; open(FH,">>$filename") or die qq{Cannot open file $filename: $!\n}; # open for append } else { open(FH,">$filename") or die qq{Cannot open file $filename: $!\n}; } my $sth = $dbh->prepare("select id, datavalue from conf_system where filename = ? order by dataname"); $sth->execute( $updatefile ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($id, $value) = $sth->fetchrow ) { print FH $value, qq{\n}; } print FH qq{\n1;\n}; close FH; print qq{

$lex{File} $lex{Updated}: $updatefile

\n}; } if ( $singlefile ) { return; } else { # did them all print qq{\n}; exit; } }