13 lines
256 B
Tcl
13 lines
256 B
Tcl
#!/usr/bin/tclsh
|
|
source config/rack.list
|
|
set result [list]
|
|
foreach {rack nodes} $racklist {
|
|
catch {
|
|
lassign [split [dict get $nodes _cc] :] host
|
|
lappend result "\"$rack\": \"$host\""
|
|
}
|
|
}
|
|
set sep {,
|
|
}
|
|
puts stdout "{\n [join $result $sep]\n}"
|