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

Fix callss to new messaging functions

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@4006 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
paulgear 2006-06-07 05:29:52 +00:00
parent 2437ec6e4f
commit 76e15b17a9
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
contrib/shoregen/shoregen
View File

@ -1,13 +1,11 @@
#!/usr/bin/perl -w
#
# $Id: shoregen,v 1.27 2004/04/24 12:31:18 paulgear Exp $
#
# Generate shorewall configuration for a host from central configuration
# files.
# shoregen: Generate shorewall configuration for a host from central
# configuration files.
#
#
# (c) Copyright 2004 Paul D. Gear <paul@gear.dyndns.org>
# (c) Copyright 2004-2006 Paul D. Gear <paul@gear.dyndns.org>
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
@ -198,12 +196,12 @@ close $infile;
# The firewall name must be defined
unless (defined $fw) {
fatal 1, "Can't find firewall name (FW variable) for $host in $dir/shorewall.conf";
fatal "Can't find firewall name (FW variable) for $host in $dir/shorewall.conf";
}
# Router must be defined
unless (defined $router) {
fatal 1, "Can't find IP_FORWARDING setting for $host in $dir/shorewall.conf";
fatal "Can't find IP_FORWARDING setting for $host in $dir/shorewall.conf";
}
if ($router =~ m/On|Yes/i) {
$router = 1;
@ -215,7 +213,7 @@ print "fw=$fw, router=$router\n" if $DEBUG > 3;
# Find all valid zones
unless (-r "zones") {
fatal 2, "You must provide a global zone file";
fatal "You must provide a global zone file";
}
@ -295,7 +293,7 @@ $hostzones{$fw} = 1;
$conf = "policy";
if (! -r $conf) {
fatal 3, "You must provide a global \"$conf\" file";
fatal "You must provide a global \"$conf\" file";
}
open( $outfile, ">$dir/$conf" ) or
@ -338,7 +336,7 @@ close $outfile or warn "Can't close $dir/$conf for writing: $!";
$conf = "rules";
if (! -r $conf) {
fatal 4, "You must provide a global \"$conf\" file";
fatal "You must provide a global \"$conf\" file";
}
open( $outfile, ">$dir/$conf" ) or