return $address;
}
+# Takes two network addresses, compares them against each other
+# and returns true if equal or false if not
+sub network_equal {
+ my $network1 = shift;
+ my $network2 = shift;
+
+ my $bin1 = &network2bin($network1);
+ my $bin2 = &network2bin($network2);
+
+ if ($bin1 eq $bin2) {
+ return 1;
+ }
+
+ return 0;
+}
+
# Takes a network in either a.b.c.d/a.b.c.d or a.b.c.d/e notation
# and will return an 32 bit integer representing the start
# address and an other one representing the network mask.
return ($network_start, $netmask_bin);
}
+# Deletes leading zeros in ip address
+sub ip_remove_zero{
+ my $address = shift;
+ my @ip = split (/\./, $address);
+
+ foreach my $octet (@ip) {
+ $octet = int($octet);
+ }
+
+ $address = join (".", @ip);
+
+ return $address;
+}
# Returns True for all valid IP addresses
sub check_ip_address($) {
my $address = shift;
return &check_netmask($netmask);
}
+# Returns True for all valid subnets like a.b.c.d/e or a.b.c.d/a.b.c.d
+sub check_subnet($) {
+ my $subnet = shift;
+
+ my ($address, $network) = split(/\//, $subnet, 2);
+
+ # Check if the IP address is fine.
+ my $result = &check_ip_address($address);
+ unless ($result) {
+ return $result;
+ }
+
+ return &check_prefix($network) || &check_netmask($network);
+}
+
# For internal use only. Will take an IP address and
# return it in a normalised style. Like 8.8.8.010 -> 8.8.8.8.
sub _normalise_ip_address($) {
my ($network_bin, $netmask_bin) = &network2bin($network);
# Find end address
- my $broadcast_bin = $network_bin ^ ~$netmask_bin;
+ my $broadcast_bin = $network_bin ^ (~$netmask_bin % 2 ** 32);
return (($address_bin ge $network_bin) && ($address_bin le $broadcast_bin));
}
$result = &find_next_ip_address("1.2.3.4", 2);
assert($result eq "1.2.3.6");
+ $result = &network_equal("192.168.0.0/24", "192.168.0.0/255.255.255.0");
+ assert($result);
+
+ $result = &network_equal("192.168.0.0/24", "192.168.0.0/25");
+ assert(!$result);
+
+ $result = &network_equal("192.168.0.0/24", "192.168.0.128/25");
+ assert(!$result);
+
+ $result = &network_equal("192.168.0.1/24", "192.168.0.XXX/24");
+ assert($result);
+
$result = &ip_address_in_network("10.0.1.4", "10.0.0.0/8");
assert($result);
+ $result = &ip_address_in_network("192.168.30.11", "192.168.30.0/255.255.255.0");
+ assert($result);
+
+ print "Testsuite completed successfully!\n";
+
return 0;
}