####################################################
# by wiebe @ QuakeNet
#
####################################################

####################################################
# userflag:get
####################################################
proc userflag:get { } {
  global userflagdb; lappend o "general: global Z=suspended"
  foreach e [array names userflagdb] {
    lappend o [join $userflagdb($e)]
  }
  return [join $o "   "]
}


####################################################
# userflag:evnt
####################################################
bind evnt -|- prerehash userflag:evnt
proc userflag:evnt { t } { global userflagdb; unset userflagdb }


set scriptdb(userflag) {
  "provides chanlev, whois, whoami, and user.tcl with the meaning of custom flags (A-Z)"
}