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

Fix "!" following log level

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6167 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-05-01 00:01:24 +00:00
parent 3156e2f3d2
commit 3c15fdabdd
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/Config.pm
View File

@ -505,6 +505,7 @@ sub validate_level( $ ) {
my $level = $_[0]; my $level = $_[0];
if ( defined $level && $level ne '' ) { if ( defined $level && $level ne '' ) {
$level =~ s/!$//;
my $value = $validlevels{$level}; my $value = $validlevels{$level};
return $value if defined $value; return $value if defined $value;
return $level if $level =~ /^[0-7]$/; return $level if $level =~ /^[0-7]$/;