130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
servermod
processmod
pgdb
mtmod
megatestmod
)
(include "task_records.scm")
;; (include "db_records.scm")
;;======================================================================
;; Tasks db
;;======================================================================
(define (tasks:get-task-db-path)
(let ((dbdir (or (configf:lookup *configdat* "setup" "monitordir")
(configf:lookup *configdat* "setup" "dbdir")
|
<
<
<
|
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
servermod
processmod
pgdb
mtmod
megatestmod
)
;;======================================================================
;; Tasks db
;;======================================================================
(define (tasks:get-task-db-path)
(let ((dbdir (or (configf:lookup *configdat* "setup" "monitordir")
(configf:lookup *configdat* "setup" "dbdir")
|