Starting and stopping service

[TeenaRoz]

Hi Perl Experts,

Is there any inbuilt sys functions which can start and stop a tomcat service in a given machine. I need to stop the service, copy a .war file into webapps folder and start the tomcat service. I can see that we have StartService(hostName, serviceName) and StopService(hostName, serviceName) which can be used. But when i try using it in a windows machine, i am getting errors saying unrecognized command. Can someone help in this regard.

Thanks,
Teena.

[Icecrack]

if you are getting errors saying unrecognized command that means the command cant be found in windows also for us to understand this more, post your script in code tags

[code] [/CODE ]

[TeenaRoz]

sub StartServ {
 
     $computername = '';
     $servicename = 'Apache Tomcat Server';
 
     Win32::Service::GetStatus("\\\\".$computername, $servicename, \%status);
     die "service is arealdy started\n" if ($status{CurrentState} == 4);
 
     Win32::Service::StartService("\\\\".$computername,$servicename) || die "Can't start service\n";
     print "Service started\n";
}
 
 

Here when this sub is called, the error message "Can't start service" is displayed. I read that if we dont specify a machine name , the local machine is taken by default. So i have left that empty. So i guess this sys function does not work in windows.. is there any alternative?

[nithinpes]

Set:

   $computername = 'localhost'; 
 

If you leave out the hostname argument for GetStatus method, then local machine will be considered by default. But in your case, you are setting the hostname to null.

[Icecrack]

Have you even tried using the system commands with backticks

eg.

 system(`net start Apache Tomcat Server`); 

[numberwhun]

@Icecrack
Isn't that a bit redundant? You need one or the other, but I have never seen anyone try using both at the same time.

[Icecrack]

the system with backticks waits for the process and when complete returns a value.

don't know if just backticks will do the same.

so blame my teacher for only teaching us one way :)

[TeenaRoz]

Hi,

I have tried your suggestions. The

  system(`net start Apache Tomcat Server`);  

does not work either. What intrigues me is that , Win32::Service::StartService is supposed to be used for windows right.. And yes I also tried using localhost as the cumputer name.Thanks for your suggestions though.

[Icecrack]

@TeenaRoz

Sorry i made an error try

  system("net start Apache\ Tomcat\ Server");  

[TeenaRoz]

This seemed to have worked.

 $servicename = 'net start "Apache Tomcat Server"';
system("$servicename");

Thanks for all your suggestions. Really Appreciate it.