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