source: genesis/config/iris/node/FreeBSD/8.0-RELEASE/IP.pm@ 8957

#!/usr/bin/perl -w
#
#Module om ip addresses makkelijk te manipuleren
#
#Rick van der Zwet (rick@wirelessleiden.nl)
package IP;

$nGlobal=0;


#module voor het berekenen van de netmask
sub len2MaskCalc {
        my $nMask = $_[0];
        if( $nMask < 1 ) {
                return 0;
        }
        my $nCalc = 0;
  for( my $nX = 7; $nX > -1; $nX-- ) {
                $nCalc = $nCalc +  2**$nX;
                $nMask = $nMask - 1;
                $nGlobal = $nMask;
                if( $nMask < 1 ) {
                        return( $nCalc );
                }
        }
        return $nCalc;
}


#convert een netmask naar een subnet
sub getSubnetAddr {
        $nGlobal = 0;
        my @subnet;
        $subnet[0]=len2MaskCalc( $_[0] );
        $subnet[1]=len2MaskCalc( $nGlobal );
        $subnet[2]=len2MaskCalc( $nGlobal );
        $subnet[3]=len2MaskCalc( $nGlobal );
        return( join( ".", @subnet) );
}


#convert een subnet naar een netmask
sub getNetmask {
        my $cidr = 0;
        my @subnet = split( /\./, $_[0] );
        foreach my $part (@subnet) {
                my $bin = sprintf "%b", $part;
                $cidr = $cidr + ( $bin =~ tr/1// );
        }
        return( $cidr );
}


#netmask en subnet converten naar subnet
sub toSubnet {
        my $subnet = $_[0];
        if ( not $subnet =~ /[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/ ) {
                $subnet = getSubnetAddr($_[0]);
        }
        return( $subnet );
}


#reken broadcast address uit (ip, netmask/subnet)
sub getBroadcastAddr {
        my @ipAddr = split(/\./,$_[0]);
        my $subnet = toSubnet($_[1]);
        my @subnetAddr = split(/\./, $subnet );
        my @broadcastAddr;
        for( my $ctr=0; $ctr < 4; $ctr++) {
                $broadcastAddr[$ctr] = $ipAddr[$ctr] | ($subnetAddr[$ctr] ^ 255);
        }
        return( join( ".", @broadcastAddr) );
}


#reken network address uit (ip, netmask/subnet)
sub getNetworkAddr {
        my @ipAddr = split(/\./,$_[0]);
        my $subnet = toSubnet($_[1]);
        my @subnetAddr = split(/\./, $subnet );
        my @networkAddr;
        for( my $ctr=0; $ctr < 4; $ctr++) {
                $networkAddr[$ctr] = ($ipAddr[$ctr] + 0) & $subnetAddr[$ctr];
        }
        return( join( ".", @networkAddr) );
}


#reken uit of een ip nummer in een range valt (ip1, ip2 ,netmask/subnet)
sub calcOnNetwork {
        my $subnet = toSubnet($_[2]);
        my $tmpNetworkAddr1 = getNetworkAddr($_[0], $subnet);
        my $tmpNetworkAddr2 = getNetworkAddr($_[1], $subnet);
        if( $tmpNetworkAddr1 eq $tmpNetworkAddr2 ) {
                return(1);
        }
        else {
                return(0);
        }
}

1;