diff options
author | ivan <ivan> | 2008-03-16 05:13:13 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-03-16 05:13:13 +0000 |
commit | 6ca6c8ac1a3b4125be80763567a96304af1b7826 (patch) | |
tree | 2eff7da2be3d26d2db393b590821ba0d0ad7f42e /FS/FS/addr_block.pm | |
parent | 4d709feddbaa29d9429ad0bfbdd96991e89ba91f (diff) |
bring some sanity to address block selection in svc_broadband service definition edit
Diffstat (limited to 'FS/FS/addr_block.pm')
-rwxr-xr-x | FS/FS/addr_block.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/FS/FS/addr_block.pm b/FS/FS/addr_block.pm index 1fb6060..208684b 100755 --- a/FS/FS/addr_block.pm +++ b/FS/FS/addr_block.pm @@ -158,8 +158,18 @@ Returns a NetAddr::IP object for this block's address and netmask. sub NetAddr { my $self = shift; + new NetAddr::IP ($self->ip_gateway, $self->ip_netmask); +} + +=item cidr + +Returns a CIDR string for this block's address and netmask, i.e. 10.4.20.0/24 - return new NetAddr::IP ($self->ip_gateway, $self->ip_netmask); +=cut + +sub cidr { + my $self = shift; + $self->NetAddr->cidr; } =item next_free_addr |