extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-16 19:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Call the Proxyarp initializer in an INIT block; add other missing initializer calls

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6540 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-14 14:58:48 +00:00
parent be8013a8b2
commit 20ab9d7cfa
3 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,18 +54,23 @@ our $reused = 0;
use constant { EXPORT => 0x01 , use constant { EXPORT => 0x01 ,
TIMESTAMP => 0x02 }; TIMESTAMP => 0x02 };
sub initialize() { #
# Reinitilize the package-globals in the other modules
#
sub reinitialize() {
Shorewall::Common::initialize; Shorewall::Common::initialize;
Shorewall::Config::initialize; Shorewall::Config::initialize;
Shorewall::Chains::initialize; Shorewall::Chains::initialize;
Shorewall::Zones::initialize;
Shorewall::Interfaces::initialize; Shorewall::Interfaces::initialize;
Shorewall::Accounting::initialize;
Shorewall::Actions::initialize;
Shorewall::Nat::initialize; Shorewall::Nat::initialize;
Shorewall::Providers::initialize; Shorewall::Providers::initialize;
Shorewall::Rules::initialize;
Shorewall::Tc::initialize; Shorewall::Tc::initialize;
Shorewall::Zones::initialize; Shorewall::Macros::initialize;
Shorewall::Actions::initialize;
Shorewall::Accounting::initialize;
Shorewall::Rules::initialize;
Shorewall::Proxyarp::initialize;
} }
# #
@ -675,7 +680,7 @@ sub compiler( $$$$ ) {
$export = 0; $export = 0;
initialize if $reused++; reinitialize if $reused++;
if ( $directory ne '' ) { if ( $directory ne '' ) {
fatal_error "$directory is not an existing directory" unless -d $directory; fatal_error "$directory is not an existing directory" unless -d $directory;

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

@ -39,7 +39,7 @@ our @EXPORT = qw( find_macro
merge_macro_column merge_macro_column
%macros ); %macros );
our @EXPORT_OK = qw( ); our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00; our @VERSION = 1.00;

6
Shorewall-perl/Shorewall/Proxyarp.pm
View File

@ -35,7 +35,7 @@ our @EXPORT = qw(
dump_proxy_arp dump_proxy_arp
); );
our @EXPORT_OK = qw( ); our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00; our @VERSION = 1.00;
our @proxyarp; our @proxyarp;
@ -44,6 +44,10 @@ sub initialize() {
@proxyarp = (); @proxyarp = ();
} }
INIT {
initialize;
}
sub setup_one_proxy_arp( $$$$$ ) { sub setup_one_proxy_arp( $$$$$ ) {
my ( $address, $interface, $external, $haveroute, $persistent) = @_; my ( $address, $interface, $external, $haveroute, $persistent) = @_;