Join through tcl script (/msg bot join #channel) [SOLVED]

Rapfnny · Post by **Rapfnny** » Sat Jul 18, 2009 12:10 pm

How can I make the bot join/part a channel through a pm?
I tried this:

bind MSG -|- "join" msg:join
bind MSG -|- "part" msg:part
proc msg:join {nick uhost handle text} {
	set chan [lindex $text 0]
        [channel add $chan]
        putserv "PRIVMSG $chan :Invited by $nick"
}
proc msg:part {nick uhost handle text} {
	set chan [lindex $text 0]
        [channel remove $chan]
}

But when i do /msg bot join #channel
It joins, but it doesnt do the privmsg. I get this:

Tcl error [msg:join]: invalid command name ""

What can i do to fix this?

tomekk · Post by **tomekk** » Sat Jul 18, 2009 1:02 pm

try:

Code: Select all

bind MSG -|- "join" msg:join
bind MSG -|- "part" msg:part

proc msg:join {nick uhost handle text} {
        set chan [lindex [split $text] 0]
        channel add $chan
        putserv "PRIVMSG $chan :Invited by $nick"
}

proc msg:part {nick uhost handle text} {
        set chan [lindex [split $text] 0]
        channel remove $chan
}

Rapfnny · Post by **Rapfnny** » Sat Jul 18, 2009 1:18 pm

:\ it didn't work

[10:34] Tcl error [msg:join]: invalid command name ""
[10:34] joined #chan but didn't want to!
[10:34] Oops. Someone made me join #chan... leaving...

arfer · Post by **arfer** » Sun Jul 19, 2009 1:56 am

I couldn't for the life of me see where this script (modified by tomekk) was behaving in the way you have reported, so I loaded and tested it. It works fine for me (on DALnet, not that the network would make a difference).

Either you have not loaded this particular script or something is interfering with it's performance such as a .conf setting/configuration (maybe something like +inactive in global-chanset settings) or it is another script that you are using.

Rapfnny · Post by **Rapfnny** » Sun Jul 19, 2009 11:20 am

Oh for some reason, it works now. Thank you.