Re: [MacPerl] testing for net connectivity

[Chris Nandor <pudge@pobox.com>]

At 12:54 +0000 2000.12.01, Alan Fry wrote:
>use Socket;
>$ia = inet_aton('some.known.address') or die "$! No connection\n";
>print "$ia\n";  #just for testing
>
>For the address I sometimes use my own, i.e. "afco.demon.co.uk" or my
>ISP's web site "www.demon.net" -- anything valid will do.

Yeah, I dunno if that will do it (though I don't want to go offline to test
:).  If the Mac caches a hostname, or if the hostname is really in your
hosts file (though most people don't have them), then it might just returnt
he right value, even if offline.  Dunno.

-- 
Chris Nandor                      pudge@pobox.com    http://pudge.net/
Open Source Development Network    pudge@osdn.com     http://osdn.com/

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org