Lines Matching refs:unpack
93 ($my_port, $my_addr) = (unpack("S n a4 x8",getsockname(S)))[$[+1,$[+2];
95 unpack("C4",$my_addr), $my_port));
166 &debug(sprintf("hostname(%d.%d.%d.%d) = \"%s\"",unpack("C4",$addr),$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));
198 ($addr,$assoc,$op) = unpack("a4SC",($req = shift(@Requests)));
202 &set_timeout("retry-".unpack("H*",$req),time+$BASE_TIMEOUT,
203 sprintf("&retry(\"%s\");",unpack("H*",$req)));
255 $from = (unpack("Sna4",$from))[$[+2]; # keep host addr only
269 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op))) unless $op == 7;
280 &clear_timeout("retry-".unpack("H*",pack("a4SC",$from,$associd,$op)));
334 unpack("x4SC",$tag)));
339 unpack("x4SC",$tag)));
431 &set_timeout("refresh-".unpack("H*",$from),time+$REFRESH_TIME,
432 sprintf("&refresh(\"%s\");",unpack("H*",$from)));
456 &clear_timeout("refresh-".unpack("H*",$from));