#!/usr/bin/perl -w

#------------------------------------------------------------
#This action deletes user profile directories
#
#Command format:
#
# user-delete-profiles event username:
#
#  event    : calling event name
#  username : username for profiles to delete
#
#Copyright 2016 Koozali Foundation, Inc.
#08/19/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 File::Path qw( rmtree );

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

die "Username not found in action arguments.\n"
  unless ($user);

my @dirs = ("/home/e-smith/files/samba/profiles/$user",
            "/home/e-smith/files/samba/profiles/${user}.V2",
            "/home/e-smith/files/samba/profiles/${user}.V3",
            "/home/e-smith/files/samba/profiles/${user}.V4",
            "/home/e-smith/files/samba/profiles/${user}.V5",
            "/home/e-smith/files/samba/profiles/${user}.V6"
           );

foreach my $dir (@dirs) 
{
    rmtree $dir;
}

exit(0); 
