Code:

# no / at the end.set folder ~/my/texts/here# triggerset trigger $bind PUB -|- ${trigger}search  pub:searchbind PUB -|- ${trigger}display  pub:spewproc pub:search {n u h c t} {  global folder  set results [lrange [glob -nocomplain $folder/[lindex [split $t] 0]] 0 9];#max of 10 results  if {![llength $results]} {    putserv "NOTICE $n :No results."  } else {    putserv "NOTICE $n :Found [llength $results] results: [join [tail $results]]"  }}proc pub:spew {n u h c t} {  global folder  if {![file exists $folder/[lindex [split $t] 0]]} {    putserv "NOTICE $n :That file doesn't exist."  } else {    set cont [split [read [set fd [open $folder/[lindex [split $t] 0] r]]] \n][close $fd]    foreach line $cont {      putserv "PRIVMSG $n :$line"    }  }}proc tail {list} {  set r ""  foreach i $list {    lappend r [file tail $i]  }  return $r}