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

[foxr]

foxr		Tue Oct 12 10:17:10 2010 EDT

  Modified files:              
    /loncom	lciptables 
  Log:
  I think this will now work in fc13 but not sure how to test it well.
  
  
Index: loncom/lciptables
diff -u loncom/lciptables:1.2 loncom/lciptables:1.3
--- loncom/lciptables:1.2	Thu Mar 25 01:28:34 2010
+++ loncom/lciptables	Tue Oct 12 10:17:10 2010
@@ -2,7 +2,7 @@
 #
 # The Learning Online Network with CAPA
 #
-# $Id: lciptables,v 1.2 2010/03/25 01:28:34 raeburn Exp $
+# $Id: lciptables,v 1.3 2010/10/12 10:17:10 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -57,15 +57,15 @@
 
 # ----------------------------- Make sure this process is running from user=www
 my $wwwid=getpwnam('www');
-&DisableRoot;
-if ($wwwid!=$>) {
+
+if ($wwwid!=$<) {
     print("User ID mismatch.  This program must be run as user 'www'\n")
         unless $noprint;
     &Exit(1);
 }
 
 # ----------------------------------- Retrieve IP addreses for hosts in cluster
-&DisableRoot;
+
 
 my %iphost;
 if (@ARGV != 1) {
@@ -97,7 +97,7 @@
 
 my $lond_port = &LONCAPA::Firewall::get_lond_port();
 
-($>,$<)=($wwwid,0);
+
 &EnableRoot();
 
 my @fw_chains = &LONCAPA::Firewall::get_fw_chains();