proc load_setup {fpath} {
# restore ../log/default_status.tcl
  if {[file exists $fpath] == 0} {
    clientput "WARNING: Environment configuration file $fpath doesn't exist"
    return
  }
  set ch [open $fpath r]
    set setup [read $ch]
    foreach {s f} $setup {
      if {$f} {
        set fn config/setup/${s}_setup.tcl
          fileeval $fn
      }
    }
}