iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-03-28 17:42:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

Updated [ProcessKick] to eggdrop spec, removed bind types that weren't actually supported, and removed default variable for [::bind], as this served no purpose.

Browse Source
This commit is contained in:
blackwind
2012-04-18 04:11:03 -06:00
parent 4f942134f8
commit 4786b743cd
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
modules/modtcl/binds.tcl
View File

@@ -6,7 +6,7 @@
#
# Binds module to process incoming messages with ZNC modtcl
#
# Supported bind types: pub/pubm, msg/msgm, time, evnt, nick, bot, dcc, kick
# Supported bind types: bot, dcc, evnt, kick, msg, msgm, nick, pub, pubm, time
# evnt: prerehash,rehash,init-server,disconnect-server
#
@@ -19,15 +19,11 @@ namespace eval Binds {
# procs
proc Add {type flags cmd {procname ""}} {
if {![regexp {^(pub|pubm|msg|msgm|nick|mode|raw|bot|time|evnt|dcc|kick)$} $type]} {
if {![regexp {^(bot|dcc|evnt|kick|msg|msgm|nick|pub|pubm|time)$} $type]} {
PutModule "Tcl error: Bind type: $type not supported"
return
}
# ToDo: Flags check from user info (IsAdmin, etc)
if {$procname == ""} {
PutModule "Tcl error: Without a proc binds are useless"
return
}
# ToDo: bind hit counter
if {[lsearch $Binds::List "$type $flags [list $cmd] 0 [list $procname]"] == -1} {
lappend Binds::List "$type $flags [list $cmd] 0 [list $procname]"
@@ -127,8 +123,12 @@ namespace eval Binds {
proc ProcessKick {nick user handle channel target reason} {
foreach n [binds kick] {
if {[string match [lindex $n 2 0] $channel] && [string match [lindex $n 2 1] $target]} {
[lindex $n 4] $nick $user $handle $channel $target $reason
if {[string match [lindex $n 2 0] $channel]} {
if {[llength [lindex $n 2]] <= 1 || [string match [lindex $n 2 1] $target]} {
if {[llength [lindex $n 2]] <= 2 || [string match [lindex $n 2 2] $reason]} {
[lindex $n 4] $nick $user $handle $channel $target $reason
}
}
}
}
}
@@ -148,7 +148,7 @@ namespace eval Binds {
}
# Provide aliases according to eggdrop specs
proc ::bind {type flags cmd {procname ""}} {Binds::Add $type $flags $cmd $procname}
proc ::bind {type flags cmd procname} {Binds::Add $type $flags $cmd $procname}
proc ::unbind {type flags cmd procname} {Binds::Del $type $flags $cmd $procname}
proc ::binds {{type ""}} {if {$type != ""} {set type "$type "};return [lsearch -all -inline $Binds::List "$type*"]}
proc ::bindlist {{type ""}} {foreach bind $Binds::List {PutModule "$bind"}}