proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-05-29 19:11:48 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

network: IP_from_cidr and is_ip_in_cidr helpers

Browse Source
This commit is contained in:
Wolfgang Bumiller 2015-10-16 15:53:49 +02:00 committed by Dietmar Maurer
parent da6362722d
commit bf52d27bb3
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/PVE/Network.pm
View File

@ -9,6 +9,8 @@ use File::Basename;
use IO::Socket::IP; use IO::Socket::IP;
use POSIX qw(ECONNREFUSED); use POSIX qw(ECONNREFUSED);
use Net::IP;
# host network related utility functions # host network related utility functions
our $ipv4_reverse_mask = [ our $ipv4_reverse_mask = [
@ -467,4 +469,35 @@ sub tcp_ping {
return $result; return $result;
} }
sub IP_from_cidr {
my ($cidr, $version) = @_;
return if $cidr !~ m!^(\S+?)/(\S+)$!;
my ($ip, $prefix) = ($1, $2);
my $ipobj = Net::IP->new($ip, $version);
return if !$ipobj;
$version = $ipobj->version();
my $binmask = Net::IP::ip_get_mask($prefix, $version);
return if !$binmask;
my $masked_binip = $ipobj->binip() & $binmask;
my $masked_ip = Net::IP::ip_bintoip($masked_binip, $version);
return Net::IP->new("$masked_ip/$prefix");
}
sub is_ip_in_cidr {
my ($ip, $cidr, $version) = @_;
my $cidr_obj = IP_from_cidr($cidr, $version);
return undef if !$cidr_obj;
my $ip_obj = Net::IP->new($ip, $version);
return undef if !$ip_obj;
return $cidr_obj->overlaps($ip_obj) == $Net::IP::IP_B_IN_A_OVERLAP;
}
1; 1;