#!/usr/bin/tclsh

#
# pui-dumpdb: dump the fields from any .pui file
#
# THIS IS SAMPLE CODE ONLY
#
# Copyright (c) 1996, Scotter <scotter@iname.com>
#
# This is free software, licensed under the GNU Public License V2.
#

if [llength $argv] {

  set filename [lindex $argv 0]

  load tclpui.so

  set puidb [puiOpen $filename]
  puts "Database: [puiName $puidb]"
  puts "Database File Version: [puiVersion $puidb]"
  foreach id [puiList $puidb] {
    puiRead $puidb $id record
    puts "--------"
    puts "ID: $id"
    # Output in whatever order array names returns.
    foreach elem [array names record] {
      puts "$elem: $record($elem)"
    }
  }
  puiClose $puidb

}

exit 0
