Lines Matching refs:ipmask
263 my ( $iprange, $iprange2, $ipmask );
267 $ipmask = pack( "U4", 0, 0, 0, 0 );
270 vec( $ipmask, int( $i / 8 ) * 8 + ( 8 - ( $i % 8 ) ) - 1, 1 ) = 1;
272 $iprange &= "$ipmask";
276 $ipmask = pack( "U4", $5, $6, $7, $8 );
277 $iprange &= "$ipmask";
281 $ipmask = pack( "U4", 255, 255, 255, 255 );
286 $ipmask = pack( "U4", 255, 255, 255, 255 );
290 return $iprange, $ipmask, $iprange2;
294 my ( $origip, $ipbase, $ipmask, $iprange2 ) = @_;
303 } elsif ( ( "$origip" & "$ipmask" ) eq $ipbase ) {