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

Add error check

Browse Source
This commit is contained in:
Tom Eastep 2009-05-02 17:28:50 -07:00
parent 5e4196dafb
commit 626b60ff0e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Shorewall/Perl/Shorewall/Tc.pm
View File

@ -653,6 +653,7 @@ sub validate_tc_class( $$$$$$ ) {
} elsif ( $option =~ /^occurs=((\d+)([ds]?))$/ ) { } elsif ( $option =~ /^occurs=((\d+)([ds]?))$/ ) {
my $val = $2; my $val = $2;
$occurs = numeric_value($val); $occurs = numeric_value($val);
fatal_error "Invalid 'occurs'" if $3 && ! $devref->{classify};
$tcref->{src} = 0 if $3 eq 'd'; $tcref->{src} = 0 if $3 eq 'd';
fatal_error "Invalid 'occurs' ($val)" unless defined $occurs && $occurs > 0 && $occurs <= 256; fatal_error "Invalid 'occurs' ($val)" unless defined $occurs && $occurs > 0 && $occurs <= 256;
fatal_error "Invalid 'occurs' ($val)" if $occurs > ( $config{WIDE_TC_MARKS} ? 8191 : 255 ); fatal_error "Invalid 'occurs' ($val)" if $occurs > ( $config{WIDE_TC_MARKS} ? 8191 : 255 );