extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-06 13:39:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

Allow leading whitespace in shorewall.conf

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5766 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-30 23:31:22 +00:00
parent e3aa8fd449
commit 946aca4938
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
New/Shorewall/Config.pm
View File

@ -479,7 +479,7 @@ sub get_configuration() {
open_file $file; open_file $file;
while ( read_a_line ) { while ( read_a_line ) {
if ( $line =~ /^([a-zA-Z]\w*)=(.*?)\s*$/ ) { if ( $line =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) {
my ($var, $val) = ($1, $2); my ($var, $val) = ($1, $2);
unless ( exists $config{$var} ) { unless ( exists $config{$var} ) {
warning_message "Unknown configuration option \"$var\" ignored"; warning_message "Unknown configuration option \"$var\" ignored";
@ -509,7 +509,7 @@ sub get_configuration() {
next if $line =~ /^\s*#/; next if $line =~ /^\s*#/;
next if $line =~ /^\s*$/; next if $line =~ /^\s*$/;
if ( $line =~ /^([a-zA-Z]\w*)=(.*?)\s*$/ ) { if ( $line =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) {
my ($var, $val) = ($1, $2); my ($var, $val) = ($1, $2);
unless ( exists $capabilities{$var} ) { unless ( exists $capabilities{$var} ) {
warning_message "Unknown capability \"$var\" ignored"; warning_message "Unknown capability \"$var\" ignored";