#!/usr/bin/tclsh

#
# pui-names: dump the names from an AddressDB.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.
#

# Same as "names" but uses First/Next iterators rather than list.

if [llength $argv] {

  set filename [lindex $argv 0]
  load tclpui.so
  set puidb [puiOpen $filename]
  set id [puiFirst $puidb]
  while {$id != 0} {
    puiRead $puidb $id record
    if {("$record(lastname)" == "") && ("$record(firstname)" == "")} {
      puts $record(company)
    } {
      puts "$record(lastname), $record(firstname)"
    }
    set id [puiNext $puidb $id]
  }

}

exit 0
