Is this module already available for the ActiveState 6xx builds. I've only
seen it available for the 5xx builds.
rgds,
Hans Feringa
On Thu, 15 Mar 2001 [EMAIL PROTECTED] wrote:
> Hi Deb,
>
> try using Dave Roth's Win32::Daemon - it works great for me. The only thing
> is that you have to extend your script to get all the features of this
> module.
>
> Here is an example:
>
> # Define how long to wait before a default status update is set.
> Win32::Daemon::Timeout( 5 );
>
> # Start the service...
> if( ! Win32::Daemon::StartService() )
> {
> exit();
> }
>
> while( SERVICE_STOPPED != ( $State = Win32::Daemon::State() ) )
> {
> if( SERVICE_START_PENDING == $State ) {
> # your code comes here
> } elsif( SERVICE_PAUSE_PENDING == $State ) {
> # "Pausing..."
> # your code comes here
> Win32::Daemon::State( SERVICE_PAUSED );
> next;
> } elsif( SERVICE_CONTINUE_PENDING == $State ) {
> # "Resuming..."
> # your code comes here
> Win32::Daemon::State( SERVICE_RUNNING );
> next;
> } elsif( SERVICE_STOP_PENDING == $State ) {
> # "Stopping..."
> # your code comes here
> Win32::Daemon::State( SERVICE_STOPPED );
> next;
> } elsif( SERVICE_RUNNING == $State ) {
> # The service is running as normal...
> }
> # here comes your main code...
> }
> sleep(1);
> }
>
> Win32::Daemon::StopService();
>
> Hope this works for you !
>
> Best regards
>
> Christian Kirn
>
>
>
>
>
> Group-Consult GmbH Fon. +49 (7524) 915590
>
> Schwalbenweg 4 Fax. +49 (7524) 915595
>
> D-88339 Bad Waldsee e-mail
> [EMAIL PROTECTED]
> info
> www.group-consult.de
>
>
>
> message sent by Group-Consult GmbH
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
>
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
