Re: [MacPerl] network problems

[pudge@pobox.com (Chris Nandor)]

That code "works" for me.  That is, I get a defined, packed ip address.  I
am using all the same software you are and the same versions.

Can you make a connection with any other software (Netscape, Eudora,
Anarchie, etc.)?

--
Chris Nandor               pudge@pobox.com           http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==                    MacPerl: Power and Ease                     ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#


At 01.08 12/28/97, David Neumann wrote:
>use Net::Ping;
>use Socket;
>
>$p = Net::Ping->new("tcp", 15);
>$proto = getprotobyname('tcp');
>print "proto: $proto\n";
>$port = getservbyname('echo', 'tcp');
>print "echo port: $port\n";
>$host = "mail.clark.net";
>$ip = inet_aton($host);
>if (defined($ip)) {
>        print "ip: $ip\n";
>} else {
>        print "ip is undefined for $host\n";
>}
>
>I get the following results:
>
>proto: 6
>echo port: 7
>ip is undefined for mail.clark.net
>
>All addresses are undefined, and this is where the ping code seems to fail
>when called.
>This is the Ping.pm that was modified for MacPerl.
>
>I am using the following versions:
>MacPerl 5.1.5r4
>MacOS 8.0
>OT 1.2
>TCP/IP 1.2
>PPP 1.0.1
>
>Should this combination of Perl code and system software work?
>Other network code also fails, and it doesn't seem to matter if my PPP
>connection is already
>established or not.



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch