[LON-CAPA-cvs] cvs: loncom / lciptables

[raeburn]

raeburn		Thu Mar 25 01:28:34 2010 EDT

  Modified files:              
    /loncom	lciptables 
  Log:
  - Second arg passed to:
      Firewall::firewall_close_port()
      Firewall::firewall_open_port()
  is now a reference to an array of chains (as one or both of:
      RH-Firewall-1-INPUT and INPUT may contain entries for LON-CAPA port. 
  
  
Index: loncom/lciptables
diff -u loncom/lciptables:1.1 loncom/lciptables:1.2
--- loncom/lciptables:1.1	Thu Jun 11 00:15:27 2009
+++ loncom/lciptables	Thu Mar 25 01:28:34 2010
@@ -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 @@
 ($>,$<)=($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";
 }