Lines Matching refs:unpack
91 ($my_port, $my_addr) = (unpack("S n a4 x8",getsockname(S)))[$[+1,$[+2];
93 unpack("C4",$my_addr), $my_port));
164 &debug(sprintf("hostname(%d.%d.%d.%d) = \"%s\"",unpack("C4",$addr),$name))
167 &debug(sprintf("Failed to get name for %d.%d.%d.%d",unpack("C4",$addr)));
168 return sprintf("[%d.%d.%d.%d]",unpack("C4",$addr));
196 ($addr,$assoc,$op) = unpack("a4SC",($req = shift(@Requests)));
200 &set_timeout("retry-".unpack("H*",$req),time+$BASE_TIMEOUT,
201 sprintf("&retry(\"%s\");",unpack("H*",$req)));
253 $from = (unpack("Sna4",$from))[$[+2]; # keep host addr only
267 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op))) unless $op == 7;
278 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op)));
332 unpack("x4SC",$tag)));
337 unpack("x4SC",$tag)));
429 &set_timeout("refresh-".unpack("H*",$from),time+$REFRESH_TIME,
430 sprintf("&refresh(\"%s\");",unpack("H*",$from)));
454 &clear_timeout("refresh-".unpack("H*",$from));