svn commit: r1569070 - /vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm

[fapeeler]

Author: fapeeler
Date: Mon Feb 17 18:29:19 2014
New Revision: 1569070

URL: http://svn.apache.org/r1569070
Log:
VCL-748

commented out the call to etc services
it was only informational to this point and causing an issue


Modified:
    vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm

Modified: vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
URL: 
http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm?rev=1569070&r1=1569069&r2=1569070&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm Mon Feb 17 18:29:19 2014
@@ -3652,19 +3652,19 @@ sub get_firewall_configuration {
                                $port = "any";
                        }
                        
-                       my $services_cmd = "cat /etc/services";
-                       my ($services_status, $service_output) = 
$self->execute($services_cmd, 0);
-                       if (!defined($service_output)) {
-                               notify($ERRORS{'DEBUG'}, 0, "failed to get 
/etc/services");
-                       }
-                       else {
-                               for my $sline (@$service_output) {
-                                       if ($sline =~ 
/(^[_-a-zA-Z1-9]+)\s+($port\/$protocol)\s+(.*) /ig) {
-                                               $name = $1;
-                                       }
-                               }
-                               
-                       }
+                       #my $services_cmd = "cat /etc/services";
+                       #my ($services_status, $service_output) = 
$self->execute($services_cmd, 0);
+                       #if (!defined($service_output)) {
+                       #       notify($ERRORS{'DEBUG'}, 0, "failed to get 
/etc/services");
+                       #}
+                       #else {
+                       #       for my $sline (@$service_output) {
+                       #               if ($sline =~ 
/(^[_-a-zA-Z1-9]+)\s+($port\/$protocol)\s+(.*) /ig) {
+                       #                       $name = $1;
+                       #               }
+                       #       }
+                       #       
+                       #}
                        
                        $name = $port if (!$name);