loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

-version 1.102, 2015/05/28 23:50:15
+version 1.103, 2015/09/20 18:31:21
  Line 921  sub main () {
      }
  # -------------------------------------------- Force reload of host information
-     &Apache::lonnet::load_hosts_tab(1);
+     my $nomemcache;
-     &Apache::lonnet::load_domain_tab(1);
+     if ($justcheckdaemons) {
-     &Apache::lonnet::get_iphost(1);
+         $nomemcache=1;
+         my $memcachepidfile="$perlvar{'lonDaemons'}/logs/memcached.pid";
+         my $memcachepid;
+         if (-e $memcachepidfile) {
+             my $memfh=IO::File->new($memcachepidfile);
+             $memcachepid=<$memfh>;
+             chomp($memcachepid);
+             if ($memcachepid =~ /^\d+$/ && kill 0 => $memcachepid) {
+                 undef($nomemcache);
+             }
+         }
+     }
+     &Apache::lonnet::load_hosts_tab(1,$nomemcache);
+     &Apache::lonnet::load_domain_tab(1,$nomemcache);
+     &Apache::lonnet::get_iphost(1,$nomemcache);
  # ----------------------------------------- Force firewall update for lond port