Odd perlsvc problem

N

news

All,

I've got an odd issue (and I'm not sure it's even perl related - probably
not), but I'm hoping maybe someone will have an idea as I've exhausted my
resources in finding the issue.

I've got this perlsvc (activetstate pdk) script (below) that just needs to
run a single command (ex.bat). My real app does a lot more, but this
illustrates the problem. Anyways, the service installs fine, starts fine,
but the es.bat never runs on a couple Windows 2003 system. I can't figure
out why :( Some systems this runs fine on.

Any ideas?

Thanks,
Derek!

package PerlSvc;
our %Config;

sub Remove {
$Config{ServiceName} = 'etest';
$Config{DisplayName} = 'Test Agent';
}

sub Install {
$Config{ServiceName} = 'etest';
$Config{StartType} = "auto";
$Config{DisplayName} = 'Test Agent';
}

sub Startup {
our $dproc;

while (ContinueRun(1)) {
main::procRun();
}
return 0;
}

package main;

sub ProcRun {
system('c:\ex.bat');
sleep 1;
}
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,482
Members
44,900
Latest member
Nell636132

Latest Threads

Top