/[tcldrop]/tcldrop/modules/users/users.tcl
ViewVC logotype

Diff of /tcldrop/modules/users/users.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by fireegl, Tue Nov 4 02:37:40 2003 UTC revision 1.11 by fireegl, Tue Nov 4 03:14:36 2003 UTC
# Line 129  proc ::tcldrop::users::matchchanattr {ha Line 129  proc ::tcldrop::users::matchchanattr {ha
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"
# Line 261  proc ::tcldrop::users::chhandle {oldhand Line 261  proc ::tcldrop::users::chhandle {oldhand
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"
# Line 281  proc ::tcldrop::users::chattr {handle {f Line 281  proc ::tcldrop::users::chattr {handle {f
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"

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26