Win32::Service - Manage system services in Perl

Win32-Service documentation

Contained in the Win32-Service distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
FUNCTIONS
- NOTE:

Code Index:

package Win32::Service
- AUTOLOAD
__END__
EOF

NAME

Win32::Service - Manage system services in Perl

SYNOPSIS

	use Win32::Service;

DESCRIPTION

This module offers control over the administration of system services.

FUNCTIONS

NOTE:

All of the functions return false if they fail, unless otherwise noted. If hostName is an empty string, the local machine is assumed.

StartService(hostName, serviceName): Start the service serviceName on machine hostName.
StopService(hostName, serviceName): Stop the service serviceName on the machine hostName.
GetStatus(hostName, serviceName, status): Get the status of a service. The third argument must be a hash reference that will be populated with entries corresponding to the SERVICE_STATUS structure of the Win32 API. See the Win32 Platform SDK documentation for details of this structure.
PauseService(hostName, serviceName)
ResumeService(hostName, serviceName)
GetServices(hostName, hashref): Enumerates both active and inactive Win32 services at the specified host. The hashref is populated with the descriptive service names as keys and the short names as the values.

Win32-Service documentation

Contained in the Win32-Service distribution.

package Win32::Service;

#
# Service.pm
# Written by Douglas_Lankshear@ActiveWare.com
#
# subsequently hacked by Gurusamy Sarathy <gsar@cpan.org>
#

$VERSION = '0.06';

require Exporter;
require DynaLoader;

require Win32 unless defined &Win32::IsWinNT;
die "The Win32::Service module works only on Windows NT" unless Win32::IsWinNT();

@ISA= qw( Exporter DynaLoader );
@EXPORT_OK =
    qw(
	StartService
	StopService
	GetStatus
	PauseService
	ResumeService
	GetServices
    );

sub AUTOLOAD
{
    my($constname);
    ($constname = $AUTOLOAD) =~ s/.*:://;
    #reset $! to zero to reset any current errors.
    local $! = 0;
    my $val = constant($constname);
    if ($! != 0) {
	if($! =~ /Invalid/) {
	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
	    goto &AutoLoader::AUTOLOAD;
	}
	else {
	    ($pack,$file,$line) = caller;
	    die "Your vendor has not defined Win32::Service macro $constname, used in $file at line $line.";
	}
    }
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}

bootstrap Win32::Service;

1;
__END__