51 lines
1.3 KiB
Tcl
51 lines
1.3 KiB
Tcl
bind chon - * botcommander:chon
|
|
bind dcc - botcomm_chanlist botcommander:chanlist
|
|
bind dcc - botcomm_userlist botcommander:userlist
|
|
bind dcc - botcomm_chanprop botcommander:chanprop
|
|
|
|
proc botcommander:chon {handle connid} {
|
|
putdcc $connid "BC+ ABILITY\r\n"
|
|
}
|
|
|
|
proc botcommander:chanlist {handle connid params} {
|
|
if {[matchattr $handle o]} {
|
|
putdcc $connid "BC+ CHANLIST_START\r\n"
|
|
foreach chan [channels] {
|
|
set active [channel get $chan inactive]
|
|
if {$active != 0} { set active 0 } else { set active 1 }
|
|
putdcc $connid "BC+ CHAN $active $chan\r\n"
|
|
}
|
|
putdcc $connid "BC+ CHANLIST_END\r\n"
|
|
} else {
|
|
putcc $connid "BC- NOPRIV\r\n"
|
|
}
|
|
}
|
|
|
|
proc botcommander:userlist {handle connid params} {
|
|
if {[matchattr $handle o]} {
|
|
putdcc $connid "BC+ USERLIST_START\r\n"
|
|
foreach user [userlist] {
|
|
putdcc $connid "BC+ USER $user\r\n"
|
|
}
|
|
putdcc $connid "BC+ USERLIST_END\r\n"
|
|
} else {
|
|
putdcc $connid "BC- NOPRIV\r\n"
|
|
}
|
|
}
|
|
|
|
proc botcommander:chanprop {handle connid params} {
|
|
if {[matchattr $handle o]} {
|
|
set chan [lindex $params 0]
|
|
putdcc $connid "BC+ CHANPROPS_START $chan\r\n"
|
|
foreach prop [channel info $chan] {
|
|
putdcc $connid "BC+ CHANPROP $chan $prop\r\n"
|
|
}
|
|
putdcc $connid "BC+ CHANPROPS_END $chan\r\n"
|
|
} else {
|
|
putdcc $connid "BC- NOPRIV"
|
|
}
|
|
}
|
|
|
|
putlog "BC+ ABILITY"
|
|
|