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

Fix a couple of bugs

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7701 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep
2007-11-20 16:01:27 +00:00
parent 1f48b9d616
commit a7f089a939
4 changed files with 20 additions and 436 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall-perl/Shorewall/Config.pm
View File

@@ -1162,7 +1162,7 @@ my %validlevels = ( debug => 7,
ULOG => 'ULOG',
NFLOG => 'NFLOG');
my @suffixes = qw(group range threshhold);
my @suffixes = qw(group range threshold nlgroup cprange qthreshold);
#
# Validate a log level -- Drop the trailing '!' and translate to numeric value if appropriate"
@@ -1184,7 +1184,7 @@ sub validate_level( $ ) {
my $olevel = $1;
my @options = split /,/, $2;
my $prefix = lc $olevel;
my $index = 0;
my $index = $prefix eq 'ulog' ? 3 : 0;
level_error( $level ) if @options > 3;