Lines Matching refs:addr
126 ;# a Request element looks like: pack("a4SC",addr,associd,op)
131 local($name,$addr);
137 ($name,$addr) =
142 $addr = pack("C4",$1,$2,$3,$4);
147 ($name,$addr) = (gethostbyname($_))[$[,$[+4];
155 $Host{$name} = $addr;
156 $Host{$_} = $addr;
157 push(@Requests,pack("a4SC",$addr,0,6)); # schedule a set trap request for $name
163 local($addr) = @_;
164 return $HostName{$addr} if defined($HostName{$addr});
165 local($name) = gethostbyaddr($addr,&AF_INET);
166 &debug(sprintf("hostname(%d.%d.%d.%d) = \"%s\"",unpack("C4",$addr),$name))
168 defined($name) && ($HostName{$addr} = $name) && (return $name);
169 &debug(sprintf("Failed to get name for %d.%d.%d.%d",unpack("C4",$addr)));
170 return sprintf("[%d.%d.%d.%d]",unpack("C4",$addr));
180 $addr="";
198 ($addr,$assoc,$op) = unpack("a4SC",($req = shift(@Requests)));
199 &debug(sprintf("Request: %s: %s(%d)",&hostname($addr), &ntp'cntrlop_name($op), $assoc)); #';))
201 pack("Sna4x8",&AF_INET,$ntp_port,$addr));
255 $from = (unpack("Sna4",$from))[$[+2]; # keep host addr only
317 local($addr) = @_[$[];
318 $addr = pack("H*",$addr);
319 &debug(sprintf("Refreshing trap for %s", &hostname($addr)));
320 push(@Requests,pack("a4SC",$addr,0,6));