# You need to add some security routines though
# Trigger would be something like: /notice <bot> join #channel
bind notc n|n join* add_channel

proc add_channel {nick uhost hand text {dest ""}} {
   global botnick; if {$dest == ""} {set dest $botnick}
   set chan [lindex [split $text] 1]
   channel add $chan
   putlog "$hand added $chan"
}