[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