Patch title: Release 90 bulk changes
Abstract:
File: /appli/cluster/daemon.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "database.pli"
module "common.pli"
module "/pliant/protocol/dns/name.pli"
module "/pliant/util/remote/common.pli"
module "/pliant/util/encoding/html.pli"
module "/pliant/util/crypto/channel.pli"
module "/pliant/language/schedule/daemon.pli"
module "/pliant/admin/file.pli"


function cluster_daemon
  daemon "clustering daemon"
module "/pliant/language/compiler.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "database.pli"
module "common.pli"
module "/pliant/protocol/dns/name.pli"
module "/pliant/util/remote/common.pli"
module "/pliant/util/encoding/html.pli"
module "/pliant/util/crypto/channel.pli"
module "/pliant/language/schedule/daemon.pli"
module "/pliant/admin/file.pli"


function cluster_daemon
  daemon "clustering daemon"
    daemon_sleep 120
    while not daemon_emergency
      each area cluster_database:data:area filter (exists ar
        if area:status=" " and area:frequency=defined and da
          var Link:Function filter :> cluster_filter area "t
          time_filter_prototype (var CBool start) (var CBool
          if start and run
            area status := "R"
            thread
              part sync "synchronise area "+keyof:area
                cluster_sync keyof:area "" area:mode        
      daemon_sleep 15

export cluster_sync cluster_daemon
    while not daemon_emergency
      each area cluster_database:data:area filter (exists ar
        if area:status=" " and area:frequency=defined and da
          var Link:Function filter :> cluster_filter area "t
          time_filter_prototype (var CBool start) (var CBool
          if start and run
            area status := "R"
            thread
              part sync "synchronise area "+keyof:area
                cluster_sync keyof:area "" area:mode        
      daemon_sleep 15

export cluster_sync cluster_daemon