holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Generate error on port == 0

Browse Source
This commit is contained in:
Tom Eastep 2009-11-22 08:36:40 -08:00
parent 720442b400
commit d4ff629fd8
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -72,7 +72,7 @@ our @EXPORT = qw( ALLIPv4
validate_icmp6 validate_icmp6
); );
our @EXPORT_OK = qw( ); our @EXPORT_OK = qw( );
our $VERSION = '4.4_1'; our $VERSION = '4.4_5';
# #
# Some IPv4/6 useful stuff # Some IPv4/6 useful stuff
@ -302,6 +302,7 @@ sub validate_port( $$ ) {
my $value; my $value;
if ( $port =~ /^(\d+)$/ ) { if ( $port =~ /^(\d+)$/ ) {
fatal_error "Invalid Port Number (0)" unless $port;
return $port if $port <= 65535; return $port if $port <= 65535;
} else { } else {
$proto = proto_name $proto if $proto =~ /^(\d+)$/; $proto = proto_name $proto if $proto =~ /^(\d+)$/;

2
Shorewall/Perl/Shorewall/Rules.pm
View File

@ -46,7 +46,7 @@ our @EXPORT = qw( process_tos
compile_stop_firewall compile_stop_firewall
); );
our @EXPORT_OK = qw( process_rule process_rule1 initialize ); our @EXPORT_OK = qw( process_rule process_rule1 initialize );
our $VERSION = '4.4_4'; our $VERSION = '4.4_5';
# #
# Set to one if we find a SECTION # Set to one if we find a SECTION