loncom/configuration/Firewall.pm - diff

Return to Firewall.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.11, 2011/05/15 00:49:41	version 1.12, 2013/02/08 14:55:12
Line 35 package LONCAPA::Firewall;	Line 35 package LONCAPA::Firewall;
use strict;	use strict;
use lib '/home/httpd/perl/lib';	use lib '/home/httpd/perl/lib';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use LONCAPA;

sub firewall_open_port {	sub firewall_open_port {
my ($iptables,$fw_chains,$lond_port,$iphost,$ports) = @_;	my ($iptables,$fw_chains,$lond_port,$iphost,$ports) = @_;
Line 375 sub get_lond_port {	Line 376 sub get_lond_port {

sub get_fw_chains {	sub get_fw_chains {
my ($iptables) = @_;	my ($iptables) = @_;
my $distro;	my $distro = &LONCAPA::distro();
if (open(PIPE,"/home/httpd/perl/distprobe\|")) {
$distro = <PIPE>;
close(PIPE);
}
my @fw_chains;	my @fw_chains;
my $suse_config = "/etc/sysconfig/SuSEfirewall2";	my $suse_config = "/etc/sysconfig/SuSEfirewall2";
my $ubuntu_config = "/etc/ufw/ufw.conf";	my $ubuntu_config = "/etc/ufw/ufw.conf";