Thx, I will use it. Hans On Mon, 19 Mar 2001, Dave Roth wrote: > Yes it is. Use PPM to install: > PPM install http://www.roth.net/perl/packages/win32-daemon.ppd > > dave > > -----Original Message----- > From: Black Pearl [mailto:[EMAIL PROTECTED]] > Sent: Monday, March 19, 2001 2:20 PM > To: [EMAIL PROTECTED] > Subject: RE: installing a Perl script as a service on NT (Debbie > Thomson) (fwd) > > > > > > 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 > _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
