Lines Matching refs:fh
128 $self->{"fh"} = FileHandle->new();
129 socket($self->{"fh"}, PF_INET, SOCK_DGRAM,
133 setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
137 setsockopt($self->{"fh"}, SOL_IP, IP_TOS(), pack("I*", $self->{'tos'}))
147 $self->{"fh"} = FileHandle->new();
148 socket($self->{"fh"}, PF_INET, SOCK_RAW, $self->{"proto_num"}) ||
151 setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
155 setsockopt($self->{"fh"}, SOL_IP, IP_TOS(), pack("I*", $self->{'tos'}))
165 $self->{"fh"} = FileHandle->new();
177 $self->{"fh"} = FileHandle->new();
217 CORE::bind($self->{"fh"}, sockaddr_in(0, $ip)) ||
313 $fh, # the file handle whose flags are to be modified
324 ioctl($fh, $f, $v) or croak("ioctl failed: $!");
327 if ($flags = fcntl($fh, F_GETFL, 0)) {
329 if (!fcntl($fh, F_SETFL, $flags)) {
445 send($self->{"fh"}, $msg, ICMP_FLAGS, $saddr); # Send the message
448 vec($rbits, $self->{"fh"}->fileno(), 1) = 1;
466 $from_saddr = recv($self->{"fh"}, $recv_msg, 1500, ICMP_FLAGS);
552 $self->{"fh"}->close();
569 socket($self->{"fh"}, PF_INET, SOCK_STREAM, $self->{"proto_num"}) ||
572 !CORE::bind($self->{"fh"}, sockaddr_in(0, $self->{"local_addr"}))) {
576 setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
580 setsockopt($self->{"fh"}, SOL_IP, IP_TOS(), pack("I*", $self->{'tos'}))
588 return ($ret = connect($self->{"fh"}, $saddr) || ($! == ECONNREFUSED && !$self->{"econnrefused"}));
592 $self->socket_blocking_mode($self->{"fh"}, 0);
595 if (!connect($self->{"fh"}, $saddr)) {
611 vec($wbits, $self->{"fh"}->fileno, 1) = 1;
619 if ($nfound && vec($wout, $self->{"fh"}->fileno, 1)) {
624 if (getpeername($self->{"fh"})) {
633 sysread($self->{"fh"},$char,1);
647 if ($nfound && vec($wexc, $self->{"fh"}->fileno, 1)) {
648 $! = unpack("i", getsockopt($self->{"fh"}, SOL_SOCKET,
660 $self->socket_blocking_mode($self->{"fh"}, 1);
685 $self->{"fh"}->close();
766 vec($rin, $self->{"fh"}->fileno(), 1) = 1;
771 vec($rout, $self->{"fh"}->fileno(), 1) = 1;
776 if($rout && vec($rout,$self->{"fh"}->fileno(),1)) {
777 my $num = syswrite($self->{"fh"}, $wrstr, length $wrstr);
787 if(vec($rin,$self->{"fh"}->fileno(),1)) {
789 if(sysread($self->{"fh"},$reply,length($pingstring)-length($rdstr))) {
820 if(!defined $self->{"fh"}->fileno()) {
845 if(defined($self->{"fh"}->fileno())) {
908 socket($self->{"fh"}, PF_INET, SOCK_DGRAM,
914 connect($self->{"fh"}, $saddr); # Tie destination to socket
917 send($self->{"fh"}, $msg, UDP_FLAGS); # Send it
920 vec($rbits, $self->{"fh"}->fileno(), 1) = 1;
945 $from_saddr = recv($self->{"fh"}, $from_msg, 1500, UDP_FLAGS);
975 if (send($self->{"fh"}, $msg, UDP_FLAGS)) {
1006 my $fh = FileHandle->new();
1010 if (!socket ($fh, PF_INET, SOCK_STREAM, $self->{"proto_num"})) {
1015 !CORE::bind($fh, sockaddr_in(0, $self->{"local_addr"}))) {
1020 setsockopt($fh, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
1024 setsockopt($fh, SOL_IP, IP_TOS(), pack("I*", $self->{'tos'}))
1028 $self->socket_blocking_mode($fh, 0);
1032 if (connect($fh, $saddr)) {
1049 my $entry = [ $host, $ip, $fh, $start_time, $stop_time ];
1050 $self->{"syn"}->{$fh->fileno} = $entry;
1054 vec($self->{"wbits"}, $fh->fileno, 1) = 1;
1079 if (!socket ($self->{"fh"}, PF_INET, SOCK_STREAM, $self->{"proto_num"})) {
1084 !CORE::bind($self->{"fh"}, sockaddr_in(0, $self->{"local_addr"}))) {
1089 setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
1093 setsockopt($self->{"fh"}, SOL_IP, IP_TOS(), pack("I*", $self->{'tos'}))
1099 connect($self->{"fh"}, $saddr);
1362 $self->{"fh"}->close();