2 * $Id: snmp_agent.cc,v 1.98 2007/12/27 01:58:19 hno Exp $
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 "SquidTime.h"
41 /************************************************************************
43 SQUID MIB Implementation
45 ************************************************************************/
52 snmp_sysFn(variable_list
* Var
, snint
* ErrP
)
54 variable_list
*Answer
= NULL
;
55 debugs(49, 5, "snmp_sysFn: Processing request:");
56 snmpDebugOid(5, Var
->name
, Var
->name_length
);
57 *ErrP
= SNMP_ERR_NOERROR
;
59 switch (Var
->name
[LEN_SQ_SYS
]) {
62 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
63 mem_node::StoreMemSize() >> 10,
68 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
74 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
75 (int)(tvSubDsec(squid_start
, current_time
) * 100),
80 *ErrP
= SNMP_ERR_NOSUCHNAME
;
91 snmp_confFn(variable_list
* Var
, snint
* ErrP
)
93 variable_list
*Answer
= NULL
;
94 const char *cp
= NULL
;
95 debugs(49, 5, "snmp_confFn: Processing request with magic " << Var
->name
[8] << "!");
96 *ErrP
= SNMP_ERR_NOERROR
;
98 switch (Var
->name
[LEN_SQ_CONF
]) {
101 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
102 Answer
->type
= ASN_OCTET_STR
;
103 Answer
->val_len
= strlen(Config
.adminEmail
);
104 Answer
->val
.string
= (u_char
*) xstrdup(Config
.adminEmail
);
108 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
109 Answer
->type
= ASN_OCTET_STR
;
110 Answer
->val_len
= strlen(APP_SHORTNAME
);
111 Answer
->val
.string
= (u_char
*) xstrdup(APP_SHORTNAME
);
114 case CONF_VERSION_ID
:
115 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
116 Answer
->type
= ASN_OCTET_STR
;
117 Answer
->val_len
= strlen(VERSION
);
118 Answer
->val
.string
= (u_char
*) xstrdup(VERSION
);
123 switch (Var
->name
[LEN_SQ_CONF
+ 1]) {
126 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
127 (snint
) Config
.memMaxSize
>> 20,
131 case CONF_ST_SWMAXSZ
:
132 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
133 (snint
) Store::Root().maxSize() >> 10,
138 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
139 (snint
) Config
.Swap
.highWaterMark
,
144 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
145 (snint
) Config
.Swap
.lowWaterMark
,
150 *ErrP
= SNMP_ERR_NOSUCHNAME
;
157 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
159 if (!(cp
= Config
.debugOptions
))
162 Answer
->type
= ASN_OCTET_STR
;
164 Answer
->val_len
= strlen(cp
);
166 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
171 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
173 cp
= uniqueHostname();
175 Answer
->type
= ASN_OCTET_STR
;
177 Answer
->val_len
= strlen(cp
);
179 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
184 *ErrP
= SNMP_ERR_NOSUCHNAME
;
198 snmp_meshPtblFn(variable_list
* Var
, snint
* ErrP
)
200 variable_list
*Answer
= NULL
;
206 debugs(49, 5, "snmp_meshPtblFn: peer " << Var
->name
[LEN_SQ_MESH
+ 3] << " requested!");
207 *ErrP
= SNMP_ERR_NOERROR
;
209 u_int index
= Var
->name
[LEN_SQ_MESH
+ 3] ;
210 for (p
= Config
.peers
; p
!= NULL
; p
= p
->next
, cnt
++) {
211 if (p
->index
== index
) {
218 *ErrP
= SNMP_ERR_NOSUCHNAME
;
223 switch (Var
->name
[LEN_SQ_MESH
+ 2]) {
224 case MESH_PTBL_INDEX
: { // FIXME INET6: Should be visible?
225 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
226 (snint
)p
->index
, SMI_INTEGER
);
233 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
234 Answer
->type
= ASN_OCTET_STR
;
235 Answer
->val_len
= strlen(cp
);
236 Answer
->val
.string
= (u_char
*) xstrdup(cp
);
240 case MESH_PTBL_ADDR_TYPE
: {
242 ival
= laddr
.IsIPv4() ? INETADDRESSTYPE_IPV4
: INETADDRESSTYPE_IPV6
;
243 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
247 case MESH_PTBL_ADDR
: {
248 Answer
= snmp_var_new(Var
->name
, Var
->name_length
);
249 // InetAddress doesn't have its own ASN.1 type,
250 // like IpAddr does (SMI_IPADDRESS)
252 Answer
->type
= ASN_OCTET_STR
;
253 char host
[MAX_IPSTRLEN
];
254 laddr
.NtoA(host
,MAX_IPSTRLEN
);
255 Answer
->val_len
= strlen(host
);
256 Answer
->val
.string
= (u_char
*) xstrdup(host
);
261 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
262 (snint
) p
->http_port
,
267 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
273 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
278 case MESH_PTBL_STATE
:
279 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
280 (snint
) neighborUp(p
),
285 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
290 case MESH_PTBL_PACKED
:
291 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
292 p
->stats
.pings_acked
,
296 case MESH_PTBL_FETCHES
:
297 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
303 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
309 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
310 p
->stats
.ignored_replies
,
314 case MESH_PTBL_KEEPAL_S
:
315 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
316 p
->stats
.n_keepalives_sent
,
320 case MESH_PTBL_KEEPAL_R
:
321 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
322 p
->stats
.n_keepalives_recv
,
327 *ErrP
= SNMP_ERR_NOSUCHNAME
;
335 snmp_prfSysFn(variable_list
* Var
, snint
* ErrP
)
337 variable_list
*Answer
= NULL
;
339 static struct rusage rusage
;
340 debugs(49, 5, "snmp_prfSysFn: Processing request with magic " << Var
->name
[LEN_SQ_PRF
+ 1] << "!");
341 *ErrP
= SNMP_ERR_NOERROR
;
343 switch (Var
->name
[LEN_SQ_PRF
+ 1]) {
346 squid_getrusage(&rusage
);
347 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
348 rusage_pagefaults(&rusage
),
353 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
358 case PERF_SYS_MEMUSAGE
:
359 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
360 (snint
) statMemoryAccounted() >> 10,
364 case PERF_SYS_CPUTIME
:
365 squid_getrusage(&rusage
);
366 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
367 (snint
) rusage_cputime(&rusage
),
371 case PERF_SYS_CPUUSAGE
:
372 squid_getrusage(&rusage
);
373 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
374 (snint
) dpercent(rusage_cputime(&rusage
), tvSubDsec(squid_start
, current_time
)),
378 case PERF_SYS_MAXRESSZ
:
379 squid_getrusage(&rusage
);
380 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
381 (snint
) rusage_maxrss(&rusage
),
385 case PERF_SYS_CURLRUEXP
:
386 /* No global LRU info anymore */
387 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
392 case PERF_SYS_CURUNLREQ
:
393 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
394 (snint
) statCounter
.unlink
.requests
,
398 case PERF_SYS_CURUNUSED_FD
:
399 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
400 (snint
) Squid_MaxFD
- Number_FD
,
404 case PERF_SYS_CURRESERVED_FD
:
405 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
410 case PERF_SYS_CURUSED_FD
:
411 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
416 case PERF_SYS_CURMAX_FD
:
417 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
422 case PERF_SYS_NUMOBJCNT
:
423 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
424 (snint
) StoreEntry::inUseCount(),
429 *ErrP
= SNMP_ERR_NOSUCHNAME
;
437 snmp_prfProtoFn(variable_list
* Var
, snint
* ErrP
)
439 variable_list
*Answer
= NULL
;
440 static StatCounters
*f
= NULL
;
441 static StatCounters
*l
= NULL
;
444 debugs(49, 5, "snmp_prfProtoFn: Processing request with magic " << Var
->name
[LEN_SQ_PRF
] << "!");
445 *ErrP
= SNMP_ERR_NOERROR
;
447 switch (Var
->name
[LEN_SQ_PRF
+ 1]) {
449 case PERF_PROTOSTAT_AGGR
: /* cacheProtoAggregateStats */
451 switch (Var
->name
[LEN_SQ_PRF
+ 2]) {
453 case PERF_PROTOSTAT_AGGR_HTTP_REQ
:
454 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
455 (snint
) statCounter
.client_http
.requests
,
459 case PERF_PROTOSTAT_AGGR_HTTP_HITS
:
460 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
461 (snint
) statCounter
.client_http
.hits
,
465 case PERF_PROTOSTAT_AGGR_HTTP_ERRORS
:
466 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
467 (snint
) statCounter
.client_http
.errors
,
471 case PERF_PROTOSTAT_AGGR_HTTP_KBYTES_IN
:
472 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
473 (snint
) statCounter
.client_http
.kbytes_in
.kb
,
477 case PERF_PROTOSTAT_AGGR_HTTP_KBYTES_OUT
:
478 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
479 (snint
) statCounter
.client_http
.kbytes_out
.kb
,
483 case PERF_PROTOSTAT_AGGR_ICP_S
:
484 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
485 (snint
) statCounter
.icp
.pkts_sent
,
489 case PERF_PROTOSTAT_AGGR_ICP_R
:
490 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
491 (snint
) statCounter
.icp
.pkts_recv
,
495 case PERF_PROTOSTAT_AGGR_ICP_SKB
:
496 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
497 (snint
) statCounter
.icp
.kbytes_sent
.kb
,
501 case PERF_PROTOSTAT_AGGR_ICP_RKB
:
502 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
503 (snint
) statCounter
.icp
.kbytes_recv
.kb
,
507 case PERF_PROTOSTAT_AGGR_REQ
:
508 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
509 (snint
) statCounter
.server
.all
.requests
,
513 case PERF_PROTOSTAT_AGGR_ERRORS
:
514 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
515 (snint
) statCounter
.server
.all
.errors
,
519 case PERF_PROTOSTAT_AGGR_KBYTES_IN
:
520 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
521 (snint
) statCounter
.server
.all
.kbytes_in
.kb
,
525 case PERF_PROTOSTAT_AGGR_KBYTES_OUT
:
526 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
527 (snint
) statCounter
.server
.all
.kbytes_out
.kb
,
531 case PERF_PROTOSTAT_AGGR_CURSWAP
:
532 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
533 (snint
) store_swap_size
,
537 case PERF_PROTOSTAT_AGGR_CLIENTS
:
538 Answer
= snmp_var_new_integer(Var
->name
, Var
->name_length
,
539 (snint
) statCounter
.client_http
.clients
,
544 *ErrP
= SNMP_ERR_NOSUCHNAME
;
550 case PERF_PROTOSTAT_MEDIAN
:
552 if (Var
->name_length
== LEN_SQ_PRF
+ 5)
553 minutes
= Var
->name
[LEN_SQ_PRF
+ 4];
557 if ((minutes
< 1) || (minutes
> 60))
562 l
= snmpStatGet(minutes
);
564 debugs(49, 8, "median: min= " << minutes
<< ", " << Var
->name
[LEN_SQ_PRF
+ 3] << " l= " << l
<< " , f = " << f
);
565 debugs(49, 8, "median: l= " << l
<< " , f = " << f
);
567 switch (Var
->name
[LEN_SQ_PRF
+ 3]) {
569 case PERF_MEDIAN_TIME
:
573 case PERF_MEDIAN_HTTP_ALL
:
574 x
= statHistDeltaMedian(&l
->client_http
.all_svc_time
,
575 &f
->client_http
.all_svc_time
);
578 case PERF_MEDIAN_HTTP_MISS
:
579 x
= statHistDeltaMedian(&l
->client_http
.miss_svc_time
,
580 &f
->client_http
.miss_svc_time
);
583 case PERF_MEDIAN_HTTP_NM
:
584 x
= statHistDeltaMedian(&l
->client_http
.nm_svc_time
,
585 &f
->client_http
.nm_svc_time
);
588 case PERF_MEDIAN_HTTP_HIT
:
589 x
= statHistDeltaMedian(&l
->client_http
.hit_svc_time
,
590 &f
->client_http
.hit_svc_time
);
593 case PERF_MEDIAN_ICP_QUERY
:
594 x
= statHistDeltaMedian(&l
->icp
.query_svc_time
, &f
->icp
.query_svc_time
);
597 case PERF_MEDIAN_ICP_REPLY
:
598 x
= statHistDeltaMedian(&l
->icp
.reply_svc_time
, &f
->icp
.reply_svc_time
);
601 case PERF_MEDIAN_DNS
:
602 x
= statHistDeltaMedian(&l
->dns
.svc_time
, &f
->dns
.svc_time
);
605 case PERF_MEDIAN_RHR
:
606 x
= statRequestHitRatio(minutes
);
609 case PERF_MEDIAN_BHR
:
610 x
= statByteHitRatio(minutes
);
613 case PERF_MEDIAN_HTTP_NH
:
614 x
= statHistDeltaMedian(&l
->client_http
.nh_svc_time
,
615 &f
->client_http
.nh_svc_time
);
619 *ErrP
= SNMP_ERR_NOSUCHNAME
;
623 return snmp_var_new_integer(Var
->name
, Var
->name_length
,
628 *ErrP
= SNMP_ERR_NOSUCHNAME
;