#!perl
# Go2.pl - a service to create a shortcut batch file
# Includes service installer and remover
BEGIN {
    use Win32::EventLog::Carp;
#    open(STDERR, '>E:\Commands\Daemons\stderr.log');
}

use lib qw(e:\commands\daemons);
use lib qw(e:\lib\perl);
use Getopt::Long;
use Data::Dumper;
use Win32::Daemon::Simple;
use Win32::Daemon::Go2;
use Win32::EventLog::Carp;
use strict;
use warnings;

my ($install, $remove, $manual);
GetOptions('install' => \$install, 'remove' => \$remove, 'manual' => \$manual);
my $daemon = new Win32::Daemon::Go2(
        name    =>  'go2_installer',
        display =>  'Go2 installer',
        description => 'This will create the go2 batch file',
);

if ($install) {
    $daemon->install()
} elsif ($remove) {
    $daemon->remove()
} elsif ($manual) {
    print "Running body\n";
    $daemon->body()
} else {
    $daemon->run()
};
exit;