examples/hconfig.tcl

   1 #!/usr/bin/tclsh
   2
   3 source "boilerplate.tcl"
   4
   5 wm withdraw .
   6
   7 package require Pg_sql
   8
   9 pg_sql::Pg_sql sql -dbname "gump"
  10
  11 Hconfig hcfg pg_sql [list sql "hconfig"]
  12
  13 hcfg save "users" {attribs {forex.class dealer}} {perms mergelist permset mergelist prefs mergearray prefset mergelist attribs mergearray attribset mergelist}
  14 hcfg save "svcs" {} {perms mergelist permset mergelist prefs mergearray prefset mergelist attribs mergearray attribset mergelist}
  15 array set uinfo [hcfg load "/users/nett/cyan"]
  16 parray uinfo
  17
  18 exit