[LON-CAPA-cvs] cvs: loncom /configuration Firewall.pm

[raeburn]

raeburn		Sat May 14 22:34:12 2011 EDT

  Modified files:              
    /loncom/configuration	Firewall.pm 
  Log:
  - Explicit path to distprobe as Firewall.pm is called by lciptables (setuid).  
  
  
Index: loncom/configuration/Firewall.pm
diff -u loncom/configuration/Firewall.pm:1.9 loncom/configuration/Firewall.pm:1.10
--- loncom/configuration/Firewall.pm:1.9	Tue Apr 26 03:43:17 2011
+++ loncom/configuration/Firewall.pm	Sat May 14 22:34:12 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Firewall configuration to allow internal LON-CAPA communication between servers   
 #
-# $Id: Firewall.pm,v 1.9 2011/04/26 03:43:17 raeburn Exp $
+# $Id: Firewall.pm,v 1.10 2011/05/14 22:34:12 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -369,16 +369,10 @@
 
 sub get_fw_chains {
     my ($iptables) = @_;
-    my $perlvarref=&LONCAPA::Configuration::read_conf();
     my $distro;
-    if (ref($perlvarref) eq 'HASH') {
-        my $path = $perlvarref->{'lonDaemons'};
-        if ($path) {
-            if (open(PIPE,"$path/distprobe|")) {
-                $distro = <PIPE>;
-                close(PIPE);
-            }
-        }
+    if (open(PIPE,"/home/httpd/perl/distprobe|")) {
+        $distro = <PIPE>;
+        close(PIPE);
     }
     my @fw_chains;
     my $suse_config = "/etc/sysconfig/SuSEfirewall2";