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

my ($uid, $uidNum, $dn, $role);
my $dbname = "moodle";
my $pwfile = "/root/.my.cnf";
#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;
 }
 elsif ( $key =~ /^role$/i)
 {
   $role = $value;
 }
}

if ($role ne 'teachers')
{
    exit;
}
my $ini = new Config::IniFiles( -file => "$pwfile" );
my $dbpw   = $ini->val('client','password');
my $dbuser = $ini->val('client','user');
my $dbhost = $ini->val('client','host');

# 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.":".$dbhost, $dbuser, $dbpw ) || die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";

$dbh->do($q_del_kut);

my $sth1 = $dbh->prepare($q_sel); i
$sth1->execute();
#TODO nothing happened after searching;
# Abfragehandle freigeben
$sth1->finish();
# Datenbank-Verbindung beenden
$dbh->disconnect;

exit;
