Re: perlscv help required.

I decided that it would probably be a lot easier to just buy PDK 7.5 and use the perlsvc utility to create the service.
Really? I thought the latest was PDK 7.3, which comes with support...

Where would i place my code in the code that they have provided if i need to get it to run as a service?
When the service is started, it will call

    sub PerlSvc::Startup(){                  
#Function called when the service is started.
[download]

which is where you put your code

Comment on Re: perlscv help required. Download Code

Replies are listed 'Best First'.
Re^2: perlscv help required. by smanicka (Scribe) on Feb 06, 2009 at 22:14 UTC
Ok will try that. Please let me rephrase my question though.I wasn't sure if i should also use the while (1), in my code if its going to be a service.Would the program exit after the first time it ran or keep working throughout without the need for the while (1)?I hope I am making sense	[reply]
Re^3: perlscv help required. by Anonymous Monk on Feb 07, 2009 at 04:40 UTC
I wasn't sure if i should also use the while (1), in my code if its going to be a service.Would the program exit after the first time it ran or keep working throughout without the need for the while (1)?I hope I am making sense Try it and see what happens :) You should use `sub PerlSvc::Startup(){ while (ContinueRun(1)) { print "I'm a service and I'm running\n"; # do prog .......... print STDERR "And I also output errors\n"; } #--------------------------------------------------------------------- +--- # clean up code for stopping service #----------------------------------------------------------------- +------- print "Thank you and goodnight\n" }` [download] if you use while(1), it would never stop (net stop servicename). Can't Stop my PerlSvc, Problem Stopping Service using Active State Perlsvc, Service monitor with Perl and PerlSvc, PerlSvc Ends With Error 1067, http://docs.activestate.com/pdk/7.3/Example.html,	[reply] [d/l]