Hello all
I can't seem to get system, `` commands to work in the startup() of my perl service. What I am trying do is:
`c:\\winnt\\system32\\xcopy.exe c:\\admin c:\\admin1 /s/e/i/r/q`;
If I compile this one liner with perlapp it works great, but I if copy the line to my startup() it doesn't work and seems to just ignore the line (no errors).
use strict;
use warnings;
package PerlSvc;
our %Config;
sub Startup{
while(ContinueRun(2)){
if( -e "c:/temp/needSync.flag"){
`c:\\winnt\\system32\\xcopy.exe c:\\admin c:\\admin1 /s/e/i/r/q`;
unlink("c:/temp/needSync.flag");
}
}
}
Thanks
again.
Eric
