#!/usr/bin/perl -w
#------------------------------------------------------------
#This action shuts down the samba 4 services
#
#Copyright 2014 Koozali Foundation, Inc.
#11/15/2014: G.Zartman <gzartman@koozali.org>
#
#The code contained herein can be distributed under the same
#license as Perl
#------------------------------------------------------------


use strict;
use warnings;

##Pull arguments
my $event = $ARGV [0] || 'none';
my $state = $ARGV [1] || 'down';

exit() if ($state eq 'up');

system ('/command/svc -d /service/smb');


