Changeset 11225

Timestamp:

08/17/08 20:45:47 (5 months ago)

Author:

/C=ES/O=Warp Networks S.L./CN=juruen@…

Message:

add support for ESP protocol in services and firewall

Location:

trunk/client

Files:

• firewall/ChangeLog (modified) (1 diff)
• firewall/src/EBox/Firewall/IptablesRule.pm (modified) (1 diff)
• services/ChangeLog (modified) (1 diff)
• services/src/EBox/Model/ServiceConfigurationTable.pm (modified) (3 diffs)

trunk/client/firewall/ChangeLog

@@ -5 +5 @@
         + Bugfix. Use #DEBHELPER# properly to be able to flush the firewall rules
           when the package is uninstalled
+        + Add support for ESP protocol
 0.11.102
         + Set editable attribute to 1 in Decision field. To comply with

trunk/client/firewall/src/EBox/Firewall/IptablesRule.pm

@@ -139 +139 @@
             }
 
-        } elsif ($protocol eq any ('gre', 'icmp')) {
+        } elsif ($protocol eq any ('gre', 'icmp', 'esp')) {
             $iptables = " -p $invProto $protocol";
             push (@{$self->{'service'}}, $iptables);

trunk/client/services/ChangeLog

@@ -3 +3 @@
         + Add help to fields in service model
         + Increase some field length
+        + Add support for ESP protocol
 0.11.102
         + Remove optional attribute from PortRange as it didn't make sense

trunk/client/services/src/EBox/Model/ServiceConfigurationTable.pm

@@ -44 +44 @@
 use EBox::Sudo;
 
+use Perl6::Junction qw( any );
 
 use strict;
@@ -79 +80 @@
                  'value' => 'udp',
                  'printableValue' => 'UDP'
+                 },
+                 {
+                 'value' => 'esp',
+                 'printableValue' => 'ESP'
                  },
                  {
@@ -152 +157 @@
         return unless (exists $parms->{'protocol'});
         my $type = $parms->{'protocol'}->value();
-        if ($type eq 'gre' or $type eq 'icmp' or $type eq 'any') {
+        if ($type eq any ('gre', 'icmp', 'esp') ) {
             my $source = $parms->{'source'};
             my $destination = $parms->{'destination'};