helpdesk script

[Cristian]

This script sends a privmsg to all operators, when a user joins a channel, fx. a help channel.

Change:

channel
message (if you want)
exclude (add or remove nicknames)

Code: Select all

namespace eval helpdesk {
   namespace eval variable {
      variable channel "#Channel"
      variable message "entered the channel, and might need some assistance."
      variable exclude "Q L fishbot catbot sp00fed"
   }

   bind join -|- * [namespace current]::onjoin

   proc onjoin {nickname hostname handle channel} {
      if {[string match [string tolower $::helpdesk::variable::channel] [string tolower $channel]]} {
         set list ""
         foreach user [chanlist $channel] {
            if {[llength $list] == 6} {
               putserv "PRIVMSG [join $list ","] :$nickname $::helpdesk::variable::message"
               set list ""
            }
            if {[isop $user $channel]} {
               foreach exclude $::helpdesk::variable::exclude {
                  if {[string match $user $exclude]} {
                     continue   
                  }
                  lappend list "$user"
               }
            }
         }
         if {[llength $list] != 0} {
            putserv "PRIVMSG [join $list ","] :$nickname $::helpdesk::variable::message"
            set list ""
         }
      }
   }
}
putlog "\00304[string range [info script] 0 end]\00304 \002loaded...\002"

[Lukemob]

Nice one mate, many TCL newbies with IRC services would appreciate it