xo::request_monitor_user_info (private)

 xo::request_monitor_user_info key

Defined in packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl

Parameters:

key (required)

Testcases:

No testcase defined.

Source code:

    if {[nsf::is integer $key]} {
      #
      # It looks like a user_id
      #
      set person [person::get_person_info -person_id $key]
      if {[dict exists $person last_name]} {
        set user_label "[dict get $person last_name], [dict get $person first_names]"
        set user_url [acs_community_member_url -user_id $key]
      } else {
        #
        # Maybe, the user was deleted in the meanwhile
        #
        set user_label "Unknown user_id $key"
        set user_url ""
      }
    } else {
      # it was an IP address
      set user_label $key
      set user_url ""
    }
    return [list label $user_label url $user_url]

XQL Not present:

Generic, PostgreSQL, Oracle