Code:

setudef str notesbind pub - .note pub_notebind join - pub_note_checkbind pubm - pub_note_bindproc pub_note {n u h c a} {set notes [channel get $c notes]set m [join [lrange [split $a] 1 end]]set t [lindex [split $a] 0]lappend notes $t\n$m\n[clock seconds]\n$nchannel set $c notes $notesputnotc $n "Note was sent."}proc pub_note_check {n c} {set notes [channel get $c notes]set start 0while {[set idx [lsearch -start $start -glob [string tolower $notes] "[string tolower $n]\n*"]] > -1} {foreach {t m c f} [split [lindex $notes $idx] \n] { break }putmsg $c "$n: $f left a note [duration [expr {[clock seconds] - $c}]] $m"set notes [lreplace $notes $idx $idx]set start [incr idx -1]}channel set $c notes $notes}proc pub_note_bind {n u h c args} {pub_note_check $n $c}

Code:

package require sqlite3sqlite3 notesdb pubnotes.dbnotesdb eval {CREATE TABLE IF NOT EXISTS notes (from TEXT, time INTEGER, to TEXT, message TEXT}bind pub - .note pub_notebind join - pub_note_joinbind pubm - pub_note_bindproc pub_note {n u h c a} {    set m [join [lassign [split $a] t]]    set time [clock seconds]    notesdb eval {INSERT INTO notes VALUES ($n, $time, $t, $m)}    putnotc $n "Note was send."}proc pub_note_check {n c} {    set notes [channel get $c notes]    notesdb eval {SELECT * FROM notes WHERE to = $n} {        putmsg $c "$to: $from left a note [duration [expr {[clock seconds] - $time}]] ago: $message"    }    notesdb eval {DELETE FROM notes WHERE to = $n}}proc pub_note_bind {n u h c args} {pub_note_check $n $c}

Code:

setudef str notesbind pub - .note pub_notebind join - pub_note_joinbind pubm - pub_note_bindproc pub_note {n u h c a} {    set notes [channel get $c notes]    set m [lassign [split $a] t]     dict lappend notes $t [list message $m time [clock seconds] from $n]    channel set $c notes $notes    putnotc $n "Note was send."}proc pub_note_check {n c} {    set notes [channel get $c notes]    if {[dict exists $notes $n]} {         foreach m [dict get $notes $n] {            putmsg $c "$n: [dict get $m from] left a note [duration [expr {[clock seconds] - [dict get $m time]}]] ago: [dict get $m message]"          }          dict unset notes $n          channel set $c notes $notes    }}proc pub_note_bind {n u h c args} {pub_note_check $n $c}