All pastes #563830 Raw Edit

alex

public text v1 · immutable
·published 2007-06-13 10:15 UTC
rendered paste body
Error:
[09:15] Tcl error [revcheck]: wrong # args: should be "revcheck chan readfil readvar"

Code:
set txtfile "/home/alex/antrix-revcheck/current.txt"

proc revcheck {chan readfil readvar} {
      global txtfile
      set readfil [open $txtfile r]
      set readvar [read $readfil]
      close $readfil
      putserv "PRIVMSG $chan : $readvar"
}

bind pub -|- !rev revcheck