1 (* HCoop
Domtool (http
://hcoop
.sourceforge
.net
/)
2 * Copyright (c
) 2014 Clinton Ebadi
<clinton@unknownlamer
.org
>
4 * This program is free software
; you can redistribute it
and/or
5 * modify it under the terms
of the GNU General Public License
6 * as published by the Free Software Foundation
; either version
2
7 * of the License
, or (at your option
) any later version
.
9 * This program is distributed
in the hope that it will be useful
,
10 * but WITHOUT ANY WARRANTY
; without even the implied warranty
of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
. See the
12 * GNU General Public License for more details
.
14 * You should have received a copy
of the GNU General Public License
15 * along
with this program
; if not
, write to the Free Software
16 * Foundation
, Inc
., 51 Franklin Street
, Fifth Floor
, Boston
, MA
02110-1301, USA
.
19 (* Configuration Value Queries
*)
21 (* Not entirely clear what belongs here
and what belongs
in
24 Proposed dividing line
: whatever can be deduced from the static
25 configuration can be queried
with domtool
-config
, anything that
26 requires acessing the daemons goes through domtool
-admin
.
29 fun println x
= (print x
; print
"\n")
32 (case CommandLine
.arguments () of
33 ("-path" :: path
) => (case path
of
34 ["shared-root"] => println Config
.sharedRoot
35 |
["local-root"] => println Config
.localRoot
36 |
["install-prefix"] => println Config
.installPrefix
37 |
["cert", path
] => (case path
of
38 "ca" => println Config
.caDir
39 |
"certs" => println Config
.certDir
40 |
"keys" => println Config
.keyDir
41 |
"truststore" => println Config
.trustStore
42 | _
=> println
"Invalid cert path type")
43 | _
=> print
"Invalid path type\n")
44 |
["-nodes"] => (app (fn (n
, _
) => (print n
; print
" ")) Config
.nodeIps
;
46 |
["-domain"] => println Config
.defaultDomain
47 | _
=> print
"Invalid command-line arguments\n")