#!/usr/bin/perl -w
#------------------------------------------------------------
#This action starts 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] || 'up';

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

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


