Re:restart inetd

[Jorge Goncalvez]

------------- Begin Forwarded Message -------------

Date: Mon, 9 Jul 2001 15:51:30 +0200 (MEST)
From: Jorge Goncalvez <goncal11@cabs40>
Subject: Re:restart inetd
To: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-MD5: b1MsrCSej6BG/kEEgK1mig==

Hi, I made a button which could restart inetd but it seemed not working my code:

sub makeButtons
{


my $bouton=$mw->Button(-text => "Redemarrer", -underline =>0,
                                   -relief =>'raised',
                                   -cursor => 'pirate',
                                   -command =>\&restart_serv)->pack(-anchor 
=>'nw');
                                                                                       
                      
                                                                

}


sub restart_serv
{

        $PROG = "c:/cygwin/usr/sbin/inetd.exe";

        $SIG{HUP} = \&phenix;

        sub phenix {

                exec($PROG)             or die " can't be restarted : $!\n";

                   }
}


#----------------------------------------------------

When I type ps, inetd doen't appear.Why

Thanks

------------- End Forwarded Message -------------