extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-08-15 10:48:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Move IPv4 definitions to IPAddrs.pm

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6327 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep
2007-05-11 15:39:11 +00:00
parent f442e82886
commit c34422e9c8
6 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Shorewall-perl/Shorewall/IPAddrs.pm
View File

@ -30,15 +30,28 @@ use Shorewall::Config;
use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw(
our @EXPORT = qw( ALLIPv4
validate_address
validate_net
validate_range
ip_range_explicit
@allipv4
@rfc1918_networks
);
our @EXPORT_OK = qw( );
our @VERSION = 1.00;
#
# Some IPv4 useful stuff
#
our @allipv4 = ( '0.0.0.0/0' );
use constant { ALLIPv4 => '0.0.0.0/0' };
our @rfc1918_networks = ( "10.0.0.0/8", "172.16.0.0/12", "192.168.0.0/16" );
sub valid_address( $ ) {
my $address = $_[0];