holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Correct icmp-type and icmpv6-type

Browse Source
This commit is contained in:
Tom Eastep 2011-09-19 10:05:58 -07:00
parent fd1e996fb1
commit 990d6e504d
1 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -446,31 +446,33 @@ use constant { UNIQUE => 1,
MATCH => 8, MATCH => 8,
CONTROL => 16 }; CONTROL => 16 };
my %opttype = ( rule => CONTROL, my %opttype = ( rule => CONTROL,
cmd => CONTROL, cmd => CONTROL,
dhcp => UNIQUE, dhcp => UNIQUE,
mode => CONTROL, mode => CONTROL,
cmdlevel => CONTROL, cmdlevel => CONTROL,
simple => CONTROL, simple => CONTROL,
i => UNIQUE, i => UNIQUE,
s => UNIQUE, s => UNIQUE,
o => UNIQUE, o => UNIQUE,
d => UNIQUE, d => UNIQUE,
p => UNIQUE, p => UNIQUE,
dport => UNIQUE, dport => UNIQUE,
sport => UNIQUE, sport => UNIQUE,
'icmp-type' => UNIQUE,
'icmpv6-type' => UNIQUE,
comment => CONTROL, comment => CONTROL,
policy => MATCH, policy => MATCH,
state => EXCLUSIVE, state => EXCLUSIVE,
jump => TARGET, jump => TARGET,
target => TARGET, target => TARGET,
targetopts => TARGET, targetopts => TARGET,
); );
my %aliases = ( protocol => 'p', my %aliases = ( protocol => 'p',
@ -482,9 +484,11 @@ my %aliases = ( protocol => 'p',
'out-interface' => 'o', 'out-interface' => 'o',
dport => 'dport', dport => 'dport',
sport => 'sport', sport => 'sport',
'icmp-type' => 'icmp-type',
'icmpv6-type' => 'icmpv6-type',
); );
my @unique_options = ( qw/p dport sport s d i o/ ); my @unique_options = ( qw/p dport sport icmp-type icmpv6-type s d i o/ );
# #
# Rather than initializing globals in an INIT block or during declaration, # Rather than initializing globals in an INIT block or during declaration,