mirror of
https://gitlab.com/shorewall/code.git
synced 2024-11-15 04:04:10 +01:00
dea79aa763
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7825 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
100 lines
3.1 KiB
Perl
Executable File
100 lines
3.1 KiB
Perl
Executable File
#! /usr/bin/perl -w
|
|
#
|
|
# The Shoreline Firewall4 (Shorewall-perl) Packet Filtering Firewall Compiler - V4.1
|
|
#
|
|
# This program is under GPL [http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt]
|
|
#
|
|
# (c) 2007 - Tom Eastep (teastep@shorewall.net)
|
|
#
|
|
# Complete documentation is available at http://shorewall.net
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of Version 2 of the GNU General Public License
|
|
# as published by the Free Software Foundation.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
#
|
|
# Usage:
|
|
#
|
|
# compiler.pl [ <option> ... ] [ <filename> ]
|
|
#
|
|
# Options:
|
|
#
|
|
# --export # Compile for export
|
|
# --verbosity=<number> # Set VERBOSITY range -1 to 2
|
|
# --directory=<directory> # Directory where configuration resides (default is /etc/shorewall)
|
|
# --timestamp # Timestamp all progress messages
|
|
# --debug # Print stack trace on warnings and fatal error.
|
|
# --refresh=<chainlist> # Make the 'refresh' command refresh a comma-separated list of chains rather than 'blacklst'.
|
|
# --log=<filename> # Log file
|
|
# --log_verbosity=<number> # Log Verbosity range -1 to 2
|
|
#
|
|
use strict;
|
|
use FindBin;
|
|
use lib "$FindBin::Bin";
|
|
use Shorewall::Compiler;
|
|
use Getopt::Long;
|
|
|
|
sub usage() {
|
|
print STDERR 'usage: compiler.pl [ <option> ... ] <filename> ]
|
|
|
|
options are:
|
|
[ --export ]
|
|
[ --directory=<directory> ]
|
|
[ --verbose={-1|0-2} ]
|
|
[ --timestamp ]
|
|
[ --debug ]
|
|
[ --refresh=<chainlist> ]
|
|
[ --log=<filename> ]
|
|
[ --log-verbose={-1|0-2} ]
|
|
';
|
|
exit 1;
|
|
}
|
|
|
|
#
|
|
# E x e c u t i o n B e g i n s H e r e
|
|
#
|
|
my $export = 0;
|
|
my $shorewall_dir = '';
|
|
my $verbose = 0;
|
|
my $timestamp = '';
|
|
my $debug = 0;
|
|
my $chains = '';
|
|
my $log = '';
|
|
my $log_verbose = 0;
|
|
|
|
Getopt::Long::Configure ('bundling');
|
|
|
|
my $result = GetOptions('export' => \$export,
|
|
'e' => \$export,
|
|
'directory=s' => \$shorewall_dir,
|
|
'd=s' => \$shorewall_dir,
|
|
'verbose=i' => \$verbose,
|
|
'v=i' => \$verbose,
|
|
'timestamp' => \$timestamp,
|
|
't' => \$timestamp,
|
|
'debug' => \$debug,
|
|
'r=s' => \$chains,
|
|
'refresh=s' => \$chains,
|
|
'log=s' => \$log,
|
|
'l=s' => \$log,
|
|
'log_verbosity=i' => \$log_verbose,
|
|
);
|
|
|
|
usage unless $result && @ARGV < 2;
|
|
|
|
my $options = 0;
|
|
|
|
$options |= EXPORT if $export;
|
|
$options |= TIMESTAMP if $timestamp;
|
|
$options |= DEBUG if $debug;
|
|
|
|
compiler $ARGV[0], $shorewall_dir, $verbose, $options, $chains, $log , $log_verbose;
|