extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-20 17:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Eliminate some symbol importing

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6519 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-11 21:42:58 +00:00
parent 8df08b44e0
commit 66c8c0a766
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Shorewall-perl/compiler.pl
View File

@ -1,6 +1,6 @@
#! /usr/bin/perl -w #! /usr/bin/perl -w
# #
# The Shoreline Firewall4 (Shorewall-perl) Packet Filtering Firewall Compiler - V3.9 # The Shoreline Firewall4 (Shorewall-perl) Packet Filtering Firewall Compiler - V4.0
# #
# This program is under GPL [http://www.gnu.org/copyleft/gpl.htm] # This program is under GPL [http://www.gnu.org/copyleft/gpl.htm]
# #
@ -25,31 +25,32 @@
# #
use strict; use strict;
use lib '/usr/share/shorewall-perl'; use lib '/usr/share/shorewall-perl';
use Shorewall::Common qw/ $verbose $timestamp /; use Shorewall::Config qw( fatal_error );
use Shorewall::Config qw/ fatal_error $shorewall_dir /; use Shorewall::Compiler;
use Shorewall::Compiler qw/ compiler $export /;
use Getopt::Long; use Getopt::Long;
sub usage() { sub usage() {
print STDERR "usage: compiler.pl [ --export ] [ --directory=<directory> ] [ --verbose={0-2} ] [ --timestamp ] [ <filename> ]\n"; print STDERR "usage: compiler.pl [ --export ] [ --directory=<directory> ] [ --verbose={0-2} ] [ --timestamp ] [ <filename> ]\n";
exit 1; 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'); Getopt::Long::Configure ('bundling');
my $result = GetOptions('export' => \$export, my $result = GetOptions('export' => \$Shorewall::Compiler::export,
'e' => \$export, 'e' => \$Shorewall::Compiler::export,
'directory=s' => \$shorewall_dir, 'directory=s' => \$Shorewall::Config::shorewall_dir,
'd=s' => \$shorewall_dir, 'd=s' => \$Shorewall::Config::shorewall_dir,
'verbose=i' => \$verbose, 'verbose=i' => \$Shorewall::Common::verbose,
'v=i' => \$verbose, 'v=i' => \$Shorewall::Common::verbose,
'timestamp' => \$timestamp, 'timestamp' => \$Shorewall::Common::timestamp,
't' => \$timestamp ); 't' => \$Shorewall::Common::timestamp );
usage unless $result; usage unless $result;
if ( $shorewall_dir ne '' ) { if ( $Shorewall::Config::shorewall_dir ne '' ) {
fatal_error "$shorewall_dir is not an existing directory" unless -d $shorewall_dir; fatal_error "$Shorewall::Config::shorewall_dir is not an existing directory" unless -d $Shorewall::Config::shorewall_dir;
} }
usage unless @ARGV < 2; usage unless @ARGV < 2;