--- loncom/loncron	2009/04/22 09:41:21	1.80
+++ loncom/loncron	2009/06/11 00:15:27	1.81
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.80 2009/04/22 09:41:21 www Exp $
+# $Id: loncron,v 1.81 2009/06/11 00:15:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -674,6 +674,24 @@ 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;