Patch title: Release 94 bulk changes
Abstract:
File: /pliant/appli/cluster/database.pli
Key:
    Removed line
    Added line
submodule "/pliant/appli/database.pli"
submodule "/pliant/storage/database.pli"

public

  type ClusterPath
    field Str src dest

  type ClusterArea
    field Str label
    field Str comment

    field Set:Void src_computer
    field Set:Void dest_computer
    field Set:Str module

    field Set:ClusterPath file_path
    field Int file_sign_limit <- 2^12
    field Str src_file_filter dest_file_filter

    field Set:ClusterPath data_path
    field Int data_sign_limit <- 2^16
    field Str src_data_filter dest_data_filter

    field Str mode # 'count' 'append' 'modify' 'delete'
    field Float frequency <- undefined
    field Str time_filter
    field Str post_process

    field Float timeout <- undefined
    field Bool clear <- false

    field Char status <- " " # ' ' sleeping, 'R' running
    field DateTime start stop
    field Str error

    field Int file_total_count <- undefined ; field Intn file_total_size <- undefined
    field Int file_append_count <- undefined ; field Intn file_append_size <- undefined
    field Int file_modified_count  <- undefined; field Intn file_modified_size <- undefined
    field Int file_deleted_count <- undefined ; field Intn file_deleted_size <- undefined

    field Int data_total <- undefined
    field Int data_append <- undefined
    field Int data_modified <- undefined
    field Int data_deleted <- undefined

  type ClusterDatabase
    field Set:ClusterArea area
  
  (gvar Database:ClusterDatabase cluster_database) load "security:/cluster.pdb" mount "/pliant/cluster"

function cluster_init
  each area cluster_database:data:area
    if area:status<>" "
      area status := " "
cluster_init