4 * DEBUG: section 49 SNMP Interface
5 * AUTHOR: Kostas Anagnostakis
7 * SQUID Web Proxy Cache http://www.squid-cache.org/
8 * ----------------------------------------------------------
10 * Squid is the result of efforts by numerous individuals from
11 * the Internet community; see the CONTRIBUTORS file for full
12 * details. Many organizations have provided support for Squid's
13 * development; see the SPONSORS file for full details. Squid is
14 * Copyrighted (C) 2001 by the Regents of the University of
15 * California; see the COPYRIGHT file for full details. Squid
16 * incorporates software developed and/or copyrighted by other
17 * sources; see the CREDITS file for full details.
19 * This program is free software; you can redistribute it and/or modify
20 * it under the terms of the GNU General Public License as published by
21 * the Free Software Foundation; either version 2 of the License, or
22 * (at your option) any later version.
24 * This program is distributed in the hope that it will be useful,
25 * but WITHOUT ANY WARRANTY; without even the implied warranty of
26 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
27 * GNU General Public License for more details.
29 * You should have received a copy of the GNU General Public License
30 * along with this program; if not, write to the Free Software
31 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
36 #include "cache_snmp.h"
39 #include "SquidMath.h"
40 #include "SquidTime.h"
42 /************************************************************************
44 SQUID MIB Implementation
46 ************************************************************************/
53 snmp_sysFn(variable_list
* Var
, snint
* ErrP
)
55 variable_list
*Answer
= NULL
;
57 debugs(49, 5, "snmp_sysFn: Processing request:" << snmpDebugOid(Var
->name
, Var
->name_length
, tmp
));
58 *ErrP
= SNMP_ERR_NOERROR
;
60 switch (Var
->name
[LEN_SQ_SYS
]) {
63 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
64 mem_node::StoreMemSize() >> 10,
69 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
70 Store::Root().currentSize(),
75 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
76 (int)(tvSubDsec(squid_start
, current_time
) * 100),
81 *ErrP
= SNMP_ERR_NOSUCHNAME
;
92 snmp_confFn(variable_list
* Var
, snint
* ErrP
)
94 variable_list
*Answer
= NULL
;
95 const char *cp
= NULL
;
96 debugs(49, 5, "snmp_confFn: Processing request with magic " << Var
->name
[8] << "!");
97 *ErrP
= SNMP_ERR_NOERROR
;
99 switch (Var
->name
[LEN_SQ_CONF
]) {
102 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
103 Answer
->type
= ASN_OCTET_STR
;
104 Answer
->val_len
= strlen(Config
.adminEmail
);
105 Answer
->val
.string
= (u_char
*) xstrdup(Config
.adminEmail
);
109 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
110 Answer
->type
= ASN_OCTET_STR
;
111 Answer
->val_len
= strlen(APP_SHORTNAME
);
112 Answer
->val
.string
= (u_char
*) xstrdup(APP_SHORTNAME
);
115 case CONF_VERSION_ID
:
116 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
117 Answer
->type
= ASN_OCTET_STR
;
118 Answer
->val_len
= strlen(VERSION
);
119 Answer
->val
.string
= (u_char
*) xstrdup(VERSION
);
124 switch (Var
->name
[LEN_SQ_CONF
+ 1]) {
127 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
128 (snint
) (Config
.memMaxSize
>> 20),
132 case CONF_ST_SWMAXSZ
:
133 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
134 (snint
) (Store::Root().maxSize() >> 10),
139 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
140 (snint
) Config
.Swap
.highWaterMark
,
145 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
146 (snint
) Config
.Swap
.lowWaterMark
,
151 *ErrP
= SNMP_ERR_NOSUCHNAME
;
158 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
160 if (!(cp
= Debug::debugOptions
))
163 Answer
->type
= ASN_OCTET_STR
;
165 Answer
->val_len
= strlen(cp
);
167 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
172 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
174 cp
= uniqueHostname();
176 Answer
->type
= ASN_OCTET_STR
;
178 Answer
->val_len
= strlen(cp
);
180 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
185 *ErrP
= SNMP_ERR_NOSUCHNAME
;
199 snmp_meshPtblFn(variable_list
* Var
, snint
* ErrP
)
201 variable_list
*Answer
= NULL
;
207 debugs(49, 5, "snmp_meshPtblFn: peer " << Var
->name
[LEN_SQ_MESH
+ 3] << " requested!");
208 *ErrP
= SNMP_ERR_NOERROR
;
210 u_int index
= Var
->name
[LEN_SQ_MESH
+ 3] ;
211 for (p
= Config
.peers
; p
!= NULL
; p
= p
->next
, cnt
++) {
212 if (p
->index
== index
) {
219 *ErrP
= SNMP_ERR_NOSUCHNAME
;
224 switch (Var
->name
[LEN_SQ_MESH
+ 2]) {
225 case MESH_PTBL_INDEX
: { // FIXME INET6: Should be visible?
226 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
227 (snint
)p
->index
, SMI_INTEGER
);
234 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
235 Answer
->type
= ASN_OCTET_STR
;
236 Answer
->val_len
= strlen(cp
);
237 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
241 case MESH_PTBL_ADDR_TYPE
: {
243 ival
= laddr
.IsIPv4() ? INETADDRESSTYPE_IPV4
: INETADDRESSTYPE_IPV6
;
244 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
248 case MESH_PTBL_ADDR
: {
249 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
250 // InetAddress doesn't have its own ASN.1 type,
251 // like IpAddr does (SMI_IPADDRESS)
253 Answer
->type
= ASN_OCTET_STR
;
254 char host
[MAX_IPSTRLEN
];
255 laddr
.NtoA(host
,MAX_IPSTRLEN
);
256 Answer
->val_len
= strlen(host
);
257 Answer
->val
.string
= (u_char
*) xstrdup(host
);
262 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
263 (snint
) p
->http_port
,
268 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
274 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
279 case MESH_PTBL_STATE
:
280 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
281 (snint
) neighborUp(p
),
286 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
291 case MESH_PTBL_PACKED
:
292 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
293 p
->stats
.pings_acked
,
297 case MESH_PTBL_FETCHES
:
298 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
304 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
310 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
311 p
->stats
.ignored_replies
,
315 case MESH_PTBL_KEEPAL_S
:
316 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
317 p
->stats
.n_keepalives_sent
,
321 case MESH_PTBL_KEEPAL_R
:
322 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
323 p
->stats
.n_keepalives_recv
,
328 *ErrP
= SNMP_ERR_NOSUCHNAME
;
336 snmp_prfSysFn(variable_list
* Var
, snint
* ErrP
)
338 variable_list
*Answer
= NULL
;
340 static struct rusage rusage
;
341 debugs(49, 5, "snmp_prfSysFn: Processing request with magic " << Var
->name
[LEN_SQ_PRF
+ 1] << "!");
342 *ErrP
= SNMP_ERR_NOERROR
;
344 switch (Var
->name
[LEN_SQ_PRF
+ 1]) {
347 squid_getrusage(&rusage
);
348 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
349 rusage_pagefaults(&rusage
),
354 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
359 case PERF_SYS_MEMUSAGE
:
360 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
361 (snint
) statMemoryAccounted() >> 10,
365 case PERF_SYS_CPUTIME
:
366 squid_getrusage(&rusage
);
367 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
368 (snint
) rusage_cputime(&rusage
),
372 case PERF_SYS_CPUUSAGE
:
373 squid_getrusage(&rusage
);
374 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
375 (snint
) Math::doublePercent(rusage_cputime(&rusage
), tvSubDsec(squid_start
, current_time
)),
379 case PERF_SYS_MAXRESSZ
:
380 squid_getrusage(&rusage
);
381 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
382 (snint
) rusage_maxrss(&rusage
),
386 case PERF_SYS_CURLRUEXP
:
387 /* No global LRU info anymore */
388 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
393 case PERF_SYS_CURUNLREQ
:
394 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
395 (snint
) statCounter
.unlink
.requests
,
399 case PERF_SYS_CURUNUSED_FD
:
400 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
401 (snint
) Squid_MaxFD
- Number_FD
,
405 case PERF_SYS_CURRESERVED_FD
:
406 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
411 case PERF_SYS_CURUSED_FD
:
412 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
417 case PERF_SYS_CURMAX_FD
:
418 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
423 case PERF_SYS_NUMOBJCNT
:
424 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
425 (snint
) StoreEntry::inUseCount(),
430 *ErrP
= SNMP_ERR_NOSUCHNAME
;
438 snmp_prfProtoFn(variable_list
* Var
, snint
* ErrP
)
440 variable_list
*Answer
= NULL
;
441 static StatCounters
*f
= NULL
;
442 static StatCounters
*l
= NULL
;
445 debugs(49, 5, "snmp_prfProtoFn: Processing request with magic " << Var
->name
[LEN_SQ_PRF
] << "!");
446 *ErrP
= SNMP_ERR_NOERROR
;
448 switch (Var
->name
[LEN_SQ_PRF
+ 1]) {
450 case PERF_PROTOSTAT_AGGR
: /* cacheProtoAggregateStats */
452 switch (Var
->name
[LEN_SQ_PRF
+ 2]) {
454 case PERF_PROTOSTAT_AGGR_HTTP_REQ
:
455 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
456 (snint
) statCounter
.client_http
.requests
,
460 case PERF_PROTOSTAT_AGGR_HTTP_HITS
:
461 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
462 (snint
) statCounter
.client_http
.hits
,
466 case PERF_PROTOSTAT_AGGR_HTTP_ERRORS
:
467 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
468 (snint
) statCounter
.client_http
.errors
,
472 case PERF_PROTOSTAT_AGGR_HTTP_KBYTES_IN
:
473 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
474 (snint
) statCounter
.client_http
.kbytes_in
.kb
,
478 case PERF_PROTOSTAT_AGGR_HTTP_KBYTES_OUT
:
479 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
480 (snint
) statCounter
.client_http
.kbytes_out
.kb
,
484 case PERF_PROTOSTAT_AGGR_ICP_S
:
485 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
486 (snint
) statCounter
.icp
.pkts_sent
,
490 case PERF_PROTOSTAT_AGGR_ICP_R
:
491 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
492 (snint
) statCounter
.icp
.pkts_recv
,
496 case PERF_PROTOSTAT_AGGR_ICP_SKB
:
497 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
498 (snint
) statCounter
.icp
.kbytes_sent
.kb
,
502 case PERF_PROTOSTAT_AGGR_ICP_RKB
:
503 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
504 (snint
) statCounter
.icp
.kbytes_recv
.kb
,
508 case PERF_PROTOSTAT_AGGR_REQ
:
509 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
510 (snint
) statCounter
.server
.all
.requests
,
514 case PERF_PROTOSTAT_AGGR_ERRORS
:
515 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
516 (snint
) statCounter
.server
.all
.errors
,
520 case PERF_PROTOSTAT_AGGR_KBYTES_IN
:
521 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
522 (snint
) statCounter
.server
.all
.kbytes_in
.kb
,
526 case PERF_PROTOSTAT_AGGR_KBYTES_OUT
:
527 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
528 (snint
) statCounter
.server
.all
.kbytes_out
.kb
,
532 case PERF_PROTOSTAT_AGGR_CURSWAP
:
533 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
534 (snint
) Store::Root().currentSize(),
538 case PERF_PROTOSTAT_AGGR_CLIENTS
:
539 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
540 (snint
) statCounter
.client_http
.clients
,
545 *ErrP
= SNMP_ERR_NOSUCHNAME
;
551 case PERF_PROTOSTAT_MEDIAN
:
553 if (Var
->name_length
== LEN_SQ_PRF
+ 5)
554 minutes
= Var
->name
[LEN_SQ_PRF
+ 4];
558 if ((minutes
< 1) || (minutes
> 60))
563 l
= snmpStatGet(minutes
);
565 debugs(49, 8, "median: min= " << minutes
<< ", " << Var
->name
[LEN_SQ_PRF
+ 3] << " l= " << l
<< " , f = " << f
);
566 debugs(49, 8, "median: l= " << l
<< " , f = " << f
);
568 switch (Var
->name
[LEN_SQ_PRF
+ 3]) {
570 case PERF_MEDIAN_TIME
:
574 case PERF_MEDIAN_HTTP_ALL
:
575 x
= statHistDeltaMedian(&l
->client_http
.all_svc_time
,
576 &f
->client_http
.all_svc_time
);
579 case PERF_MEDIAN_HTTP_MISS
:
580 x
= statHistDeltaMedian(&l
->client_http
.miss_svc_time
,
581 &f
->client_http
.miss_svc_time
);
584 case PERF_MEDIAN_HTTP_NM
:
585 x
= statHistDeltaMedian(&l
->client_http
.nm_svc_time
,
586 &f
->client_http
.nm_svc_time
);
589 case PERF_MEDIAN_HTTP_HIT
:
590 x
= statHistDeltaMedian(&l
->client_http
.hit_svc_time
,
591 &f
->client_http
.hit_svc_time
);
594 case PERF_MEDIAN_ICP_QUERY
:
595 x
= statHistDeltaMedian(&l
->icp
.query_svc_time
, &f
->icp
.query_svc_time
);
598 case PERF_MEDIAN_ICP_REPLY
:
599 x
= statHistDeltaMedian(&l
->icp
.reply_svc_time
, &f
->icp
.reply_svc_time
);
602 case PERF_MEDIAN_DNS
:
603 x
= statHistDeltaMedian(&l
->dns
.svc_time
, &f
->dns
.svc_time
);
606 case PERF_MEDIAN_RHR
:
607 x
= statRequestHitRatio(minutes
);
610 case PERF_MEDIAN_BHR
:
611 x
= statByteHitRatio(minutes
);
614 case PERF_MEDIAN_HTTP_NH
:
615 x
= statHistDeltaMedian(&l
->client_http
.nh_svc_time
,
616 &f
->client_http
.nh_svc_time
);
620 *ErrP
= SNMP_ERR_NOSUCHNAME
;
624 return snmp_var_new_integer(Var
->name
, Var
->name_length
,
629 *ErrP
= SNMP_ERR_NOSUCHNAME
;