/[libconf]/libconf/perl-Libconf/templates/pf_template.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/templates/pf_template.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dams, Mon Apr 21 17:11:12 2003 UTC revision 1.3 by logarno, Wed Apr 30 21:15:41 2003 UTC
# Line 37  $templates{pf} = { Line 37  $templates{pf} = {
37                                                 $atom->{values}{$regex} = $2;                                                 $atom->{values}{$regex} = $2;
38                                             }                                             }
39                                         }                                         }
40                                         foreach my $regex ('in|out', 'log', 'pass|block', 'quick', 'keep state', 'all') {                                         foreach my $regex ('in|out', 'log', 'pass|block|antispoof|scrub', 'quick', 'keep state', 'all') {
41                                             if ($in =~ s/\s*($regex)//) {                                             if ($in =~ s/\s*($regex)//) {
42                                                 $atom->{type} = 'VALUES_LIST';                                                 $atom->{type} = 'VALUES_LIST';
43                                                 $atom->{type2} = 'PF_RULE';                                                 $atom->{type2} = 'PF_RULE';
# Line 45  $templates{pf} = { Line 45  $templates{pf} = {
45                                                 push @{$atom->{list}}, $1;                                                 push @{$atom->{list}}, $1;
46                                             }                                             }
47                                         }                                         }
48                                         if ($in =~ s/\s*port\s+(\S+)\s+(\S+)//) {                                         if ($in =~ s/\s*port\s+{(.*)}//) {
49                                               $atom->{type} = 'VALUES_LIST';
50                                               $atom->{type2} = 'PF_RULE';
51                                               @{$atom->{port}} = split(/\s*,\s*/, $1);
52                                           }
53                                           elsif ($in =~ s/\s*port\s+(\S+)\s+(\S+)//) {
54                                             $atom->{type} = 'VALUES';                                             $atom->{type} = 'VALUES';
55                                             $atom->{type2} = 'PF_RULE';                                             $atom->{type2} = 'PF_RULE';
56                                             $atom->{values}{port} = $2;                                             $atom->{values}{port} = $2;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26