From b645030efc22e13c2498a1522083634ab91b2de1 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 12 May 2010 16:51:27 +0000 Subject: move tlperl to tlperl.old git-svn-id: svn://tug.org/texlive/trunk@18209 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Win32/Service.pm | 103 ------------------------------- 1 file changed, 103 deletions(-) delete mode 100644 Master/tlpkg/tlperl/lib/Win32/Service.pm (limited to 'Master/tlpkg/tlperl/lib/Win32/Service.pm') diff --git a/Master/tlpkg/tlperl/lib/Win32/Service.pm b/Master/tlpkg/tlperl/lib/Win32/Service.pm deleted file mode 100644 index 0ae33b13ef8..00000000000 --- a/Master/tlpkg/tlperl/lib/Win32/Service.pm +++ /dev/null @@ -1,103 +0,0 @@ -package Win32::Service; - -# -# Service.pm -# Written by Douglas_Lankshear@ActiveWare.com -# -# subsequently hacked by Gurusamy Sarathy -# - -$VERSION = '0.05'; - -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 - ); - -=head1 NAME - -Win32::Service - manage system services in perl - -=head1 SYNOPSIS - - use Win32::Service; - -=head1 DESCRIPTION - -This module offers control over the administration of system services. - -=head1 FUNCTIONS - -=head2 NOTE: - -All of the functions return false if they fail, unless otherwise noted. -If hostName is an empty string, the local machine is assumed. - -=over 10 - -=item StartService(hostName, serviceName) - -Start the service serviceName on machine hostName. - -=item StopService(hostName, serviceName) - -Stop the service serviceName on the machine hostName. - -=item 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. - -=item PauseService(hostName, serviceName) - -=item ResumeService(hostName, serviceName) - -=item 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. - -=back - -=cut - -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__ -- cgit v1.2.3