--- loncom/configuration/Firewall.pm 2011/04/26 03:43:17 1.9 +++ loncom/configuration/Firewall.pm 2011/05/14 22:34:12 1.10 @@ -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_lond_port { 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 = ; - close(PIPE); - } - } + if (open(PIPE,"/home/httpd/perl/distprobe|")) { + $distro = ; + close(PIPE); } my @fw_chains; my $suse_config = "/etc/sysconfig/SuSEfirewall2";