2004-02-09 [VI]

A tcl script to print out who all have been replied to 
by your "vacation" program and the last time that a reply
went to them.  This is based on the simple berkeley [dbm]
package elsewhere on this wiki.

 load dbm.so
 dbm init /users/venkat/.vacation

 set k [dbm first]

 while {1} {
     set t [dbm fetch $k]
     binary scan $t I time
     puts "[clock format  $time -format %Y/%m/%d.%H.%M.%S] [string trim $k "\0"]"
     if [catch {set k [dbm next $k]}] break
 }

 dbm close