/pliant/appli/cluster/database.pli
1	submodule "/pliant/storage/database.pli"
2
3	public
4
5	type ClusterPath
6	field Str src dest
7
8	type ClusterArea
9	field Str label
10	field Str comment
11
12	field Set:Void src_computer
13	field Set:Void dest_computer
14	field Set:Str module
15
16	field Set:ClusterPath file_path
17	field Int file_sign_limit <- 2^12
18	field Str src_file_filter dest_file_filter
19
20	field Set:ClusterPath data_path
21	field Int data_sign_limit <- 2^16
22	field Str src_data_filter dest_data_filter
23
24	field Str mode # 'count' 'append' 'modify' 'delete'
25	field Float frequency <- undefined
26	field Str time_filter
27	field Str post_process
28
29	field Float timeout <- undefined
30	field Bool clear <- false
31
32	field Char status <- " " # ' ' sleeping, 'R' running
33	field DateTime start stop
34	field Str error
35
36	field Int file_total_count <- undefined ; field Intn file_total_size <- undefined
37	field Int file_append_count <- undefined ; field Intn file_append_size <- undefined
38	field Int file_modified_count  <- undefined; field Intn file_modified_size <- undefined
39	field Int file_deleted_count <- undefined ; field Intn file_deleted_size <- undefined
40
41	field Int data_total <- undefined
42	field Int data_append <- undefined
43	field Int data_modified <- undefined
44	field Int data_deleted <- undefined
45
46	type ClusterDatabase
47	field Set:ClusterArea area
48
49	(gvar Database:ClusterDatabase cluster_database) load "security:/cluster.pdb" mount "/pliant/cluster"
50
51	function cluster_init
52	each area cluster_database:data:area
53	if area:status<>" "
54	area status := " "
55	cluster_init