extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-18 11:38:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweaks to the IPAddrs module

Browse Source
This commit is contained in:
Tom Eastep 2010-08-11 11:46:26 -07:00
parent 0234564a1b
commit 965ad7ced1
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shorewall/Perl/Shorewall/IPAddrs.pm
View File

@ -124,8 +124,8 @@ sub valid_4address( $ ) {
my @address = split /\./, $address; my @address = split /\./, $address;
return 0 unless @address == 4; return 0 unless @address == 4;
for my $a ( @address ) { for ( @address ) {
return 0 unless $a =~ /^\d+$/ && $a < 256; return 0 unless /^\d+$/ && $_ < 256;
} }
1; 1;
@ -158,8 +158,8 @@ sub decodeaddr( $ ) {
my $result = shift @address; my $result = shift @address;
for my $a ( @address ) { for ( @address ) {
$result = ( $result << 8 ) | $a; $result = ( $result << 8 ) | $_;
} }
$result; $result;

BIN
docs/images/Network2010a.dia
View File

Binary file not shown.

BIN
docs/images/Network2010a.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 101 KiB

After

Width:  |  Height:  |  Size: 101 KiB