--- loncom/lciptables 2009/06/11 00:15:27 1.1 +++ loncom/lciptables 2010/03/25 01:28:34 1.2 @@ -2,7 +2,7 @@ # # The Learning Online Network with CAPA # -# $Id: lciptables,v 1.1 2009/06/11 00:15:27 raeburn Exp $ +# $Id: lciptables,v 1.2 2010/03/25 01:28:34 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -100,14 +100,14 @@ my $lond_port = &LONCAPA::Firewall::get_ ($>,$<)=($wwwid,0); &EnableRoot(); -my $fw_chain = &LONCAPA::Firewall::get_fw_chain(); +my @fw_chains = &LONCAPA::Firewall::get_fw_chains(); my $iptables = &LONCAPA::Firewall::get_pathto_iptables(); my $firewall_result = - &LONCAPA::Firewall::firewall_close_port($iptables,$fw_chain,$lond_port,[$lond_port]); + &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,$lond_port,[$lond_port]); if ($firewall_result) { print "$firewall_result\n"; } -my $firewall_result = &LONCAPA::Firewall::firewall_open_port($iptables,$fw_chain,$lond_port,\%iphost,[$lond_port]); +my $firewall_result = &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]); if ($firewall_result) { print "$firewall_result\n"; }