webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-28 11:43:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

network-functions.pl: Add function to extract prefix

Browse Source 
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2024-03-20 12:09:58 +01:00
parent 8eb016da79
commit 0e55d27737
1 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
config/cfgroot/network-functions.pl
View File

@@ -291,6 +291,33 @@ sub get_broadcast($) {
return &bin2ip($network_bin ^ ~$netmask_bin);
}
sub get_prefix($) {
my $network = shift;
# Convert to binary
my ($network_bin, $netmask_bin) = &network2bin($network);
if (defined $netmask_bin) {
my $prefix = 0;
while (1) {
# End the loop if we have consumed all ones
last if ($netmask_bin == 0);
# Increment prefix
$prefix++;
# Remove the most-significant one
$netmask_bin <<= 1;
$netmask_bin &= 0xffffffff;
}
return $prefix;
}
return undef;
}
# Returns True if $address is in $network.
sub ip_address_in_network($$) {
my $address = shift;
@@ -690,6 +717,13 @@ sub testsuite() {
$result = &ip_address_in_range("192.168.30.21", "192.168.30.10", "192.168.30.20");
assert('ip_address_in_range("192.168.30.21", "192.168.30.10", "192.168.30.20")', !$result);
# Check &get_prefix()
$result = &get_prefix("192.168.0.0/24");
assert('get_prefix("192.168.0.0/24")', $result != 24);
$result = &get_prefix("192.168.0.0/255.255.0.0");
assert('get_prefix("192.168.0.0/255.255.0.0")', $result != 16);
print "Testsuite completed successfully!\n";
return 0;