#!/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 GAME-URL ?GAME-URL ...?"
  exit -1
}
if {[llength $argv] < 2} usage
set gameurls [lassign $argv dbpath]


if {[catch {sqlite3 db $dbpath -create false}]} {
  fatal "can't open \"$dbpath\""
}


foreach url $gameurls {
  if {![db exists {SELECT * FROM titles WHERE href = :url}]} {
    puts stderr "game not in database: $url"
    continue
  }
  db eval {
    UPDATE titles SET played = NULL
      WHERE href = :url
  }
}