Re:Retrieve host

[Jorge Goncalvez]

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

Date: Mon, 16 Jul 2001 17:48:29 +0200 (MEST)
From: Jorge Goncalvez <goncal11@cabs40>
Subject: Re:Retrieve host
To: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-MD5: wPL9znYmDeTyzQcXNKmp1Q==

Hi I have the following code:

use Net::Ping;
        $p = Net::Ping->new();
        unless ($p->ping(cu5s46)) 
        {       
                require Tk::Dialog;
                $dialog =$mw-> Dialog( -title => 'NETWORK ALERT BOX',
               -text => "THE NETWORK IS DOWN",          
               -font => "Arial 16 normal",
               -justify => 'center',
               -default_button => 'OK',
               -bitmap =>'error',
               -buttons => [qw/OK/] );

        
        $dialog->Show;
                        }


        $p->close;      


But I would like to put a variable instead of cu5s46, a variable which could 
represent some host name in my network.

How can i do this?Thanks

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



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]