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.
35 #include "squid-old.h"
36 #include "cache_snmp.h"
39 #include "StatCounters.h"
41 #include "SquidMath.h"
42 #include "SquidTime.h"
44 /************************************************************************
46 SQUID MIB Implementation
48 ************************************************************************/
55 snmp_sysFn(variable_list
* Var
, snint
* ErrP
)
57 variable_list
*Answer
= NULL
;
59 debugs(49, 5, "snmp_sysFn: Processing request:" << snmpDebugOid(Var
->name
, Var
->name_length
, tmp
));
60 *ErrP
= SNMP_ERR_NOERROR
;
62 switch (Var
->name
[LEN_SQ_SYS
]) {
65 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
66 mem_node::StoreMemSize() >> 10,
71 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
72 Store::Root().currentSize() >> 10,
77 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
78 (int)(tvSubDsec(squid_start
, current_time
) * 100),
83 *ErrP
= SNMP_ERR_NOSUCHNAME
;
94 snmp_confFn(variable_list
* Var
, snint
* ErrP
)
96 variable_list
*Answer
= NULL
;
97 const char *cp
= NULL
;
98 debugs(49, 5, "snmp_confFn: Processing request with magic " << Var
->name
[8] << "!");
99 *ErrP
= SNMP_ERR_NOERROR
;
101 switch (Var
->name
[LEN_SQ_CONF
]) {
104 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
105 Answer
->type
= ASN_OCTET_STR
;
106 Answer
->val_len
= strlen(Config
.adminEmail
);
107 Answer
->val
.string
= (u_char
*) xstrdup(Config
.adminEmail
);
111 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
112 Answer
->type
= ASN_OCTET_STR
;
113 Answer
->val_len
= strlen(APP_SHORTNAME
);
114 Answer
->val
.string
= (u_char
*) xstrdup(APP_SHORTNAME
);
117 case CONF_VERSION_ID
:
118 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
119 Answer
->type
= ASN_OCTET_STR
;
120 Answer
->val_len
= strlen(VERSION
);
121 Answer
->val
.string
= (u_char
*) xstrdup(VERSION
);
126 switch (Var
->name
[LEN_SQ_CONF
+ 1]) {
129 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
130 (snint
) (Config
.memMaxSize
>> 20),
134 case CONF_ST_SWMAXSZ
:
135 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
136 (snint
) (Store::Root().maxSize() >> 20),
141 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
142 (snint
) Config
.Swap
.highWaterMark
,
147 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
148 (snint
) Config
.Swap
.lowWaterMark
,
153 *ErrP
= SNMP_ERR_NOSUCHNAME
;
160 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
162 if (!(cp
= Debug::debugOptions
))
165 Answer
->type
= ASN_OCTET_STR
;
167 Answer
->val_len
= strlen(cp
);
169 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
174 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
176 cp
= uniqueHostname();
178 Answer
->type
= ASN_OCTET_STR
;
180 Answer
->val_len
= strlen(cp
);
182 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
187 *ErrP
= SNMP_ERR_NOSUCHNAME
;
201 snmp_meshPtblFn(variable_list
* Var
, snint
* ErrP
)
203 variable_list
*Answer
= NULL
;
209 debugs(49, 5, "snmp_meshPtblFn: peer " << Var
->name
[LEN_SQ_MESH
+ 3] << " requested!");
210 *ErrP
= SNMP_ERR_NOERROR
;
212 u_int index
= Var
->name
[LEN_SQ_MESH
+ 3] ;
213 for (p
= Config
.peers
; p
!= NULL
; p
= p
->next
, cnt
++) {
214 if (p
->index
== index
) {
221 *ErrP
= SNMP_ERR_NOSUCHNAME
;
226 switch (Var
->name
[LEN_SQ_MESH
+ 2]) {
227 case MESH_PTBL_INDEX
: { // FIXME INET6: Should be visible?
228 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
229 (snint
)p
->index
, SMI_INTEGER
);
236 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
237 Answer
->type
= ASN_OCTET_STR
;
238 Answer
->val_len
= strlen(cp
);
239 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
243 case MESH_PTBL_ADDR_TYPE
: {
245 ival
= laddr
.IsIPv4() ? INETADDRESSTYPE_IPV4
: INETADDRESSTYPE_IPV6
;
246 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
250 case MESH_PTBL_ADDR
: {
251 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
252 // InetAddress doesn't have its own ASN.1 type,
253 // like IpAddr does (SMI_IPADDRESS)
255 Answer
->type
= ASN_OCTET_STR
;
256 char host
[MAX_IPSTRLEN
];
257 laddr
.NtoA(host
,MAX_IPSTRLEN
);
258 Answer
->val_len
= strlen(host
);
259 Answer
->val
.string
= (u_char
*) xstrdup(host
);
264 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
265 (snint
) p
->http_port
,
270 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
276 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
281 case MESH_PTBL_STATE
:
282 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
283 (snint
) neighborUp(p
),
288 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
293 case MESH_PTBL_PACKED
:
294 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
295 p
->stats
.pings_acked
,
299 case MESH_PTBL_FETCHES
:
300 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
306 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
312 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
313 p
->stats
.ignored_replies
,
317 case MESH_PTBL_KEEPAL_S
:
318 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
319 p
->stats
.n_keepalives_sent
,
323 case MESH_PTBL_KEEPAL_R
:
324 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
325 p
->stats
.n_keepalives_recv
,
330 *ErrP
= SNMP_ERR_NOSUCHNAME
;
338 snmp_prfSysFn(variable_list
* Var
, snint
* ErrP
)
340 variable_list
*Answer
= NULL
;
342 static struct rusage rusage
;
343 debugs(49, 5, "snmp_prfSysFn: Processing request with magic " << Var
->name
[LEN_SQ_PRF
+ 1] << "!");
344 *ErrP
= SNMP_ERR_NOERROR
;
346 switch (Var
->name
[LEN_SQ_PRF
+ 1]) {
349 squid_getrusage(&rusage
);
350 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
351 rusage_pagefaults(&rusage
),
356 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
361 case PERF_SYS_MEMUSAGE
:
362 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
363 (snint
) statMemoryAccounted() >> 10,
367 case PERF_SYS_CPUTIME
:
368 squid_getrusage(&rusage
);
369 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
370 (snint
) rusage_cputime(&rusage
),
374 case PERF_SYS_CPUUSAGE
:
375 squid_getrusage(&rusage
);
376 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
377 (snint
) Math::doublePercent(rusage_cputime(&rusage
), tvSubDsec(squid_start
, current_time
)),
381 case PERF_SYS_MAXRESSZ
:
382 squid_getrusage(&rusage
);
383 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
384 (snint
) rusage_maxrss(&rusage
),
388 case PERF_SYS_CURLRUEXP
:
389 /* No global LRU info anymore */
390 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
395 case PERF_SYS_CURUNLREQ
:
396 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
397 (snint
) statCounter
.unlink
.requests
,
401 case PERF_SYS_CURUNUSED_FD
:
402 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
403 (snint
) Squid_MaxFD
- Number_FD
,
407 case PERF_SYS_CURRESERVED_FD
:
408 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
413 case PERF_SYS_CURUSED_FD
:
414 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
419 case PERF_SYS_CURMAX_FD
:
420 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
425 case PERF_SYS_NUMOBJCNT
:
426 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
427 (snint
) StoreEntry::inUseCount(),
432 *ErrP
= SNMP_ERR_NOSUCHNAME
;
440 snmp_prfProtoFn(variable_list
* Var
, snint
* ErrP
)
442 variable_list
*Answer
= NULL
;
443 static StatCounters
*f
= NULL
;
444 static StatCounters
*l
= NULL
;
447 debugs(49, 5, "snmp_prfProtoFn: Processing request with magic " << Var
->name
[LEN_SQ_PRF
] << "!");
448 *ErrP
= SNMP_ERR_NOERROR
;
450 switch (Var
->name
[LEN_SQ_PRF
+ 1]) {
452 case PERF_PROTOSTAT_AGGR
: /* cacheProtoAggregateStats */
454 switch (Var
->name
[LEN_SQ_PRF
+ 2]) {
456 case PERF_PROTOSTAT_AGGR_HTTP_REQ
:
457 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
458 (snint
) statCounter
.client_http
.requests
,
462 case PERF_PROTOSTAT_AGGR_HTTP_HITS
:
463 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
464 (snint
) statCounter
.client_http
.hits
,
468 case PERF_PROTOSTAT_AGGR_HTTP_ERRORS
:
469 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
470 (snint
) statCounter
.client_http
.errors
,
474 case PERF_PROTOSTAT_AGGR_HTTP_KBYTES_IN
:
475 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
476 (snint
) statCounter
.client_http
.kbytes_in
.kb
,
480 case PERF_PROTOSTAT_AGGR_HTTP_KBYTES_OUT
:
481 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
482 (snint
) statCounter
.client_http
.kbytes_out
.kb
,
486 case PERF_PROTOSTAT_AGGR_ICP_S
:
487 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
488 (snint
) statCounter
.icp
.pkts_sent
,
492 case PERF_PROTOSTAT_AGGR_ICP_R
:
493 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
494 (snint
) statCounter
.icp
.pkts_recv
,
498 case PERF_PROTOSTAT_AGGR_ICP_SKB
:
499 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
500 (snint
) statCounter
.icp
.kbytes_sent
.kb
,
504 case PERF_PROTOSTAT_AGGR_ICP_RKB
:
505 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
506 (snint
) statCounter
.icp
.kbytes_recv
.kb
,
510 case PERF_PROTOSTAT_AGGR_REQ
:
511 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
512 (snint
) statCounter
.server
.all
.requests
,
516 case PERF_PROTOSTAT_AGGR_ERRORS
:
517 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
518 (snint
) statCounter
.server
.all
.errors
,
522 case PERF_PROTOSTAT_AGGR_KBYTES_IN
:
523 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
524 (snint
) statCounter
.server
.all
.kbytes_in
.kb
,
528 case PERF_PROTOSTAT_AGGR_KBYTES_OUT
:
529 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
530 (snint
) statCounter
.server
.all
.kbytes_out
.kb
,
534 case PERF_PROTOSTAT_AGGR_CURSWAP
:
535 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
536 (snint
) Store::Root().currentSize() >> 10,
540 case PERF_PROTOSTAT_AGGR_CLIENTS
:
541 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
542 (snint
) statCounter
.client_http
.clients
,
547 *ErrP
= SNMP_ERR_NOSUCHNAME
;
553 case PERF_PROTOSTAT_MEDIAN
:
555 if (Var
->name_length
== LEN_SQ_PRF
+ 5)
556 minutes
= Var
->name
[LEN_SQ_PRF
+ 4];
560 if ((minutes
< 1) || (minutes
> 60))
565 l
= snmpStatGet(minutes
);
567 debugs(49, 8, "median: min= " << minutes
<< ", " << Var
->name
[LEN_SQ_PRF
+ 3] << " l= " << l
<< " , f = " << f
);
568 debugs(49, 8, "median: l= " << l
<< " , f = " << f
);
570 switch (Var
->name
[LEN_SQ_PRF
+ 3]) {
572 case PERF_MEDIAN_TIME
:
576 case PERF_MEDIAN_HTTP_ALL
:
577 x
= statHistDeltaMedian(l
->client_http
.allSvcTime
,
578 f
->client_http
.allSvcTime
);
581 case PERF_MEDIAN_HTTP_MISS
:
582 x
= statHistDeltaMedian(l
->client_http
.missSvcTime
,
583 f
->client_http
.missSvcTime
);
586 case PERF_MEDIAN_HTTP_NM
:
587 x
= statHistDeltaMedian(l
->client_http
.nearMissSvcTime
,
588 f
->client_http
.nearMissSvcTime
);
591 case PERF_MEDIAN_HTTP_HIT
:
592 x
= statHistDeltaMedian(l
->client_http
.hitSvcTime
,
593 f
->client_http
.hitSvcTime
);
596 case PERF_MEDIAN_ICP_QUERY
:
597 x
= statHistDeltaMedian(l
->icp
.querySvcTime
, f
->icp
.querySvcTime
);
600 case PERF_MEDIAN_ICP_REPLY
:
601 x
= statHistDeltaMedian(l
->icp
.replySvcTime
, f
->icp
.replySvcTime
);
604 case PERF_MEDIAN_DNS
:
605 x
= statHistDeltaMedian(l
->dns
.svcTime
, f
->dns
.svcTime
);
608 case PERF_MEDIAN_RHR
:
609 x
= statRequestHitRatio(minutes
);
612 case PERF_MEDIAN_BHR
:
613 x
= statByteHitRatio(minutes
);
616 case PERF_MEDIAN_HTTP_NH
:
617 x
= statHistDeltaMedian(l
->client_http
.nearHitSvcTime
,
618 f
->client_http
.nearHitSvcTime
);
622 *ErrP
= SNMP_ERR_NOSUCHNAME
;
626 return snmp_var_new_integer(Var
->name
, Var
->name_length
,
631 *ErrP
= SNMP_ERR_NOSUCHNAME
;