use strict;

BEGIN
{
        my $dir;
        require File::Spec;

        if ( !($dir = $ENV{MT_HOME}) )
        {
                $dir = ($0 =~ m!(.*[/\\])!) ? $1 : './';
                $ENV{MT_HOME} = $dir;
        }
        unshift @INC, $dir;
}

#
# Include Logger module
# Calls on VMA::Logger module
#
use VMA::Logger qw(Logger);

#
# Grab arguments from command line
# Split argument into array
#
my @argarray            = split(/:/,$ARGV[0]);
my $is_logging          = $argarray[0];
my $logdir                      = $argarray[1];
my $func                                = $argarray[2];