Listar canales

#Proceso publico para ver en que canales esta el bot Sentinela
bind pub n|n !canales proc_canales
set adminchans "#canal"
proc proc_canales {nick uhost hand chan arg} {
global adminchans
    if {([lsearch -exact [string tolower $adminchans] [string tolower $chan]] != -1) || ($adminchans== "")} {
 putquick "PRIVMSG $adminchans : Listando Canales: [cl_chanlist]"
}
}
# Proceso dcc para ver en que canales esta el bot Sentinela

proc cl_chanlist { } {
global botnick
set chanlist ""
    foreach c [channels] {
        if {![onchan $botnick $c]} {
            set chan "${c}(trying)"
        } elseif {[isop $botnick $c]} {
            set chan "@$c"
        } elseif {(![isop $botnick $c]) && ([isvoice $botnick $c])} {
            set chan "+${c}"
        } elseif {![isop $botnick $c]} {
            set chan "${c}"
        } elseif {[isvoice $botnick $c]} {
            set chan "+$c"
        } else {
            set chan $c
        }
        if {[isdynamic $c]} {
            set chan "${chan}"
        }
        append chanlist "$chan "

    }
return $chanlist
}