package PerlSvc;

use warnings;
use strict;
use File::Copy;


use System::System_Constants;
use Cwd qw(abs_path);
use File::Spec;
use Getopt::Long;

our $progname = Constants::APPLICATION_SERVICE_NAME_SHORT;
our $path = undef;

$path = abs_path($0);	
print "Path: " . $path . "\n";
our ($volume, $directory, $fileName) = File::Spec->splitpath($path);
my $program_dir= $volume . $directory;
print "Program Dir: " . $program_dir . "\n";

our $cscc = $program_dir . "cscc.exe";
our $serviceOptionsFile = $program_dir . "serviceOptions.xml";

our $timeout = "";
our $frequency = "";
our $schedule = "";
our $scapScan = "";
our $ovalScan = "";
our $installScan = 0;


our %Config = (ServiceName => "SCC_Service",
			DisplayName=> "SCC_Service",
			StartType   => 'auto', # auto, manual
            Interactive => 1,      # boolean
            Description => 'Service with added console',
			StartNow    => 1,
			Password => undef,
			UserName => undef,
			Dependencies => '',
			Parameters => ''	
	);

my $logfile = $program_dir. 'SCC_Service.log';
print "Logfile: $logfile\n";
Log("\n ProgName: $progname \n");



##########################################################################################
sub Startup
.
.
.
.