#!/usr/bin/perl -w

#------------------------------------------------------------
#This action deletes a user from the Active Directory
#
#Command format:
#
# user-delete-AD event username:  
#
#  event    : calling event name
#  username : username that exists in Active Directory
#
#Copyright 2016 Koozali Foundation, Inc.
#08/17/2016: G.Zartman <gzartman@koozali.org>
#
#The code contained herein can be distributed under the same
#license as Perl
#
#------------------------------------------------------------
package esmith::thisaction;

use strict;
use warnings;
use esmith::ConfigDB;
use esmith::AD::User;

##Pull arguments
my $event       = $ARGV [0] || '';
my $userName    = $ARGV [1] || '';


my $ad = esmith::AD::User->new();
die "Username not found in action arguments\n"
  unless ($userName);
die "Username $userName does not exist in the Active Directory.\n"
  unless ($ad->doesUserExist($userName));

#Delete AD User
my $adPassword = $ad->getADPass();
my $deleteUser = "/usr/bin/samba-tool user delete $userName " .
                 "-U ad_admin\%$adPassword";

system ($deleteUser);
die ("Unable to delete user $userName from Active Directory\n") if ($? == -1);

exit(0);
