Code:

namespace eval logurl {variable db "urldb.db3"setudef flag logurlpackage require sqlite3proc db.open {} {sqlite3 ::logurl::cnx $::logurl::db}proc db.close {} {::logurl::cnx close}proc init {} {::logurl::db.open::logurl::cnx eval {CREATE TABLE IF NOT EXISTS logurl (url TEXT, nick TEXT, firstview DATETIME, cpt INTEGER)}::logurl::cnx eval {CREATE INDEX IF NOT EXISTS iurl ON logurl(url)}::logurl::db.close}bind pubm - * ::logurl::loggerproc logger {nick uhost handle chan text} {if {[isbotnick $nick] } { return }if {![channel get $chan logurl]} { return }if {[regexp -- {(https?:\/\/[^[:space:]]+)} $text match url]} {::logurl::db.openset already [::logurl::cnx eval {SELECT nick, firstview, cpt FROM logurl WHERE url=$url}]putlog $alreadyif {[llength $already]>0} {set unick [lindex $already 0]set dt [lindex $already 1]set cpt [lindex $already 2]incr cptputserv "PRIVMSG $chan :\002$url\002 has already been announced by $unick on [clock format $dt -format "%m-%d-%Y"] and was given $cpt times"::logurl::cnx eval {UPDATE logurl SET cpt=$cpt WHERE url=$url}} else {::logurl::cnx eval {INSERT INTO logurl (url, nick, firstview, cpt) VALUES ($url, $nick, strftime('%s','now'), 1)}}::logurl::db.close}}::logurl::init}