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

Expand|Select|Wrap|Line Numbers

 
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:

Expand|Select|Wrap|Line Numbers

$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.

Expand|Select|Wrap|Line Numbers

system(`net start Apache Tomcat Server`);

numberwhun

Quote:

Originally Posted by Icecrack

Have you even tried using the system commands with backticks

eg.

Expand|Select|Wrap|Line Numbers

system(`net start Apache Tomcat Server`);

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

Expand|Select|Wrap|Line Numbers

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

Quote:

Originally Posted by TeenaRoz

Hi,

I have tried your suggestions. The

Expand|Select|Wrap|Line Numbers

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.

Sorry i made an error try

Expand|Select|Wrap|Line Numbers

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

TeenaRoz

This seemed to have worked.

Expand|Select|Wrap|Line Numbers

  $servicename = 'net start "Apache Tomcat Server"';

system("$servicename");

Thanks for all your suggestions. Really Appreciate it.

Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

re: Starting and stopping service

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about