#!/usr/bin/perl

my $statim = time;
open LOGFIL, ">>perlservicetest.log";
print LOGFIL "$statim perlservicetest START\n";
close LOGFIL;

exit;

__END__

##</code><code>##

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\perlservicetest\Parameters]
"Application"="C:\\Perl\\bin\\perl.exe"
"AppDirectory"="C:\\Steve\\Dev\\perlservice-perl"
"AppParameters"="C:\\Steve\\Dev\\perlservice-perl\\perlservicetest.pl"


##</code><code>##

@echo off
echo -------------------------------------------------------------------------------
echo Checking logfile contents
echo -------------------------------------------------------------------------------
type perlservicetest.log
pause
echo -------------------------------------------------------------------------------
echo Checking service status
echo -------------------------------------------------------------------------------
sc qc "perlservicetest"
pause
echo -------------------------------------------------------------------------------
echo Stopping old service
echo -------------------------------------------------------------------------------
net stop perlservicetest
pause
echo -------------------------------------------------------------------------------
echo Removing old service
echo -------------------------------------------------------------------------------
instsrv perlservicetest remove
sc qc "perlservicetest"
pause
echo -------------------------------------------------------------------------------
echo Installing new service
echo -------------------------------------------------------------------------------
instsrv perlservicetest C:\Steve\Dev\perlservice-perl\srvany.exe
sc qc "perlservicetest"
pause
echo -------------------------------------------------------------------------------
echo Modifying new service parameters
echo -------------------------------------------------------------------------------
REM start /WAIT "Registry Update" perlservicetest.reg
regedit /s C:\Steve\Dev\perlservice-perl\perlservicetest.reg
pause
echo -------------------------------------------------------------------------------
echo Starting new service
echo -------------------------------------------------------------------------------
net start perlservicetest
pause
echo -------------------------------------------------------------------------------
echo Checking logfile contents
echo -------------------------------------------------------------------------------
type perlservicetest.log
echo -------------------------------------------------------------------------------

##</code><code>##

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\perlservicetest\Parameters]
"Application"=-
"AppDirectory"=-
"AppParameters"=-

[-HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\perlservicetest\Parameters]

[-HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\perlservicetest]


##</code><code>##

@echo off
echo -------------------------------------------------------------------------------
echo Checking logfile contents
echo -------------------------------------------------------------------------------
type perlservicetest.log
pause
echo -------------------------------------------------------------------------------
echo Checking service status
echo -------------------------------------------------------------------------------
sc qc "perlservicetest"
pause
echo -------------------------------------------------------------------------------
echo Stopping old service
echo -------------------------------------------------------------------------------
net stop perlservicetest
pause
echo -------------------------------------------------------------------------------
echo Removing old service
echo -------------------------------------------------------------------------------
instsrv perlservicetest remove
sc qc "perlservicetest"
pause
echo -------------------------------------------------------------------------------
echo Removing service parameters
echo -------------------------------------------------------------------------------
regedit /s C:\Steve\Dev\perlservice-perl\perlservicetest-delete.reg
echo -------------------------------------------------------------------------------