Diff for /loncom/lciptables between versions 1.2 and 1.3

version 1.2, 2010/03/25 01:28:34 version 1.3, 2010/10/12 10:17:10
Line 57  print "In lciptables\n" unless $noprint; Line 57  print "In lciptables\n" unless $noprint;
   
 # ----------------------------- Make sure this process is running from user=www  # ----------------------------- Make sure this process is running from user=www
 my $wwwid=getpwnam('www');  my $wwwid=getpwnam('www');
 &DisableRoot;  
 if ($wwwid!=$>) {  if ($wwwid!=$<) {
     print("User ID mismatch.  This program must be run as user 'www'\n")      print("User ID mismatch.  This program must be run as user 'www'\n")
         unless $noprint;          unless $noprint;
     &Exit(1);      &Exit(1);
 }  }
   
 # ----------------------------------- Retrieve IP addreses for hosts in cluster  # ----------------------------------- Retrieve IP addreses for hosts in cluster
 &DisableRoot;  
   
 my %iphost;  my %iphost;
 if (@ARGV != 1) {  if (@ARGV != 1) {
Line 97  unless (&try_to_lock("/tmp/lock_lciptabl Line 97  unless (&try_to_lock("/tmp/lock_lciptabl
   
 my $lond_port = &LONCAPA::Firewall::get_lond_port();  my $lond_port = &LONCAPA::Firewall::get_lond_port();
   
 ($>,$<)=($wwwid,0);  
 &EnableRoot();  &EnableRoot();
   
 my @fw_chains = &LONCAPA::Firewall::get_fw_chains();  my @fw_chains = &LONCAPA::Firewall::get_fw_chains();

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>