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

Fix $VERSION in modules

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6635 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-21 14:40:40 +00:00
parent c2a18dd160
commit 3ec1e156d6
19 changed files with 26 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_accounting );
our @EXPORT_OK = qw( );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Initialize globals -- we take this novel approach to globals initialization to allow

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

@ -49,7 +49,7 @@ our @EXPORT = qw( merge_levels
%actions
);
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Used Actions. Each action that is actually used has an entry with value 1.

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

@ -128,7 +128,7 @@ our @EXPORT = qw( STANDARD
%targets
);
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Chain Table

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

@ -61,7 +61,7 @@ our @EXPORT = qw(
$verbose
);
our @EXPORT_OK = qw( $timestamp initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
our $line;
our ($command, $doing, $done );

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

@ -66,6 +66,7 @@ our @EXPORT = qw(
our @EXPORT_OK = qw( $shorewall_dir initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Misc Globals

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

@ -36,7 +36,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( validate_hosts_file find_hosts_by_option );
our @EXPORT_OK = ();
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Validates the hosts file. Generates entries in %zone{..}{hosts}

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

@ -41,7 +41,7 @@ our @EXPORT = qw( ALLIPv4
@rfc1918_networks
);
our @EXPORT_OK = qw( );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Some IPv4 useful stuff

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

@ -47,7 +47,8 @@ our @EXPORT = qw( add_group_to_zone
@interfaces
@bridges );
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Interface Table.

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

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

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

@ -38,7 +38,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_masq setup_nat setup_netmap add_addresses );
our @EXPORT_OK = ();
our @VERSION = 1.00;
our $VERSION = 1.00;
our @addresses_to_add;
our %addresses_to_add;

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

@ -35,7 +35,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( validate_policy apply_policy_rules complete_standard_chain );
our @EXPORT_OK = qw( );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Create a new policy chain and return a reference to it.

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

@ -44,7 +44,7 @@ our @EXPORT = qw(
setup_forwarding
);
our @EXPORT_OK = qw( );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# ARP Filtering

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

@ -36,7 +36,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_providers @routemarked_interfaces);
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
use constant { LOCAL_NUMBER => 255,
MAIN_NUMBER => 254,

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

@ -36,7 +36,7 @@ our @EXPORT = qw(
);
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
our @proxyarp;

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

@ -51,7 +51,7 @@ our @EXPORT = qw( process_tos
dump_rule_chains
);
our @EXPORT_OK = qw( process_rule process_rule1 initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Keep track of chains for the /var/lib/shorewall[-lite]/chains file

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

@ -41,7 +41,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_tc );
our @EXPORT_OK = qw( process_tc_rule initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
our %tcs = ( T => { chain => 'tcpost',
connmark => 0,

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

@ -34,7 +34,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_tunnels );
our @EXPORT_OK = ( );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# Here starts the tunnel stuff -- we really should get rid of this crap...

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

@ -48,7 +48,7 @@ our @EXPORT = qw( NOTHING
%interfaces );
our @EXPORT_OK = qw( initialize );
our @VERSION = 1.00;
our $VERSION = 1.00;
#
# IPSEC Option types

17
Shorewall-perl/buildports.pl
View File

@ -1,6 +1,6 @@
#! /usr/bin/perl -w
#
# Tool for building tables used to validate protocol and service names in Shorewall rules.
# Tool for building Shorewall::Ports.
#
# This program is under GPL [http://www.gnu.org/copyleft/gpl.htm]
#
@ -87,17 +87,14 @@ print <<"EOF";
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA
#
# This module is responsible for lower level configuration file handling.
# It also exports functions for generating warning and error messages.
# The get_configuration function parses the shorewall.conf, capabilities and
# modules files during compiler startup.
# This module exports the %protocols and %services hashes built from
# /etc/protocols and /etc/services respectively.
#
#
# Protocol and Services module generated using buildports.pl - $date
# Module generated using buildports.pl $globals{VERSION} - $date
#
EOF
print<<'EOF';
print <<'EOF';
package Shorewall::Ports;
use strict;
@ -106,7 +103,7 @@ use warnings;
our @ISA = qw(Exporter);
our @EXPORT = qw( %protocols %services );
our @EXPORT_OK = qw();
our @VERSION = 1.00;
our $VERSION = '1.00';
our %protocols = (
EOF
@ -122,7 +119,7 @@ while ( read_a_line1 ) {
print "\t\t );\n\n";
print "our \%services = (\n";
print "our %services = (\n";
open_file 'services' or fatal_error "Cannot open services: $!";