Untitled

set reftrig "!ref"
bind pub - $reftrig pub_reference

proc pub_reference {nick uhost hand chan arg} {
global reftrig
	if {[llength $arg]==0} {
		putnotc $nick "Usage: !ref keyword" 
	} elseif { [llength $arg] > 1 } {
		putnotc $nick "Usage: !ref keyword" 
	} else {
		set tag $arg
		set page [eval exec /home/tballard/xhtml-ref-uri.rb $tag]
    putserv "privmsg $chan: $page"
  }
}