Lines Matching refs:from
230 warn("$0: select: $!\n"),last if $ret < 0; # give up on error return from select
249 $from = recv(S,$buf,$len,0);
250 ;# give up on error return from recv
251 warn("$0: recv: $!\n"), last unless (defined($from));
253 $from = (unpack("Sna4",$from))[$[+2]; # keep host addr only
255 &debug("-Packet from ",&hostname($from));
259 &ntp'handle_packet($buf,$from); # ';
260 &debug(sprintf("%s uses auth_keyid %d",&hostname($from),$auth_keyid)) if defined($auth_keyid);
267 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op))) unless $op == 7;
268 delete $RETRY{pack("a4SC",$from,$associd,$op)} unless $op == 7;
270 &process_response($from,$ret,$data,$status,$associd,$op,$seq,$auth_keyid);
275 &log(sprintf("%50s: %s: %s",(gethostbyaddr($from,&AF_INET))[$[],$ret,$data));
278 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op)));
343 local($from,$ret,$data,$status,$associd,$op,$seq,$auth_keyid) = @_;
349 &hostname($from),$seq);
389 push(@Requests,pack("a4SC",$from, $associd, 4));
416 push(@Requests,pack("a4SC",$from, $associd, 4));
428 &debug("Set trap ok from ",&hostname($from));
429 &set_timeout("refresh-".unpack("H*",$from),time+$REFRESH_TIME,
430 sprintf("&refresh(\"%s\");",unpack("H*",$from)));
436 $msg .= sprintf(" %40s ", &hostname($from));
453 &debug("Clear Trap ok from ",&hostname($from));
454 &clear_timeout("refresh-".unpack("H*",$from));