package PerlSvc;

use strict;
use Win32::Process;

our %Config;

sub Startup {
	my $Process;
	my $backupsvr = PerlSvc::extract_bound_file('backupsvr.exe');
	Win32::Process::Create(
		$Process,
		$backupsvr,
		'backupsvr',
		0,
		NORMAL_PRIORITY_CLASS,
		"."
	);
	while (ContinueRun(10)) { }
	$Process->Kill(0);
}

sub Pause { }
sub Continue { }
sub Interactive { }
sub Help { }

sub Install {
	$Config{ServiceName} = 'MyBackupService';
	$Config{DisplayName} = 'My Backup Service';
}

sub Remove {
	$Config{ServiceName} = 'MyBackupService';
}

package main;

1;