1
2
3
4
5
6
7
8
|
if {[lindex [split $arg] 0] == "check"} {
if {[lindex [split $arg] 1] == ""} { putquick "NOTICE $nick :Please type: ${bnc::trigger}sbnc check #channel" ; return }
set check [lindex [split $arg] 1]
putquick "sbnc tcl :set bncall 0 \; set bncon 0 \; foreach bncus \[bncuserlist\] \{ incr bncall 1 \; if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] != -1\} \{ incr bncon 1 \} \} \; putserv \"NOTICE $nick :Bouncers on channel: (\$\{bncon\}/\$\{bncall\})\""
set check [lindex [split $arg] 1]
putquick "sbnc tcl :set bncsall \"\" \; foreach bncus \[bncuserlist\] \{ if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] != -1\} \{ set bncsall \"\$\{bncsall\} \$\{bncus\}\" \} \} \; putserv \"NOTICE $nick :Idents found (\$\{bncsall\})\""
putquick "sbnc tcl :set bncsall \"\" \; foreach bncus \[bncuserlist\] \{ if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] == -1\} \{ set bncsall \"\$\{bncsall\} \$\{bncus\}\" \} \} \; putserv \"NOTICE $nick :Ident are not: (\$\{bncsall\})\""
} |