Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/Ping.pm

Lines Matching refs:ip
204   my ($ip                 # Packed IP number of $local_addr
211   $ip = inet_aton($local_addr);
212   croak("nonexistent local address $local_addr") unless defined($ip);
213   $self->{"local_addr"} = $ip; # Only used if proto is tcp
217   CORE::bind($self->{"fh"}, sockaddr_in(0, $ip)) ||
348   my ($ip,                # Packed IP number of $host
357   $ip = inet_aton($host);
358   return () unless defined($ip);      # Does host exist?
363     $ret = $self->ping_external($ip, $timeout);
366     $ret = $self->ping_udp($ip, $timeout);
369     $ret = $self->ping_icmp($ip, $timeout);
372     $ret = $self->ping_tcp($ip, $timeout);
375     $ret = $self->ping_stream($ip, $timeout);
378     $ret = $self->ping_syn($host, $ip, $ping_time, $ping_time+$timeout);
383   return wantarray ? ($ret, &time() - $ping_time, inet_ntoa($ip)) : $ret;
389       $ip,                # Packed IP number of the host
395   return Net::Ping::External::ping(ip => $ip, timeout => $timeout);
408       $ip,                # Packed IP number of the host
412   my ($saddr,             # sockaddr_in with port and ip
441   $saddr = sockaddr_in(ICMP_PORT, $ip);
495   my $ip = $self->{"from_ip"} || "";
496   $ip = "\0\0\0\0" unless 4 == length $ip;
497   return (inet_ntoa($ip),($self->{"from_type"} || 0), ($self->{"from_subcode"} || 0));
540       $ip,                # Packed IP number of the host
547   $ret = $self -> tcp_connect( $ip, $timeout);
559       $ip,                # Packed IP number of the host
564   $saddr = sockaddr_in($self->{"port_num"}, $ip);
585     $self->{"ip"} = $ip;
661     $self->{"ip"} = $ip;
815       $ip,                # Packed IP number of the host
821     $self->tcp_connect($ip, $timeout) or return 0;
825     if $self->{"ip"} ne $ip;
840   my ($ip);               # Packed IP number of the host
841   $ip = inet_aton($host);
848       $self->tcp_connect($ip, $timeout);
865       $ip,                # Packed IP number of the host
869   my ($saddr,             # sockaddr_in with port and ip
884   $saddr = sockaddr_in($self->{"port_num"}, $ip);
959             (($from_ip eq $ip) &&        # Does the packet check out?
998   my $ip = shift;
1003     return $self->ping_syn_fork($host, $ip, $start_time, $stop_time);
1007   my $saddr = sockaddr_in($self->{"port_num"}, $ip);
1049   my $entry = [ $host, $ip, $fh, $start_time, $stop_time ];
1060   my ($self, $host, $ip, $start_time, $stop_time) = @_;
1069       my $entry = [ $host, $ip, $pid, $start_time, $stop_time ];
1076       my $saddr = sockaddr_in($self->{"port_num"}, $ip);
1410     while (($host,$rtt,$ip) = $p->ack) {
1411       print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
1417     ($ret, $duration, $ip) = $p->ping($host, 5.5);
1418     printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration)
1521 context, the elapsed time as well as the string form of the ip the
1609 dotted ip string will be returned instead of just the host.