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

Fix a tri-value bug

Browse Source
This commit is contained in:
Tom Eastep 2011-02-11 16:53:49 -08:00
parent af363888ab
commit 9e921beb49
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2022,9 +2022,10 @@ sub default_log_level( $$ ) {
# #
sub check_trivalue( $$ ) { sub check_trivalue( $$ ) {
my ( $var, $default) = @_; my ( $var, $default) = @_;
my $val = lc( $config{$var} || '' ); my $val = $config{$var};
if ( defined $val ) { if ( defined $val ) {
$val = lc $val;
if ( $val eq 'yes' || $val eq 'on' ) { if ( $val eq 'yes' || $val eq 'on' ) {
$config{$var} = 'on'; $config{$var} = 'on';
} elsif ( $val eq 'no' || $val eq 'off' ) { } elsif ( $val eq 'no' || $val eq 'off' ) {