Help Request: Running callback not working on some specific systems in Win32::Daemon.pm
[email protected] (John Simpson) Wed, 22 May 2019 16:07:58 -0400
| Newsgroups | perl.libwin32 |
|---|---|
| Message-ID | <CAAPZw5zbUSh6QVYYRoOJRk+su1erSwrNd5W_5BSYfZ52OT2jCw@mail.gmail.com> |
--0000000000003ee95e05897f8649
Content-Type: text/plain; charset="UTF-8"
Hi,
I am having a problem on 242 servers where my service is running but not
doing what it is supposed to do.
I added the debug line as shown below. I am getting first *SERVICE_STOPPED*,
then *SERVICE_NOT_READY* after that. I never get *SERVICE_RUNNING* on
these machines. On other machines it appears to be working fine without
issue.
Do you have any idea what I can do to fix this? I really need to get this
fixed ASAP.
sub Callback_Running {
my ($Event, $Context) = @_;
*print "State: " . Win32::Daemon::State();*
if (SERVICE_RUNNING == Win32::Daemon::State()) {
# do stuff
The OS is Server 2012 R2 Standard 64-bit v6.3.9600 running Strawberry Perl
Thanks,
John Simpson
724-554-4464
--0000000000003ee95e05897f8649
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
<div dir=3D"ltr">Hi,<div><br></div><div>I am having a problem on 242 server=
s where my service is running but not doing what it is supposed to do.</div=
><div>I added the debug line as shown below.=C2=A0 I am getting first <b>SE=
RVICE_STOPPED</b>, then <b>SERVICE_NOT_READY</b> after that.=C2=A0 I never =
get <b>SERVICE_RUNNING</b> on these machines.=C2=A0 On other machines it ap=
pears to be working fine without issue.</div><div><br></div><div>Do you hav=
e any idea what I can do to fix this?=C2=A0 I really need to get this fixed=
ASAP.</div><div><br><div>sub Callback_Running {<br></div><div>=C2=A0 =C2=
=A0 my ($Event, $Context) =3D=C2=A0@_;</div><div><b>print "State: &quo=
t; . Win32::Daemon::State();</b></div><div>=C2=A0 =C2=A0 if (SERVICE_RUNNIN=
G =3D=3D Win32::Daemon::State()) {</div><div>=C2=A0 =C2=A0 =C2=A0 =C2=A0 # =
do stuff</div></div><div><br></div><div>The OS is Server 2012 R2 Standard 6=
4-bit v6.3.9600 running Strawberry Perl</div><div><br></div><div>Thanks,</d=
iv><div><br></div><div><br></div><div>John Simpson</div><div>724-554-4464</=
div></div>
--0000000000003ee95e05897f8649--