1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
define show_fair_peer
set $n = (ngx_http_upstream_fair_shm_block_t *)$arg0
set $peers = $n->peers
printf "upstream id: 0x%08x (%s), current peer: %d/%d\n", $n->node.key, $peers->name.data, $peers->current, $peers->number
set $i = 0
while $i < $peers->number
set $peer = &$peers->peer[$i]
printf "peer %d: %s weight: %d/%d fails: %d/%d acc: %d down: %d nreq: %u last_req_id: %u\n", $i, $peer->name.data,\
$peer->shared->current_weight, $peer->weight,\
$peer->shared->fails, $peer->max_fails,\
$peer->accessed, $peer->down,\
$peer->shared->nreq, $peer->shared->last_req_id
set $i = $i + 1
end
printf "-----------------\n"
if ($n->node.left != $arg1)
show_fair_peer $n->node.left $arg1
end
if ($n->node.right != $arg1)
show_fair_peer $n->node.right $arg1
end
end
define show_fair_peers
set $tree = ngx_http_upstream_fair_rbtree
if (!$tree)
printf "Cannot find the upstream_fair peer information tree\n"
else
set $root = (ngx_http_upstream_fair_shm_block_t *)($tree->root)
if ($root != $tree->sentinel)
show_fair_peer $root $tree->sentinel
else
printf "No upstream_fair peer information\n"
end
end
end
document show_fair_peers
Dump upstream_fair peer infromation
end
|
