--- loncom/lciptables 2010/03/25 01:28:34 1.2 +++ loncom/lciptables 2010/10/12 10:17:10 1.3 @@ -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 @@ print "In lciptables\n" unless $noprint; # ----------------------------- 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 @@ unless (&try_to_lock("/tmp/lock_lciptabl my $lond_port = &LONCAPA::Firewall::get_lond_port(); -($>,$<)=($wwwid,0); + &EnableRoot(); my @fw_chains = &LONCAPA::Firewall::get_fw_chains();