loncom/configuration/Firewall.pm - diff

Return to Firewall.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.9, 2011/04/26 03:43:17	version 1.10, 2011/05/14 22:34:12
Line 369 sub get_lond_port {	Line 369 sub get_lond_port {

sub get_fw_chains {	sub get_fw_chains {
my ($iptables) = @_;	my ($iptables) = @_;
my $perlvarref=&LONCAPA::Configuration::read_conf();
my $distro;	my $distro;
if (ref($perlvarref) eq 'HASH') {	if (open(PIPE,"/home/httpd/perl/distprobe\|")) {
my $path = $perlvarref->{'lonDaemons'};	$distro = <PIPE>;
if ($path) {	close(PIPE);
if (open(PIPE,"$path/distprobe\|")) {
$distro = <PIPE>;
close(PIPE);
}
}
}	}
my @fw_chains;	my @fw_chains;
my $suse_config = "/etc/sysconfig/SuSEfirewall2";	my $suse_config = "/etc/sysconfig/SuSEfirewall2";