extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-15 10:51:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

Automate the maintenance of the hash of compiler-defined entries in %params

Browse Source
This commit is contained in:
Tom Eastep 2011-01-09 13:12:36 -08:00
parent 0dc4cd7937
commit 3392312cef
2 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,6 +103,7 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
which
qt
ensure_config_path
add_param
export_params
get_configuration
require_capability
@ -125,7 +126,6 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
$debug
%config
%globals
%params
F_IPV4
F_IPV6
@ -278,6 +278,10 @@ our @openstack;
#
our %params;
#
# Entries that the compiler adds to %params
#
our %compiler_params;
#
# Action parameters
#
our %actparms;
@ -718,13 +722,17 @@ sub initialize( $ ) {
$shorewall_dir = ''; #Shorewall Directory
$debug = 0;
%params = ( root => '',
system => '',
command => '',
files => '',
destination => '' );
%compiler_params = ();
$compiler_params{$_} = 1 for keys %params;
%actparms = ();
}
@ -2742,7 +2750,7 @@ sub ensure_config_path() {
open_file $f;
$params{CONFDIR} = $globals{CONFDIR};
add_param( CONFDIR => $globals{CONFDIR} );
while ( read_a_line ) {
if ( $currentline =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) {
@ -3025,25 +3033,24 @@ sub get_params() {
}
}
#
# Add an entry to %params
#
sub add_param( $$ ) {
my ( $param, $value ) = @_;
$params{$param} = $value;
$compiler_params{$param} = 1;
}
#
# emit param=value for each param set in the params file
#
sub export_params() {
#
# These are variables that the compiler adds to the hash
#
my %exclude = ( root => 1,
system => 1,
files => 1,
destination => 1,
command => 1,
FW => 1,
CONFDIR => 1 );
my $count = 0;
while ( my ( $param, $value ) = each %params ) {
next if $exclude{$param};
next if $compiler_params{$param};
#
# Don't export pairs from %ENV
#

2
Shorewall/Perl/Shorewall/Zones.pm
View File

@ -429,7 +429,7 @@ sub process_zone( \$ ) {
fatal_error 'Firewall zone may not be nested' if @parents;
fatal_error "Only one firewall zone may be defined ($zone)" if $firewall_zone;
$firewall_zone = $zone;
$params{FW} = $zone;
add_param( FW => $zone );
$type = FIREWALL;
} elsif ( $type eq 'vserver' ) {
fatal_error 'Vserver zones may not be nested' if @parents;