[Melbourne-pm] Win32::Process
GODDEN, Dwayne
d.godden at ioof.com.au
Tue Jul 3 17:35:20 PDT 2007
Hello all.
I need some help with Win32::Process.
What I need is when the process die's ( on it's own ) I
need to be restarted.
Note this also runs in PerlSvc
Code
------------------------------------------------------------------------
------------------------------------
#!/usr/bin/perl -w
use strict;
package PerlSvc;
use strict;
use Win32::Process;
our %Config;
sub Startup {
my $Process;
my $smsgateway = PerlSvc::extract_bound_file('sms_gateway.exe');
Win32::Process::Create(
$Process,
$smsgateway,
'Sms_Gateway.exe',
0,
NORMAL_PRIORITY_CLASS,
"."
);
while (ContinueRun(10)) { }
$Process->Kill(0);
}
sub Pause { }
sub Continue { }
sub Interactive { }
sub Help { }
sub Install {
$Config{ServiceName} = 'SMS_Server';
$Config{DisplayName} = 'SMS Gateway Server';
# add your additional install messages or functions here
print "\nInstall compleate\n";
}
sub Remove {
$Config{ServiceName} = 'SMS_Server';
# add your additional remove messages or functions here
print "\nSMS Server removed\n";
}
package main;
1;
Dwayne Godden
Enterprise Engineer - Communication Specialist
IOOF Investment Management
ABN 53 006 695 021
AFS Licence No. 230 524
d.godden at ioof.com.au
Phone 03 8614 4828
Fax 03 8614 4908
Mobile 0411 653 435
Level 10, 303 Collins Street, Melbourne VIC 3000
****************************************************************************
IMPORTANT - PLEASE READ
This communication is intended only for the use of the addressee and
may contain personal information, confidential information or legally
privileged information. If personal information is contained in this e-mail,
then it is governed by the Privacy Act 1988 and must be treated in
accordance with the Privacy Act 1988 by the recipient. The legal
privilege and confidentiality attached to this e-mail is not waivered,
lost or destroyed by reason of mistaken delivery to you. If you are not
the intended recipient, we would appreciate immediate notification by
return e-mail or telephoning +61-3-8614-4444 and ask that the message
be permanently deleted from your system. If you are the intended
recipient of this communication you should not copy, disclose or distribute this communication without the authority of IOOF or its related entities (the IOOF Group).
Any views expressed in this message are those of the individual sender,
except where they are specifically stated to be the views of the IOOF
Group.
This e-mail and any attachments have been scanned for computer viruses
using anti-viral software, but you should also perform your own scan. We
do not accept liability for any loss or damage, whether caused by our own negligence or not, that results from a computer virus or a defect in the transmission of the e-mail or any attached file.
****************************************************************************
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/melbourne-pm/attachments/20070704/76d024db/attachment.html
More information about the Melbourne-pm
mailing list