#!/PublicDomain/bin/tclsh

global dd_systems, dd_nodes
global env

set dd_systems ""
set dd_nodes ""
set fp [open $env(DDD_CONFIGURATION_FILE)]
while { [gets $fp line] >= 0 } {
	set comment_line [ regexp {#} $line]
	if { $comment_line == 0 } {
		set dd_systems "$dd_systems [lindex $line 0]"
		set dd_nodes   "$dd_nodes   [lindex $line 1]"
	}
}


set nlist [llength $dd_systems]
for {set i 0} {$i< $nlist} {incr i 1} {
	puts "[lindex $dd_systems $i] on node [lindex $dd_nodes $i]"
	set dd_sys [lindex $dd_systems $i]
	set node   [lindex $dd_nodes $i]	

	set dd_file "/tmp/dd_system.$dd_sys.*"
	set err [ catch { set dd_status [exec rsh $node "cat $dd_file"]} ]
	if { $err == 0 } { puts $dd_status}
}
