<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-AU link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal>Hello all.<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal> I need some help with Win32::Process.<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal> What I need is when the process die’s
( on it’s own ) I need to be restarted.<o:p></o:p></p>
<p class=MsoNormal> Note this also runs in PerlSvc<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal> Code<o:p></o:p></p>
<p class=MsoNormal>------------------------------------------------------------------------------------------------------------<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>#!/usr/bin/perl -w<o:p></o:p></p>
<p class=MsoNormal>use strict;<o:p></o:p></p>
<p class=MsoNormal>package PerlSvc;<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>use strict;<o:p></o:p></p>
<p class=MsoNormal>use Win32::Process;<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>our %Config;<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>sub Startup {<o:p></o:p></p>
<p class=MsoNormal> my $Process;<o:p></o:p></p>
<p class=MsoNormal> my $smsgateway =
PerlSvc::extract_bound_file('sms_gateway.exe');<o:p></o:p></p>
<p class=MsoNormal> Win32::Process::Create(<o:p></o:p></p>
<p class=MsoNormal> $Process,<o:p></o:p></p>
<p class=MsoNormal> $smsgateway,<o:p></o:p></p>
<p class=MsoNormal> 'Sms_Gateway.exe',<o:p></o:p></p>
<p class=MsoNormal> 0,<o:p></o:p></p>
<p class=MsoNormal> NORMAL_PRIORITY_CLASS,<o:p></o:p></p>
<p class=MsoNormal> "."<o:p></o:p></p>
<p class=MsoNormal> );<o:p></o:p></p>
<p class=MsoNormal> while (ContinueRun(10)) { }<o:p></o:p></p>
<p class=MsoNormal> $Process->Kill(0);<o:p></o:p></p>
<p class=MsoNormal>}<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>sub Pause { }<o:p></o:p></p>
<p class=MsoNormal>sub Continue { }<o:p></o:p></p>
<p class=MsoNormal>sub Interactive { }<o:p></o:p></p>
<p class=MsoNormal>sub Help { }<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>sub Install {<o:p></o:p></p>
<p class=MsoNormal> $Config{ServiceName} = 'SMS_Server';<o:p></o:p></p>
<p class=MsoNormal> $Config{DisplayName} = 'SMS Gateway Server';<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal> # add your additional install messages or functions here<o:p></o:p></p>
<p class=MsoNormal> print "\nInstall compleate\n";<o:p></o:p></p>
<p class=MsoNormal>}<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>sub Remove {<o:p></o:p></p>
<p class=MsoNormal> $Config{ServiceName} = 'SMS_Server';<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal> # add your additional remove messages or functions here<o:p></o:p></p>
<p class=MsoNormal> print "\nSMS Server removed\n";<o:p></o:p></p>
<p class=MsoNormal>}<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>package main;<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>1;<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<div>
<div>
<div>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>Dwayne
Godden</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'><br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>Enterprise
Engineer - Communication Specialist</span><span style='font-size:8.0pt;
font-family:"Arial","sans-serif"'><o:p></o:p></span></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>IOOF
Investment Management</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'><br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>ABN 53
006 695 021</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'><br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>AFS
Licence No. 230 524</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'><br>
<br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>d.godden@ioof.com.au</span><span
style='font-size:8.0pt'><br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>Phone 03
8614 4828</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'><br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>Fax 03
8614 4908</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'><br>
</span><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>Mobile
0411 653 435</span><span style='font-size:8.0pt'><o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Arial","sans-serif"'>Level
10, 303 Collins Street, Melbourne VIC 3000</span><span style='font-family:"Arial","sans-serif"'><o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p>
</div>
</div>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<FONT SIZE=3><BR>
<BR>
****************************************************************************<BR>
IMPORTANT - PLEASE READ<BR>
This communication is intended only for the use of the addressee and <BR>
may contain personal information, confidential information or legally <BR>
privileged information. If personal information is contained in this e-mail, <BR>
then it is governed by the Privacy Act 1988 and must be treated in <BR>
accordance with the Privacy Act 1988 by the recipient. The legal <BR>
privilege and confidentiality attached to this e-mail is not waivered, <BR>
lost or destroyed by reason of mistaken delivery to you. If you are not <BR>
the intended recipient, we would appreciate immediate notification by <BR>
return e-mail or telephoning +61-3-8614-4444 and ask that the message <BR>
be permanently deleted from your system. If you are the intended <BR>
recipient of this communication you should not copy, disclose or distribute <BR>
this communication without the authority of IOOF or its related entities <BR>
(the IOOF Group).<BR>
Any views expressed in this message are those of the individual sender, <BR>
except where they are specifically stated to be the views of the IOOF <BR>
Group.<BR>
This e-mail and any attachments have been scanned for computer viruses <BR>
using anti-viral software, but you should also perform your own scan. We <BR>
do not accept liability for any loss or damage, whether caused by our own <BR>
negligence or not, that results from a computer virus or a defect in the <BR>
transmission of the e-mail or any attached file.<BR>
****************************************************************************<BR>
</FONT>
</body>
</html>