egghelp/eggheads community

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T15:27:28-04:00

just use:

Code:

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.

Statistics: Posted by De Kus — Sat Apr 23, 2005 3:27 pm

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T14:58:59-04:00

Then maybe:

Code:

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}

Statistics: Posted by awyeah — Sat Apr 23, 2005 2:58 pm

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T13:53:33-04:00

That's because the set variable is not global.

Statistics: Posted by Sir_Fz — Sat Apr 23, 2005 1:53 pm

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T13:05:58-04:00

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

.set testvar 123
Set: 123

okay hmm

.tcl putlog $testvar
Tcl: can't read "testvar": no such variable

tcl is unable to display global vars:

.tcl putlog $botnick
Tcl: can't read "botnick": no such variable

.tcl set errorInfo
Tcl: can't read "errorInfo": no such variable

Code:

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}

Statistics: Posted by awyeah — Sat Apr 23, 2005 1:05 pm

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T12:54:40-04:00

btw. maybe you want to do:

Code:

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

otherwise the output would be cut off on first newline.

Statistics: Posted by De Kus — Sat Apr 23, 2005 12:54 pm

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T12:48:04-04:00

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

Statistics: Posted by awyeah — Sat Apr 23, 2005 12:48 pm

Re: Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T12:55:23-04:00

you can use eval like this:

Code:

bind pub n tcl pub:tclproc 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

Statistics: Posted by De Kus — Sat Apr 23, 2005 12:43 pm

Triggering dcc:tcl and dcc:tcl on bind pub

2005-04-23T12:28:13-04:00

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:

#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?

Statistics: Posted by awyeah — Sat Apr 23, 2005 12:28 pm