extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-16 11:20:53 +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 ,
TIMESTAMP => 0x02 };
sub initialize() {
#
# Reinitilize the package-globals in the other modules
#
sub reinitialize() {
Shorewall::Common::initialize;
Shorewall::Config::initialize;
Shorewall::Chains::initialize;
Shorewall::Zones::initialize;
Shorewall::Interfaces::initialize;
Shorewall::Accounting::initialize;
Shorewall::Actions::initialize;
Shorewall::Nat::initialize;
Shorewall::Providers::initialize;
Shorewall::Rules::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;
initialize if $reused++;
reinitialize if $reused++;
if ( $directory ne '' ) {
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
%macros );
our @EXPORT_OK = qw( );
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;

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

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