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

Fix shell-variable creation

Browse Source
This commit is contained in:
Tom Eastep 2010-08-28 14:48:47 -07:00
parent d8846b92d8
commit 3a36a9de4b
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Shorewall/Perl/Shorewall/Zones.pm
View File

@ -163,8 +163,10 @@ our %interfaces;
our @bport_zones;
our %ipsets;
our %physical;
our %basemap;
our $family;
our $have_ipsec;
our $baseseq;
use constant { FIREWALL => 1,
IP => 2,
@ -217,6 +219,8 @@ sub initialize( $ ) {
@bport_zones = ();
%ipsets = ();
%physical = ();
%basemap = ();
$baseseq = 0;
if ( $family == F_IPV4 ) {
%validinterfaceoptions = (arp_filter => BINARY_IF_OPTION,
@ -771,11 +775,32 @@ sub is_a_bridge( $ ) {
#
sub chain_base($) {
my $chain = $_[0];
$chain =~ s/^@/at_/;
$chain =~ tr/[.\-%@]/_/;
#
# Handle VLANs and wildcards
#
$chain =~ s/\+$//;
$chain;
$chain =~ tr/./_/;
if ( $chain =~ /^[0-9]/ || $chain =~ /[^\w]/ ) {
#
# Not valid variable name
#
if ( $basemap{$_[0]} ) {
#
# We've mapped this name previously
#
$basemap{$_[0]};
} else {
#
# Must map. Remove all illegal characters
#
$chain =~ s/[^\w]//g;
$chain = join( '' , 'if_', $chain ) unless $chain =~ /^[a-zA-z]/;
$basemap{$_[0]} = join ( '_', $chain, ++$baseseq );
}
} else {
$chain;
}
}
#