#!/usr/bin/perl
#
#
#
# Module Laden
use strict;
use DBI;

my ($uid, $uidNum, $dn);

#Parameter von STDIN lesen
while(<STDIN>)
{
 my ( $key, $value ) = split / /,$_,2;
 chomp $value;

 if( $key =~ /^uid$/i )
 {
   $uid = $value;
 }
 elsif ( $key =~ /^uidnumber$/i)
 {
   $uidNum = $value;
 }
}

# Gruppenzugehrigkeit einlesen
chomp(my $gidNum = (`ldapsearch -x uidnumber=$uidNum | grep gidNumber`)); $gidNum =~ s/^.*\s//g;

if ($gidNum eq '502')
{
	# Result-Array definieren
	my @box_id = undef;

	# Datenbankname setzen
	my $dbname = "schule";

	# Querys definieren
	my $q_sel		= "SELECT box_id FROM kjs_zuo_box_user_teacher WHERE user_teacher_id = '$uidNum'";
	my $q_del_kut	= "DELETE FROM kjs_user_teacher WHERE teacher_id = '$uidNum'";

	# Datenbank-Verbindung aufbauen
	my $dbh = DBI->connect( 'dbi:mysql:'.$dbname, 'root', '')
			  || die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";

	my $sth1 = $dbh->prepare($q_sel); $sth1->execute();

	# Abfragehandle freigeben
	$sth1->finish();
	# Datenbank-Verbindung beenden
	$dbh->disconnect;

	exit 1;
}
else
{
	exit 0;
}
