#!/bin/env tclsh
package require sqlite3
proc fatal {reason {code -1}} {
puts stderr "$argv0: fatal: $reason"
exit $code
}
proc usage {} {
global argv0
puts stderr "usage: $argv0 DB-PATH"
exit -1
}
if {[llength $argv] != 1} usage
set dbpath [lindex $argv 0]
if {[catch {sqlite3 db $dbpath -create false}]} {
fatal "can't open \"$dbpath\""
}
set unplayed [db eval {SELECT name,href,comment FROM titles WHERE played ISNULL AND ignore = 0}]
set played [db eval {SELECT name,href,played,comment FROM titles WHERE played NOTNULL AND ignore = 0}]
puts ""
puts ""
puts ""
puts " "
puts " Game Stats"
puts ""
puts ""
puts " Unplayed Games
"
puts " "
foreach {name href comment} $unplayed {
if {$comment == ""} {
puts " - $name
"
} else {
puts " - $name
$comment
"
}
}
puts "
"
puts " Played Games
"
puts " "
foreach {name href played comment} $played {
if {$comment == ""} {
puts " - $name - played
$played "
} else {
puts " - $name - played
$played$comment
"
}
}
puts "
"
puts ""
puts ""