#!/bin/env tclsh
package require json
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 FROM titles WHERE played ISNULL AND ignore = 0}]
set played [db eval {SELECT name,href,played FROM titles WHERE played NOTNULL AND ignore = 0}]
puts ""
puts ""
puts ""
puts " "
puts " Game Stats"
puts ""
puts ""
puts " Unplayed Games
"
puts " "
foreach {name href} $unplayed {
puts " - $name
"
}
puts "
"
puts " Played Games
"
puts " "
foreach {name href played} $played {
puts " - $name - played
$played "
}
puts "
"
puts ""
puts ""