mirror of
https://gitlab.com/shorewall/code.git
synced 2024-11-15 04:04:10 +01:00
66c8c0a766
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6519 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
59 lines
2.0 KiB
Perl
Executable File
59 lines
2.0 KiB
Perl
Executable File
#! /usr/bin/perl -w
|
|
#
|
|
# The Shoreline Firewall4 (Shorewall-perl) Packet Filtering Firewall Compiler - V4.0
|
|
#
|
|
# This program is under GPL [http://www.gnu.org/copyleft/gpl.htm]
|
|
#
|
|
# (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., 675 Mass Ave, Cambridge, MA 02139, USA
|
|
#
|
|
# See usage() function below for command line syntax.
|
|
#
|
|
use strict;
|
|
use lib '/usr/share/shorewall-perl';
|
|
use Shorewall::Config qw( fatal_error );
|
|
use Shorewall::Compiler;
|
|
use Getopt::Long;
|
|
|
|
sub usage() {
|
|
print STDERR "usage: compiler.pl [ --export ] [ --directory=<directory> ] [ --verbose={0-2} ] [ --timestamp ] [ <filename> ]\n";
|
|
exit 1;
|
|
}
|
|
#
|
|
# E x e c u t i o n S t a r t s H e r e
|
|
#
|
|
Getopt::Long::Configure ('bundling');
|
|
|
|
my $result = GetOptions('export' => \$Shorewall::Compiler::export,
|
|
'e' => \$Shorewall::Compiler::export,
|
|
'directory=s' => \$Shorewall::Config::shorewall_dir,
|
|
'd=s' => \$Shorewall::Config::shorewall_dir,
|
|
'verbose=i' => \$Shorewall::Common::verbose,
|
|
'v=i' => \$Shorewall::Common::verbose,
|
|
'timestamp' => \$Shorewall::Common::timestamp,
|
|
't' => \$Shorewall::Common::timestamp );
|
|
|
|
usage unless $result;
|
|
|
|
if ( $Shorewall::Config::shorewall_dir ne '' ) {
|
|
fatal_error "$Shorewall::Config::shorewall_dir is not an existing directory" unless -d $Shorewall::Config::shorewall_dir;
|
|
}
|
|
|
|
usage unless @ARGV < 2;
|
|
|
|
compiler $ARGV[0];
|