Welcome script, invite operators to private channel

[Cristian]

Change:

Channel
flag
privatechannel
message

after your needs.

Code: Select all

namespace eval welcome {
   namespace eval variable {
      variable channel "#channel"
      variable flag "-|o"
      variable privatechannel "#Private_channel"
      variable message "Welcome message here."
   }
   bind JOIN - "$::welcome::variable::channel*" [namespace current]::join
   proc join {nickname hostname handle channel} {
      if {[matchattr $handle $::welcome::variable::flag $channel]} { 
         putserv "INVITE $nickname $::welcome::variable::privatechannel"
      }
      puthelp "Notice $nickname :$::welcome::variable::message"
   }
}
putlog "\00304[string range [info script] 0 end]\00304 \002loaded\003\002. By Website: \002http://sp00fed.org\002"

[Lukemob]

I think many will find this script as useful. Good for TCL newbies