on join notice

[WisH-GR]

hello again.i need help with one more tcl.
i want my bot to send a msg to a channel #chan2 when a users joins channel #chan1.
for example if nickname user1 joins #chan1 i want the bot to say to #chan2
!! user1 has joined #chan1 !!

[tueb]

Code: Select all

bind join - * on_joined
proc on_joined {nick host handle channel} {
  if {$channel == "#chan1"} {
      putserv "PRIVMSG #chan2 :!! $nick has joined #chan1 !!"
  }
}

i hope this will work.

just replace #chan1 and #chan2 with the real channel names.

tueb

[arfer]

It is possible that the channel name passed to a proc as a consequence of a bind is somehow different in upper/lower case from the same channel name manually configured in a script, which would cause the following code fragment to fail :-

Code: Select all

if {$channel == "#chan1"} {

The statement above is case sensitive. It is always better to use the following instead :-

Code: Select all

if {[string equal -nocase $channel "#chan1"]} {

[Felix2003]

i stayed simple

Code: Select all

bind join - "#chan1 *!*@*" auto-messenge
proc auto-messenge {nick uhost handle chan} {
  putquick "PRIVMSG #chan2 : !! <$nick> <$uhost> has joined #chan1 !!