#!/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 = ('Report' => 'Report', 'Audit' => 'Audit', 'Main' => 'Main', 'Student' => 'Student', 'Name' => 'Name', 'Room' => 'Room', 'Error' => 'Error', 'Continue' => 'Continue', 'Select' => 'Select', 'Blank=All' => 'Blank=All', 'No Records Found' => 'No Records Found', 'Script Name' => 'Script Name', 'User' => 'User', 'Script' => 'Script', 'Table' => 'Table', 'Date' => 'Date', 'Difference' => 'Difference', 'Add' => 'Add', 'Delete' => 'Delete', 'Select by' => 'Select by', ); my $self = 'auditview.pl'; use DBI; use CGI; # Read config variables eval require "../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $q = new CGI; my %arr = $q->Vars; print $q->header( -charset, $charset ); my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # calc current date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; # HTML Start my $title = "$lex{Audit} $lex{Report}"; print qq{$doctype\n$title \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{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } else { delete $arr{page}; showReport(); } #------------- sub showReport { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n} } my $select; if ( $arr{scriptname} ) { # we have a selection $select = qq{where scriptname = '$arr{scriptname}'}; } elsif ( $arr{startdate} ) { $select = qq{where to_days(tstamp) >= to_days("$arr{startdate}") and to_days(tstamp) <= to_days("$arr{enddate}") }; } # print "Select:$select
\n"; my $sortorder; $sth = $dbh->prepare("select * from audit $select order by tstamp desc"); $sth->execute; if ( $DBI::errstr ) {print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $aref = $sth->fetchrow_hashref ) { my %a = %$aref; if ( $first ) { # print heading. print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } print qq{}; print qq{\n}; print qq{}; my $diff; my $blank = qq{Blank}; if ( not $a{startval} and $a{endval} ) { # A Record was added $diff = qq{
Add Record
\n}; eval $a{endval}; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $count; foreach my $key ( sort keys %endval ) { if ( $endval{$key} ) { $diff .= qq{
$key: $endval{$key}
\n}; $count++; } if ($count > 6 ) { last; } } } elsif ( $a{startval} and not $a{endval} ) { # A Record was deleted. $diff = qq{
Delete Record
\n}; eval $a{startval}; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } if ( $startval{lastname} ) { $diff .= qq{
Lastname: $startval{lastname}
\n}; delete $startval{lastname}; } if ( $startval{firstname} ) { $diff .= qq{
Firstname: $startval{firstname}
\n}; delete $startval{firstname} } my $count; foreach my $key ( sort keys %startval ) { if ( $key eq 'id' or $key eq 'studid' ) { next; } if ( $startval{$key} ) { $diff .= qq{
$key: $startval{$key}
\n}; $count++; } if ( $count > 5 ) { last; } } } else { # figure out the diff by analysis $diff = qq{
Edit Record
\n}; # eval both into active hashes: %startval, %endval eval $a{startval}; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } eval $a{endval}; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } foreach my $key ( keys %startval ) { if ( $key eq 'id' or $key eq 'studid' ) { next; } if ( $startval{$key} ne $endval{$key} and exists $endval{$key} ) { if ( not $startval{$key} ) { $startval{$key} = $blank; } if ( not $endval{$key} ) { $endval{$key} = $blank; } $diff .= "
$key: $startval{$key} => $endval{$key}
"; } } } print qq{\n}; } # audit record loop if ( $first ) { print qq{

$lex{'No Records Found'}

\n}; } else { print qq{
$lex{User}$lex{Script}$lex{Table} (id)$lex{Date}$lex{Difference}
$a{userid}
$a{ipaddr}		$a{scriptname}$a{tablename} }; if ( $a{tableid} ) { print qq{ ($a{tableid}) } }; print qq{$a{tstamp}$diff
\n}; } print qq{\n}; exit; } # end of showReport #---------------- sub showStartPage { #---------------- # Get Script Names my @names; my $sth = $dbh->prepare("select distinct scriptname from audit where scriptname is not null order by scriptname"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $name = $sth->fetchrow ) { push @names, $name; } # print qq{

Script Names

\n}; # foreach my $v ( @names ) { print qq{$v
\n}; } # Select by Script Name # Form Start print qq{
\n}; print qq{\n}; print qq{

$lex{'Select by'} $lex{'Script Name'}

\n}; print qq{\n}; print qq{}; print qq{\n\n}; print qq{\n}; print qq{
$lex{'Script Name'}

\n}; print qq{
\n}; # Select by Date Range. # Form Start print qq{
\n}; print qq{\n}; print qq{

$lex{'Select by'} $lex{Date}

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{'Start Date'}\n}; print qq{
$lex{'End Date'}\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage