Denis Peuziat wrote:
Hi,
I'm a newbie with perl and I don't know much about programming either. I
wrote a script to manipulate services on Windows, and it works fine :
sub Stop_Service {
print LOGFILE "Stopping $_[0] on $_[1] ...\n";
Win32::Service::StopService($_[1], '$_[0]');
That sha
Hi,
I'm a newbie with perl and I don't know much about programming either. I
wrote a script to manipulate services on Windows, and it works fine :
use Win32::Service;
$server_main="ncedpeuziat";
$server_backup="nceoatestdp";
$current_date = localtime(time);
open(LOGFILE, ">>CServer_Sync