On Thu, 28 Feb 2002 11:45:24 -0500, "David Hares" <dhares@[...].net> 
wrote:

> To those kind enough to reply, it does not appear to be a scope problem.  The code looks so
mething like this:
> 
> $PerlSvc::Name ;
> $PerlSvc::DisplayName ;

You need to assign the values here:

$PerlSvc::Name = "foo";
$PerlSvc::DisplayName = "foo";

> {	# start of code
>    BEGIN {...}
>    END {...}
>    { ... # code to run if started via 'perl foo'
>      &main::main();
>      exit (0);
>    }
> }
> 
> sub PerlSvc::Install {
>     $PerlSvc::Name = "foo";
>     $PerlSvc::DisplayName = "foo";

This will only set Name and DisplayName during "Install" time, but not
when the service is actually running.

> }
> 
> sub PerlSvc::Startup {
>     &main::main();
> }
> 
> sub PerlSvc::Remove {}
> 
> sub PerlSvc::Help {}
> 
> sub main::main() { }
> 
> I know the following is true:
> 
> 	The code at the beginning is executed when the .exe is run with
> 	the -install switch, and then the PerlSvc::Install subroutine is run.
>       $PerlSvc::Name is set on exit from PerlSvc::Install.
> 
> 	The code at the beginning is executed when the .exe is run with
> 	the -remove switch, and then the PerlSvc::Remove subroutine is run.
>       $PerlSvc::Name is NOT set on entry to PerlSvc::Remove.  I actually don't
>       expect it to be.
> 
> What I need to know is:
> 
>       Is code at the beginning executed when the service is started via 
> 	the 'start' selection in the services manager, and when is the PerlSvc::Startup
>       subroutine run. 

If you mean the code in PerlSvc::Startup()?  It is *not* executed when you
'start' the service.  The code at *file scope* is executed, and then
PerlSvc::Startup() is called.

>       $PerlSvc::Name is NOT set on entry to PerlSvc::Startup.  I expect
>       it to be, since the guys who program C++ around here (and disdain perl) say
>       context is preserved between a service install and start. Is context preserved?

Don't trust the C++ guys! :)  It isn't even true for C++, so they might be
confused here.  Installation and Service start happen in different
processes.  There is no way that changes to global variables are being
preserved from one process to the other.

>       If it's not preserved, is there any way to pass information from Install to
> 	Startup?

I don't think so.  You could write information to a file or the registry
during install time and read it back at Startup time.  Could you explain
why you need this?

>       Is there any approved way to check in the code at the beginning it's being run
>       as a service?  My kludge is to check if PerlSvc::ContinueRun() is defined.

Testing for PerlSvc::ContinueRun() is fine.

Cheers,
-Jan

_______________________________________________
PDK mailing list
PDK@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs