tele2.tcl

Does not contain a contract.

Location:
/packages/acs-subsite/www/admin/system/tele2.tcl

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_returnredirect "/"
ad_script_abort

# Expires: now
ns_set update [ns_conn outputheaders] "Expires" "now"

set output "
<html>
<head>
<title>AOLserver Telemetry</title>
<STYLE>
    BODY { background: #ffffff; font-family: helvetica; font-size: 10pt; }
    H1   { font-family: helvetica; font-size: 18pt; }
    H2   { font-family: helvetica; font-size: 16pt; }
    H3   { font-family: helvetica; font-size: 14pt; }
    TD   { background: cyan; font-family: helvetica; font-size: 8pt; }
    PRE  { font-family: helvetica; font-size: 10pt; }
    FORM { font-family: helvetica; font-size: 8pt; }
</STYLE>
</head>
<body>

<h3>Running Threads</h3>

<blockquote>

<table>

<tr>
<td align=left valign=top><b>name</b></td>
<td align=left valign=top><b>parent</b></td>
<td align=left valign=top><b>tid</b></td>
<td align=left valign=top><b>flags</b></td>
<td align=left valign=top><b>ctime</b></td>
<td align=left valign=top><b>proc</b></td>
<td align=left valign=top><b>arg</b></td>
</tr>
"


foreach item [lsort [ns_info threads]] {
    append output "<tr>"
    for { set i 0 } { $i < 7 } { incr i } {
    append output "<td align=left valign=top>"
    if { $i != 4 } {
        append output "[lindex $item $i]"
    } else {
        append output "[ns_httptime [lindex $item $i]]"
    }
    append output "</td>"
    }
    append output "</tr>"
}

append output "
</table>

</blockquote>

<h3>Connections (web clients)</h3>

<blockquote>

<table>
"

foreach item {
    connections waiting queued keepalive
} {
    append output "<tr><td align=left valign=top><b>$item:</b></td>"
    append output "<td align=right valign=top>&nbsp;[ns_server $item]</td></tr>"
}

append output "
</table></blockquote>
<p>DB-Pools: [db_available_pools ""]</p>
</body></html>
"

ns_return 200 "text/html" $output