extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-08-12 09:15:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Generate error if no ipv4 zones or no interfaces

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7931 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep
2007-12-18 23:55:20 +00:00
parent de449ad878
commit c58f3c7eca
4 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall-perl/Shorewall/Compiler.pm
View File

@ -710,7 +710,7 @@ EOF
sub compiler {
my ( $objectfile, $directory, $verbosity, $timestamp , $debug, $chains , $log , $log_verbosity ) =
( '', '', -1, '', 0, '', '', -1 );
( '', '', -1, '', 0, '', '', -1 );
$export = 0;
$test = 0;
@ -725,7 +725,7 @@ sub compiler {
defined($val) && ($val >= -1) && ($val < 3);
}
my %elbat = ( object => { store => \$objectfile },
my %parms = ( object => { store => \$objectfile },
directory => { store => \$directory },
verbosity => { store => \$verbosity , edit => \&edit_verbosity } ,
timestamp => { store => \$timestamp, edit => \&edit_boolean } ,
@ -738,7 +738,7 @@ sub compiler {
);
while ( defined ( my $name = shift ) ) {
fatal_error "Unknown parameter ($name)" unless my $ref = $elbat{$name};
fatal_error "Unknown parameter ($name)" unless my $ref = $parms{$name};
fatal_error "Undefined value supplied for parameter $name" unless defined ( my $val = shift ) ;
if ( $ref->{edit} ) {
fatal_error "Invalid value ( $val ) supplied for parameter $name" unless $ref->{edit}->($val);