Triggering dcc:tcl and dcc:tcl on bind pub

[awyeah]

Is there anyway I can enable .tcl and .set commands as 'pub' commands which can be say triggered on channels, or even bind msg, when the bot is messaged, instead of the partyline -- without modifying the source code?

Code: Select all

#unbind dcc n tcl *dcc:tcl
#unbind dcc n set *dcc:set

Also if I way to relay tcl error messages, in channels or private messages to users, I should just string match the tcl error output in partyline and relay it where ever I like I guess?

[De Kus]

you can use eval like this:

Code: Select all

bind pub n tcl pub:tcl

proc pub:tcl {nick uhost hand chan text} {
   catch {eval $text} output
   foreach line [split $output \n] {
      puthelp "PRIVMSG $chan :$line"
   }
   return 1
}

however, I hope you are aware of the security issues of that .

for set you will prabably have to use:
set evaluate "set $text"
eval $evaluate

[awyeah]

Yes thanks, so the mask is "tcl", rest the same okay got that... nothing big I guess. Yes I am aware of the security issues, no one except me has access to my bot plus +mn

[De Kus]

btw. maybe you want to do:

Code: Select all

foreach line [split $output \n] {
  puthelp "PRIVMSG $chan :$line"
}

otherwise the output would be cut off on first newline.

[awyeah]

.tcl works fine -- doesn't work for global vars, without the foreach atm, but .set isn't working.

<awyeah-> .set testvar 123
<adapter> Set: 123
<awyeah-> okay hmm
<awyeah-> .tcl putlog $testvar
<adapter> Tcl: can't read "testvar": no such variable


tcl is unable to display global vars:

<awyeah-> .tcl putlog $botnick
<adapter> Tcl: can't read "botnick": no such variable
<awyeah-> .tcl set errorInfo
<adapter> Tcl: can't read "errorInfo": no such variable

Code: Select all

proc pub:set {nick uhost hand chan text} {
  set evaluate "set [lindex $text 0] \"[lrange $text 1 end]\""
  puthelp "PRIVMSG $chan :Set: [eval $evaluate]"
  return 1
}

[Sir_Fz]

That's because the set variable is not global.

[awyeah]

Then maybe:

Code: Select all

proc pub:set {nick uhost hand chan text} {
  set evaluate1 "set [lindex $text 0] \"[lrange $text 1 end]\""
  set evaluate2 "global [lindex $text 0]"
  puthelp "PRIVMSG $chan :Set: [eval $evaluate1]"
  eval $evaluate2
  return 1
}

[De Kus]

just use:

Code: Select all

set evaluate "set ::$text"
eval $evaluate

only change: :: added. as alternate you can change it to:
set evaluate "uplevel #0 set $text"
maybe the uplevel variant is better, when you want to change a variable within a namespace like: "set script::active 1". I am not sure if a custom namespace is always a subnamespace of the global namespace.

PS: using "uplevel #0 " for the !tcl trigger is an option as well.