129 |
# Returns all the users matching $flags (flags are optional). |
# Returns all the users matching $flags (flags are optional). |
130 |
proc ::tcldrop::users::userlist {{flags {}}} { |
proc ::tcldrop::users::userlist {{flags {}}} { |
131 |
foreach a [binds userlist] { |
foreach a [binds userlist] { |
132 |
foreach {type flags mask count proc} $a {} |
foreach {type bindsflags mask count proc} $a {} |
133 |
if {[catch { $proc $flags } val]} { |
if {[catch { $proc $flags } val]} { |
134 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
135 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |
261 |
# Adds/removes a users global/channel flags. |
# Adds/removes a users global/channel flags. |
262 |
proc ::tcldrop::users::chattr {handle {flags {}} {channel {}}} { |
proc ::tcldrop::users::chattr {handle {flags {}} {channel {}}} { |
263 |
foreach a [binds chattr] { |
foreach a [binds chattr] { |
264 |
foreach {type flags mask count proc} $a {} |
foreach {type bindsflags mask count proc} $a {} |
265 |
if {[set lev [catch { $proc $handle $flags $channel } val]]} { |
if {[set lev [catch { $proc $handle $flags $channel } val]]} { |
266 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
267 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |
281 |
# Adds/removes a bots global/channel bot-specific flags. |
# Adds/removes a bots global/channel bot-specific flags. |
282 |
proc ::tcldrop::users::botattr {bothandle {flags {}} {channel {}}} { |
proc ::tcldrop::users::botattr {bothandle {flags {}} {channel {}}} { |
283 |
foreach a [binds botattr] { |
foreach a [binds botattr] { |
284 |
foreach {type flags mask count proc} $a {} |
foreach {type bindsflags mask count proc} $a {} |
285 |
if {[set lev [catch { $proc $bothandle $flags $channel } val]]} { |
if {[set lev [catch { $proc $bothandle $flags $channel } val]]} { |
286 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
287 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |