extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-24 00:23:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Some more global variable [re]initialization cleanup

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6594 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-18 23:04:17 +00:00
parent 95e573ce17
commit 5aa19f596e
5 changed files with 5 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Shorewall-perl/Shorewall/Actions.pm
View File

@ -55,9 +55,7 @@ our @VERSION = 1.00;
# Used Actions. Each action that is actually used has an entry with value 1.
#
our %usedactions;
## Firewall to DMZ
#
# Default actions for each policy.
#
our %default_actions;
@ -85,6 +83,7 @@ my %logactionchains;
#
sub initialize() {
%usedactions = ();
%default_actions = ( DROP => 'none' ,
REJECT => 'none' ,
ACCEPT => 'none' ,

2
Shorewall-perl/Shorewall/Chains.pm
View File

@ -275,7 +275,7 @@ sub initialize() {
#
# Sequence for naming temporary chains
#
our $chainseq;
$chainseq = undef;
}
INIT {

9
Shorewall-perl/Shorewall/Config.pm
View File

@ -78,8 +78,8 @@ our %config;
#
# Config options and global settings that are to be copied to object script
#
our @propagateconfig;
our @propagateenv;
our @propagateconfig = qw/ DISABLE_IPV6 MODULESDIR MODULE_SUFFIX LOGFORMAT SUBSYSLOCK LOCKFILE /;
our @propagateenv = qw/ LOGLIMIT LOGTAGONLY LOGRULENUMBERS /;
#
# From parsing the capabilities file
#
@ -227,11 +227,6 @@ sub initialize() {
TCP_FLAGS_DISPOSITION => undef,
BLACKLIST_DISPOSITION => undef,
);
#
# Config options and global settings that are to be copied to object script
#
@propagateconfig = qw/ DISABLE_IPV6 MODULESDIR MODULE_SUFFIX LOGFORMAT SUBSYSLOCK LOCKFILE /;
@propagateenv = qw/ LOGLIMIT LOGTAGONLY LOGRULENUMBERS /;
#
# From parsing the capabilities file

1
Shorewall-perl/Shorewall/Providers.pm
View File

@ -64,7 +64,6 @@ our @providers;
#
sub initialize() {
@providers = ();
%routemarked_interfaces = ();
@routemarked_interfaces = ();
$balance = 0;

17
Shorewall-perl/Shorewall/Zones.pm
View File

@ -94,21 +94,6 @@ our @zones;
our %zones;
our $firewall_zone;
#
# Interface Table.
#
# @interfaces lists the interface names in the order that they appear in the interfaces file.
#
# %interfaces { <interface1> => { root => <name without trailing '+'>
# broadcast => [ <bcast1>, ... ]
# options => { <option1> = <val1> ,
# ...
# }
# zone => <zone name>
# }
#
our %interfaces;
our %reservedName = ( all => 1,
none => 1,
SOURCE => 1,
@ -126,7 +111,7 @@ our %reservedName = ( all => 1,
sub initialize() {
@zones = ();
%zones = ();
%interfaces = ();
$firewall_zone = '';
}
INIT {