#!/usr/bin/tclsh

#
# pui-dumptodos: dump the todos from a ToDoDB.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] == 1} {

  set filename [lindex $argv 0]
  load tclpui.so
  set puidb [puiOpen $filename]
  puts "ToDo's in $filename:"
  foreach id [puiList $puidb] {
    puts "reading $id..."
    puiRead $puidb $id record
    if {$record(indefinite) == 0} {
      set formattime [clock format $record(due)]
    } {
      set formattime "unspecified"
    }
    puts " -----------"
    puts "         ID: $id"
    puts " indefinite: $record(indefinite)"
    puts "        due: $record(due) ($formattime)"
    puts "   priority: $record(priority)"
    puts "   complete: $record(complete)"
    puts "description: $record(description)"
    puts "       note: $record(note)"
  }
  puiClose $puidb

}

exit 0
