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

Add a few comments

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-06-18 16:55:00 -07:00
parent d66c7d478e
commit 55242d1ed6
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -208,6 +208,9 @@ our %globals;
# From shorewall.conf file - exported to other modules.
#
our %config;
#
# Raw values from shorewall.conf - used to upgrade the config file
#
my %rawconfig;
#
# Config options and global settings that are to be copied to output script
@ -2854,7 +2857,9 @@ sub process_shorewall_conf() {
open_file $file;
first_entry "Processing $file...";
#
# Don't expand shell variables
#
while ( read_a_line(0,0) ) {
if ( $currentline =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) {
my ($var, $val) = ($1, $2);
@ -2874,7 +2879,9 @@ sub process_shorewall_conf() {
} else {
fatal_error "$file does not exist!";
}
#
# Now that we have the raw values stored, we expand shell variables and store the expanded values
#
while ( my ( $opt, $v ) = each %rawconfig ) {
my $count = 0;
@ -2901,8 +2908,7 @@ sub process_shorewall_conf() {
}
$config{$opt} = $v;
}
}
}
#