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

Fix '\!' handling in validate_level()

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-11-15 16:41:32 -08:00
parent afaf0d9de8
commit d096b9399a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Shorewall/Perl/Shorewall/Config.pm
View File

@ -2143,13 +2143,12 @@ sub validate_level( $ ) {
my $level = uc $rawlevel; my $level = uc $rawlevel;
if ( supplied ( $level ) ) { if ( supplied ( $level ) ) {
$level =~ s/!$//;
my $value = $level; my $value = $level;
my $qualifier; my $qualifier;
$value =~ s/^!//;
unless ( $value =~ /^[0-7]$/ ) { unless ( $value =~ /^[0-7]$/ ) {
level_error( $level ) unless $level =~ /^!?([A-Za-z0-7]+)(.*)$/ && defined( $value = $validlevels{$1} ); level_error( $level ) unless $level =~ /^([A-Za-z0-7]+)(.*)$/ && defined( $value = $validlevels{$1} );
$qualifier = $2; $qualifier = $2;
} }