use strict;
use IPC::Run ('run');
use Win32::Daemon;
use Cwd 'abs_path';

my $script = abs_path($0);
my $logfile = $script;
$logfile =~ s/\.[^\.\\\/]*$/.log/;
my $svcname = $script;
$svcname =~ s/^.*[\/\\]//g;
$svcname =~ s/\.[^\.]*$//;

if($ARGV[0] eq 'install') {
	my %service_info = (
		machine =>  '',
		name    =>  $svcname,
		display =>  $svcname,
		path    =>  $^X,
		user    =>  '',
		pwd     =>  '',
		description => 'test case',
		parameters => $script
	);
	if( Win32::Daemon::CreateService( \%service_info ) )
	{
		print "Successfully added.\n";
	}
	else
	{
		print "Failed to add service: " . Win32::FormatMessage( Win32::Daemon::GetLastError() ) . "\n";
	}
	exit;
}

Win32::Daemon::StartService();
open(LOG,'>>',$logfile) or die("Failed to write to logfile\n$!\n");
Win32::Daemon::State( Win32::Daemon->SERVICE_RUNNING );
print "Run ping...\n";
print LOG localtime()."\n";
run(['ping','-n','5','127.0.0.1'],'>&',\*LOG);
my $ec = $? >> 8;
print LOG "Exit Code $ec\n\n";
close(LOG);
print "Exit Code $ec\n";
Win32::Daemon::StopService();