relay script

[ribbon]

i'm looking for a tcl that show al the join/part/nick change/kick/ban of multi channels into a operator chan.

something like this:
#chan1 : nick1 has quit IRC (Ping timeout)

Tnx

[demond]

Code: Select all

bind raw - JOIN foo
bind raw - PART foo
bind raw - NICK foo
bind raw - KICK foo
bind raw - MODE foo
proc foo {f k t} {
  set t [split [string trimleft $t :]]
  switch $k {
    "JOIN" {set s "$f has joined [join $t]"}
    "PART" {set s "$f has parted [join $t]"}
    "NICK" {set s "$f is now known as [lindex $t 0]"}
    "KICK" {set s "$f has kicked [lindex $t 1] off [lindex $t 0] [join [lrange $t 2 e]]"}
    "MODE" {set s "$f sets mode on [lindex $t 0]: [join [lrange $t 1 e]]"}
  }
  puthelp "privmsg #operchan :$s"
}