diff options
author | Mitch Jackson <mitch@freeside.biz> | 2018-06-25 14:07:52 -0500 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-10-23 16:19:48 -0400 |
commit | 714d702814b985d90eb8224ee914b0c898b66a58 (patch) | |
tree | b4408d3e0b5a91b2a43121c19e1bcb64ca000c8f /FS/FS/addr_block.pm | |
parent | c18ec0f6b17d602909aaa2cbbe06fff4dcba98ec (diff) |
RT# 30783 Add network block enumerating utils
Diffstat (limited to 'FS/FS/addr_block.pm')
-rwxr-xr-x | FS/FS/addr_block.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/FS/FS/addr_block.pm b/FS/FS/addr_block.pm index ba0f61d..fa0e42f 100755 --- a/FS/FS/addr_block.pm +++ b/FS/FS/addr_block.pm @@ -207,6 +207,23 @@ sub cidr { $self->NetAddr->cidr; } +=item free_addrs + +Returns a sorted list of free addresses in the block. + +=cut + +sub free_addrs { + my $self = shift; + + my %used_addr_map = + map {$_ => 1} + FS::IP_Mixin->used_addresses_in_block($self), + FS::Conf->new()->config('exclude_ip_addr'); + + grep { !exists $used_addr_map{$_} } map { $_->addr } $self->NetAddr->hostenum; +} + =item next_free_addr Returns a NetAddr::IP object corresponding to the first unassigned address @@ -416,4 +433,3 @@ now because that's the smallest block that makes any sense at all. =cut 1; - |