ad_page_contract { Index page for developer support. @author jsalz@mit.edu @creation-date 22 June 2000 @cvs-id $Id: index.tcl,v 1.23.2.1 2019/03/13 10:27:15 antoniop Exp $ } { {request_limit:integer 25} } ds_require_permission [ad_conn package_id] "admin" set enabled_p [ds_enabled_p] set user_switching_enabled_p [ds_user_switching_enabled_p] set database_enabled_p [ds_database_enabled_p] set profiling_enabled_p [ds_profiling_enabled_p] set adp_reveal_enabled_p [ds_adp_reveal_enabled_p] set package_id [ad_conn package_id] set page_title "Developer Support" set context {} append body "
$ip
\"\n"
} else {
append body "
" if { [llength $requests] == 0 } { append body "There is no request information available." } else { append body [subst {" # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End:\n" } append body "
}] set colors {white #EEEEEE} set counter 0 set show_more 0 foreach request [lsort -decreasing -dictionary $requests] { if { [regexp {^([0-9]+)\.conn$} $request "" id] } { if { $request_limit > 0 && $counter > $request_limit } { incr show_more continue } if { [info exists conn] } { unset conn } array set conn [nsv_get ds_request $request] if { [catch { set start [ns_fmttime [lindex [nsv_get ds_request "$id.start"] 0] "%T"] }] } { set start "?" } if { [info exists conn(startclicks)] && [info exists conn(endclicks)] } { set duration "[expr { ($conn(endclicks) - $conn(startclicks)) / 1000.0 }] ms" } else { set duration "" } if { [info exists conn(peeraddr)] } { set peeraddr $conn(peeraddr) } else { set peeraddr "" } if { [info exists conn(method)] } { set method $conn(method) } else { set method "?" } if { [info exists conn(url)] } { if { [string length $conn(url)] > 50 } { set url "[string range $conn(url) 0 46]..." } else { set url $conn(url) } } else { set conn(url) "" set url {} } if { [info exists conn(query)] && $conn(query) ne "" } { if { [string length $conn(query)] > 50 } { set query "?[string range $conn(query) 0 46]..." } else { set query "?$conn(query)" } } else { set query "" } if {[ns_cache get ds_page_bits $id:error dummy]} { set elink [subst { Errors}] } else { set elink {} } append body [subst { Time Duration IP Request }] incr counter } } if { $show_more > 0 } { append body [subst { $start $duration $peeraddr [ns_quotehtml "$method $url$query"]$elink }] } append body " show $show_more more requests