Lines Matching full:pack
90 bind(S, pack("S n a4 x8", &AF_INET, $opt_p, &INADDR_ANY)) ||
109 &ntp'send(S,31,0,"",pack("Sna4x8",&AF_INET,$ntp_port,$Host{$_})); #';
126 ;# a Request element looks like: pack("a4SC",addr,associd,op)
138 (gethostbyaddr(pack("C4",$1,$2,$3,$4),&AF_INET))[$[,$[+4];
142 $addr = pack("C4",$1,$2,$3,$4);
157 push(@Requests,pack("a4SC",$addr,0,6)); # schedule a set trap request for $name
201 pack("Sna4x8",&AF_INET,$ntp_port,$addr));
269 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op))) unless $op == 7;
270 delete $RETRY{pack("a4SC",$from,$associd,$op)} unless $op == 7;
280 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op)));
318 $addr = pack("H*",$addr);
320 push(@Requests,pack("a4SC",$addr,0,6));
327 $tag = pack("H*",$tag);
364 local($x) = (gethostbyaddr(pack("C4",$1,$2,$3,$4),&AF_INET));
391 push(@Requests,pack("a4SC",$from, $associd, 4));
400 &hostname(pack("C4",split(/\./,$srcadr))));
418 push(@Requests,pack("a4SC",$from, $associd, 4));