extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-23 05:58:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Couple of minor issues in the Chains module

Browse Source
This commit is contained in:
Tom Eastep 2011-02-19 09:08:43 -08:00
parent 30768a03d1
commit 59ac90d717
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -2502,7 +2502,7 @@ sub do_ratelimit( $$ ) {
sub do_connlimit( $ ) { sub do_connlimit( $ ) {
my ( $limit ) = @_; my ( $limit ) = @_;
return '' unless $limit and $limit ne '-'; return '' if $limit eq '-';
require_capability 'CONNLIMIT_MATCH', 'A non-empty CONNLIMIT', 's'; require_capability 'CONNLIMIT_MATCH', 'A non-empty CONNLIMIT', 's';
@ -2535,7 +2535,7 @@ sub do_time( $ ) {
} elsif ( $element =~ /^weekdays=(.*)$/ ) { } elsif ( $element =~ /^weekdays=(.*)$/ ) {
my $days = $1; my $days = $1;
for my $day ( split /,/, $days ) { for my $day ( split /,/, $days ) {
fatal_error "Invalid weekday ($day)" unless $day =~ /^(Mon|Tue|Wed|Thu|Fri|Sat|Sun)$/ || ( $day =~ /^\d$/ && $day && $day <= 7);0 fatal_error "Invalid weekday ($day)" unless $day =~ /^(Mon|Tue|Wed|Thu|Fri|Sat|Sun)$/ || ( $day =~ /^\d$/ && $day && $day <= 7);
} }
$result .= "--weekday $days "; $result .= "--weekday $days ";
} elsif ( $element =~ /^monthdays=(.*)$/ ) { } elsif ( $element =~ /^monthdays=(.*)$/ ) {