#!/usr/bin/perl # Copyright 2001-2025 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 = ( 'Delete' => 'Delete', 'Staff Member' => 'Staff Member', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Are you sure' => 'Are you sure', 'deleted' => 'deleted', 'Name' => 'Name', 'User Id' => 'User Id', 'Subject' => 'Subject', 'Count' => 'Count', 'Error' => 'Error', 'Yes' => 'Yes', 'Edit' => 'Edit', ); my $self = 'staffdel.pl'; my $passwd = 'ogimow'; # Note: name of scalar use CGI; use DBI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Load audit write function eval require "../../lib/libaudit.pl"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; $dsn = "DBI:$dbtype:dbname=$dbase"; $dbh = DBI->connect($dsn,$user,$password); $sth = $dbh->prepare("select lastname, firstname, userid from staffwd where userid = ?"); $sth->execute( $arr{userid} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $userid ) = $sth->fetchrow; print qq{$doctype\n$lex{Delete} $lex{'Staff Member'}\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} | \n}; print qq{$lex{Eoy} ]\n}; print qq{

Permanently $lex{Delete} Withdrawn $lex{'Staff Member'}

\n}; if ( $arr{deleteflag} ) { delete $arr{deleteflag}; deleteRecord(); } # Get Course Count my $sth = $dbh->prepare("select count(*) from subject where teacher = ?"); $sth->execute( $arr{userid} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $coursecount = $sth->fetchrow; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{ \n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{Name}$firstname $lastname
$lex{'User Id'}$userid
Course Count$coursecount
Password
$lex{Delete} Withdrawn $lex{'Staff Member'}
$lex{'Are you sure'}? }; print qq{
\n}; print qq{
\n}; #--------------- sub deleteRecord { #--------------- # foreach my $key (keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } # userid, name, password passed. if ( not $arr{password} ) { print qq{

No Password Entered

\n}; print qq{\n}; exit; } elsif ( $arr{password} ne $passwd ) { print qq{

Password is not correct

\n}; print qq{\n}; exit; } delete $arr{password}; # don't want passed password stored in audit record # Load Current Record for Audit Function $sth = $dbh->prepare("select * from staffwd where userid = ?"); $sth->execute( $arr{userid} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $sref = $sth->fetchrow_hashref; # staff record reference my %sr = %$sref; # Add Audit record. my %audit; $audit{userid} = $ENV{REMOTE_USER}; $audit{ipaddr} = $ENV{REMOTE_ADDR}; $audit{scriptname} = $self; $audit{tablename} = 'staffwd'; $audit{tableid} = $sr{id}; $audit{startval} = $sref; $audit{endval} = \%arr; addAudit( \%audit, $dbh ); my $sth = $dbh->prepare("delete from staffwd where userid = ?"); $sth->execute( $arr{userid} ); if ($DBI::errstr) { print qq{

$lex{Error}: $DBI::errstr
\n}; print qq{
Record NOT removed
\n}; } else { print qq{

$arr{name} $lex{deleted}.

\n}; } print qq{

[ $lex{Edit}/$lex{Delete} }; print qq{Other Staff Members ]

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