loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

-version 1.80, 2009/04/22 09:41:21
+version 1.81, 2009/06/11 00:15:27
  Line 674  sub main () {
      &Apache::lonnet::load_domain_tab(1);
      &Apache::lonnet::get_iphost(1);
+ # ----------------------------------------- Force firewall update for lond port
+     if ((!$justcheckdaemons) && (!$justreload)) {
+         my $now = time;
+         my $tmpfile = $perlvar{'lonDaemons'}.'/tmp/lciptables_iphost_'.
+                       $now.$$.int(rand(10000));
+         if (open(my $fh,">$tmpfile")) {
+             my %iphosts = &Apache::lonnet::get_iphost();
+             foreach my $key (keys(%iphosts)) {
+                 print $fh "$key\n";
+             }
+             close($fh);
+             my $execpath = $perlvar{'lonDaemons'}.'/lciptables';
+             system("$execpath $tmpfile");
+             unlink($fh);
+         }
+     }
  # ---------------------------------------------------------------- Start report
      $errors=0;