Simple read from file script

set filename "help.txt"

bind pub - !help help

proc help {nick uhost hand chan text} {
 if ![file exists $::filename] {
  putserv "NOTICE $nick :Error: Can't find $::filename."
 } {
  set id [open $::filename]
  while {![eof $id]} {
   puthelp "PRIVMSG $nick :[gets $id]"
  }
  close $id
 }
}