package PerlSvc;
use Win32::Service;
use Win32::TieRegistry(Delimiter=>"/");
use DBI;
use DBD::ODBC;
use Win32::EventLog;
####
# the short name by which your service will be known (cannot be 'my')
##
##
${$_}{'CurrentState'}
##
##
$dsn="driver=\{SQL Server\}\;Server=$srv\;UID\=$uid\;PWD\=$pwd\;";
##
##
$exec=$dbh->prepare("...");
$exec->execute;
##
##
$exec=$dbh->prepare("... values ('$cn', '$sname', $state)");
##
##
$exec->finish;}else{
##
##
}
}else
##
##
unless (${$_} eq "1"){
##
##
$dsn="driver=\{SQL Server\}\;Server=$srv\;UID\=$uid\;PWD\=$pwd\;";
##
##
}
sleep(5);
}
}
##
##
Win32::Service::GetServices("", \%tmp);
...
if (Win32::Service::GetStatus("",$_,\%{$_})){
##
##
"$DisplayName"
##
##
print "No help available.\n";