need help change dcc to pub command

2009-01-20T07:44:52-04:00

try:

Code:

bind pub -|- chk script_checkproc script_check { nick uhost hand chan arg } { set the_name [lindex [split $arg] 0]if {[catch {uplevel #0 [list source scripts/$the_name.tcl]} error]} { putquick "PRIVMSG $chan :Error While Loading $the_name -- Errormsg: $error" putquick "PRIVMSG $chan :script: $the_name -- ::errorInfo: $::errorInfo" return}putquick "PRIVMSG $chan :script: <$the_name> -- Loaded Without Error.." }putlog "chk-script.tcl loaded"

12:43:11 <@tomekk> chk chk-script
12:43:13 < botty> script: -- Loaded Without Error..

12:43:36 <@tomekk> chk chk-script
12:43:36 < botty> Error While Loading chk-script -- Errormsg: invalid command name "}"
12:43:36 < botty> script: chk-script -- ::errorInfo: invalid command name "}"

Statistics: Posted by tomekk — Tue Jan 20, 2009 7:44 am

need help change dcc to pub command

2009-01-17T01:33:38-04:00

hi..

I found small script to check tcl script before we running "rehash" command.. (to known the scripts error or no)

here's the code

Code:

bind dcc n chk script:loadproc script:load { handle idx text } {    if { [catch { uplevel #0 [list source scripts/$text.tcl] } error] } {       putlog "Error While Loading $text -- Errormsg: $error"       putlog "script: $text -- ::errorInfo: $::errorInfo"       return    }    putlog "script: <$text> -- Loaded Without Error.."    return }

how I make those code so it will be running on public command and display the result on the room chan.

Thanks for your help

Statistics: Posted by uffs — Sat Jan 17, 2009 1:33 am

egghelp/eggheads community

need help change dcc to pub command

need help change dcc to pub command