mirror of
https://gitlab.com/shorewall/code.git
synced 2024-12-15 19:01:19 +01:00
Fix $VERSION in modules
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6635 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
parent
c2a18dd160
commit
3ec1e156d6
@ -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
|
||||
|
@ -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.
|
||||
|
@ -128,7 +128,7 @@ our @EXPORT = qw( STANDARD
|
||||
%targets
|
||||
);
|
||||
our @EXPORT_OK = qw( initialize );
|
||||
our @VERSION = 1.00;
|
||||
our $VERSION = 1.00;
|
||||
|
||||
#
|
||||
# Chain Table
|
||||
|
@ -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 );
|
||||
|
@ -66,6 +66,7 @@ our @EXPORT = qw(
|
||||
|
||||
our @EXPORT_OK = qw( $shorewall_dir initialize );
|
||||
our @VERSION = 1.00;
|
||||
our $VERSION = 1.00;
|
||||
|
||||
#
|
||||
# Misc Globals
|
||||
|
@ -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}
|
||||
|
@ -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
|
||||
|
@ -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.
|
||||
|
@ -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;
|
||||
|
@ -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;
|
||||
|
@ -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.
|
||||
|
@ -44,7 +44,7 @@ our @EXPORT = qw(
|
||||
setup_forwarding
|
||||
);
|
||||
our @EXPORT_OK = qw( );
|
||||
our @VERSION = 1.00;
|
||||
our $VERSION = 1.00;
|
||||
|
||||
#
|
||||
# ARP Filtering
|
||||
|
@ -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,
|
||||
|
@ -36,7 +36,7 @@ our @EXPORT = qw(
|
||||
);
|
||||
|
||||
our @EXPORT_OK = qw( initialize );
|
||||
our @VERSION = 1.00;
|
||||
our $VERSION = 1.00;
|
||||
|
||||
our @proxyarp;
|
||||
|
||||
|
@ -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
|
||||
|
@ -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,
|
||||
|
@ -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...
|
||||
|
@ -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
|
||||
|
@ -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: $!";
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user