c7d782c6370c7d308d1ad56ed63f942e3db5bec5
1 /**
2 * collectd - src/zfs_arc.c
3 * Copyright (C) 2009 Anthony Dewhurst
4 * Copyright (C) 2012 Aurelien Rougemont
5 * Copyright (C) 2013 Xin Li
6 * Copyright (C) 2014 Marc Fournier
7 * Copyright (C) 2014 Wilfried Goesgens
8 *
9 * This program is free software; you can redistribute it and/or modify it
10 * under the terms of the GNU General Public License as published by the
11 * Free Software Foundation; only version 2 of the License is applicable.
12 *
13 * This program is distributed in the hope that it will be useful, but
14 * WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License along
19 * with this program; if not, write to the Free Software Foundation, Inc.,
20 * 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
21 *
22 * Authors:
23 * Anthony Dewhurst <dewhurst at gmail>
24 * Aurelien Rougemont <beorn at gandi.net>
25 * Xin Li <delphij at FreeBSD.org>
26 * Marc Fournier <marc.fournier at camptocamp.com>
27 * Wilfried Goesgens <dothebart at citadel.org>
28 **/
30 #include "collectd.h"
32 #include "common.h"
33 #include "plugin.h"
35 /*
36 * Global variables
37 */
39 #if defined(KERNEL_LINUX)
40 #include "utils_llist.h"
41 #define ZOL_ARCSTATS_FILE "/proc/spl/kstat/zfs/arcstats"
43 typedef llist_t kstat_t;
45 static int put_zfs_value (kstat_t *ksp, char const *k, value_t v)
46 {
47 llentry_t *e;
48 char *k_copy;
49 value_t *v_copy;
51 k_copy = strdup (k);
52 if (k_copy == NULL)
53 return ENOMEM;
55 v_copy = malloc (sizeof (*v_copy));
56 if (v_copy == NULL)
57 {
58 sfree (k_copy);
59 return ENOMEM;
60 }
61 *v_copy = v;
63 e = llentry_create (k_copy, v_copy);
64 if (e == NULL)
65 {
66 sfree (v_copy);
67 sfree (k_copy);
68 return ENOMEM;
69 }
71 llist_append (ksp, e);
72 return 0;
73 }
75 static long long get_zfs_value(kstat_t *ksp, const char *key)
76 {
77 llentry_t *e;
78 value_t *v;
80 e = llist_search (ksp, key);
81 if (e == NULL)
82 {
83 ERROR ("zfs_arc plugin: `llist_search` failed for key: '%s'.", key);
84 return (-1);
85 }
87 v = e->value;
88 return ((long long) v->derive);
89 }
91 static void free_zfs_values (kstat_t *ksp)
92 {
93 if (ksp == NULL)
94 return;
96 for (llentry_t *e = llist_head (ksp); e != NULL; e = e->next)
97 {
98 sfree (e->key);
99 sfree (e->value);
100 }
102 llist_destroy (ksp);
103 }
105 #elif defined(KERNEL_SOLARIS)
106 extern kstat_ctl_t *kc;
108 static long long get_zfs_value(kstat_t *ksp, char *name)
109 {
111 return (get_kstat_value(ksp, name));
112 }
113 #elif defined(KERNEL_FREEBSD)
114 #include <sys/types.h>
115 #include <sys/sysctl.h>
117 const char zfs_arcstat[] = "kstat.zfs.misc.arcstats.";
119 #if !defined(kstat_t)
120 typedef void kstat_t;
121 #endif
123 static long long get_zfs_value(kstat_t *dummy __attribute__((unused)),
124 char const *name)
125 {
126 char buffer[256];
127 long long value;
128 size_t valuelen = sizeof(value);
129 int rv;
131 ssnprintf (buffer, sizeof (buffer), "%s%s", zfs_arcstat, name);
132 rv = sysctlbyname (buffer, (void *) &value, &valuelen,
133 /* new value = */ NULL, /* new length = */ (size_t) 0);
134 if (rv == 0)
135 return (value);
137 return (-1);
138 }
139 #endif
141 static void za_submit (const char* type, const char* type_instance, value_t* values, int values_len)
142 {
143 value_list_t vl = VALUE_LIST_INIT;
145 vl.values = values;
146 vl.values_len = values_len;
148 sstrncpy (vl.host, hostname_g, sizeof (vl.host));
149 sstrncpy (vl.plugin, "zfs_arc", sizeof (vl.plugin));
150 sstrncpy (vl.type, type, sizeof (vl.type));
151 sstrncpy (vl.type_instance, type_instance, sizeof (vl.type_instance));
153 plugin_dispatch_values (&vl);
154 }
156 static void za_submit_gauge (const char* type, const char* type_instance, gauge_t value)
157 {
158 value_t vv;
160 vv.gauge = value;
161 za_submit (type, type_instance, &vv, 1);
162 }
164 static int za_read_derive (kstat_t *ksp, const char *kstat_value,
165 const char *type, const char *type_instance)
166 {
167 long long tmp;
168 value_t v;
170 tmp = get_zfs_value (ksp, (char *)kstat_value);
171 if (tmp == -1LL)
172 {
173 WARNING ("zfs_arc plugin: Reading kstat value \"%s\" failed.", kstat_value);
174 return (-1);
175 }
177 v.derive = (derive_t) tmp;
178 za_submit (type, type_instance, /* values = */ &v, /* values_num = */ 1);
179 return (0);
180 }
182 static int za_read_gauge (kstat_t *ksp, const char *kstat_value,
183 const char *type, const char *type_instance)
184 {
185 long long tmp;
186 value_t v;
188 tmp = get_zfs_value (ksp, (char *)kstat_value);
189 if (tmp == -1LL)
190 {
191 WARNING ("zfs_arc plugin: Reading kstat value \"%s\" failed.", kstat_value);
192 return (-1);
193 }
195 v.gauge = (gauge_t) tmp;
196 za_submit (type, type_instance, /* values = */ &v, /* values_num = */ 1);
197 return (0);
198 }
200 static void za_submit_ratio (const char* type_instance, gauge_t hits, gauge_t misses)
201 {
202 gauge_t ratio = NAN;
204 if (!isfinite (hits) || (hits < 0.0))
205 hits = 0.0;
206 if (!isfinite (misses) || (misses < 0.0))
207 misses = 0.0;
209 if ((hits != 0.0) || (misses != 0.0))
210 ratio = hits / (hits + misses);
212 za_submit_gauge ("cache_ratio", type_instance, ratio);
213 }
215 static int za_read (void)
216 {
217 gauge_t arc_hits, arc_misses, l2_hits, l2_misses;
218 value_t l2_io[2];
219 kstat_t *ksp = NULL;
221 #if defined(KERNEL_LINUX)
222 FILE *fh;
223 char buffer[1024];
225 fh = fopen (ZOL_ARCSTATS_FILE, "r");
226 if (fh == NULL)
227 {
228 char errbuf[1024];
229 ERROR ("zfs_arc plugin: Opening \"%s\" failed: %s", ZOL_ARCSTATS_FILE,
230 sstrerror (errno, errbuf, sizeof (errbuf)));
231 return (-1);
232 }
234 ksp = llist_create ();
235 if (ksp == NULL)
236 {
237 ERROR ("zfs_arc plugin: `llist_create' failed.");
238 fclose (fh);
239 return (-1);
240 }
242 while (fgets (buffer, sizeof (buffer), fh) != NULL)
243 {
244 char *fields[3];
245 value_t v;
246 int status;
248 status = strsplit (buffer, fields, STATIC_ARRAY_SIZE (fields));
249 if (status != 3)
250 continue;
252 status = parse_value (fields[2], &v, DS_TYPE_DERIVE);
253 if (status != 0)
254 continue;
256 put_zfs_value (ksp, fields[0], v);
257 }
259 fclose (fh);
261 #elif defined(KERNEL_SOLARIS)
262 get_kstat (&ksp, "zfs", 0, "arcstats");
263 if (ksp == NULL)
264 {
265 ERROR ("zfs_arc plugin: Cannot find zfs:0:arcstats kstat.");
266 return (-1);
267 }
268 #endif
270 /* Sizes */
271 za_read_gauge (ksp, "anon_size", "cache_size", "anon_size");
272 za_read_gauge (ksp, "c", "cache_size", "c");
273 za_read_gauge (ksp, "c_max", "cache_size", "c_max");
274 za_read_gauge (ksp, "c_min", "cache_size", "c_min");
275 za_read_gauge (ksp, "hdr_size", "cache_size", "hdr_size");
276 za_read_gauge (ksp, "metadata_size", "cache_size", "metadata_size");
277 za_read_gauge (ksp, "mfu_ghost_size", "cache_size", "mfu_ghost_size");
278 za_read_gauge (ksp, "mfu_size", "cache_size", "mfu_size");
279 za_read_gauge (ksp, "mru_ghost_size", "cache_size", "mru_ghost_size");
280 za_read_gauge (ksp, "mru_size", "cache_size", "mru_size");
281 za_read_gauge (ksp, "other_size", "cache_size", "other_size");
282 za_read_gauge (ksp, "p", "cache_size", "p");
283 za_read_gauge (ksp, "size", "cache_size", "arc");
285 /* The "l2_size" value has disappeared from Solaris some time in
286 * early 2013, and has only reappeared recently in Solaris 11.2.
287 * Stop trying if we ever fail to read it, so we don't spam the log.
288 */
289 static int l2_size_avail = 1;
290 if (l2_size_avail && za_read_gauge (ksp, "l2_size", "cache_size", "L2") != 0)
291 l2_size_avail = 0;
293 /* Operations */
294 za_read_derive (ksp, "deleted", "cache_operation", "deleted");
295 #if defined(KERNEL_FREEBSD)
296 za_read_derive (ksp, "allocated","cache_operation", "allocated");
297 #endif
299 /* Issue indicators */
300 za_read_derive (ksp, "mutex_miss", "mutex_operations", "miss");
301 za_read_derive (ksp, "hash_collisions", "hash_collisions", "");
302 za_read_derive (ksp, "memory_throttle_count", "memory_throttle_count", "");
304 /* Evictions */
305 za_read_derive (ksp, "evict_l2_cached", "cache_eviction", "cached");
306 za_read_derive (ksp, "evict_l2_eligible", "cache_eviction", "eligible");
307 za_read_derive (ksp, "evict_l2_ineligible", "cache_eviction", "ineligible");
309 /* Hits / misses */
310 za_read_derive (ksp, "demand_data_hits", "cache_result", "demand_data-hit");
311 za_read_derive (ksp, "demand_metadata_hits", "cache_result", "demand_metadata-hit");
312 za_read_derive (ksp, "prefetch_data_hits", "cache_result", "prefetch_data-hit");
313 za_read_derive (ksp, "prefetch_metadata_hits", "cache_result", "prefetch_metadata-hit");
314 za_read_derive (ksp, "demand_data_misses", "cache_result", "demand_data-miss");
315 za_read_derive (ksp, "demand_metadata_misses", "cache_result", "demand_metadata-miss");
316 za_read_derive (ksp, "prefetch_data_misses", "cache_result", "prefetch_data-miss");
317 za_read_derive (ksp, "prefetch_metadata_misses", "cache_result", "prefetch_metadata-miss");
318 za_read_derive (ksp, "mfu_hits", "cache_result", "mfu-hit");
319 za_read_derive (ksp, "mfu_ghost_hits", "cache_result", "mfu_ghost-hit");
320 za_read_derive (ksp, "mru_hits", "cache_result", "mru-hit");
321 za_read_derive (ksp, "mru_ghost_hits", "cache_result", "mru_ghost-hit");
323 /* Ratios */
324 arc_hits = (gauge_t) get_zfs_value(ksp, "hits");
325 arc_misses = (gauge_t) get_zfs_value(ksp, "misses");
326 l2_hits = (gauge_t) get_zfs_value(ksp, "l2_hits");
327 l2_misses = (gauge_t) get_zfs_value(ksp, "l2_misses");
329 za_submit_ratio ("arc", arc_hits, arc_misses);
330 za_submit_ratio ("L2", l2_hits, l2_misses);
332 /* I/O */
333 l2_io[0].derive = get_zfs_value(ksp, "l2_read_bytes");
334 l2_io[1].derive = get_zfs_value(ksp, "l2_write_bytes");
336 za_submit ("io_octets", "L2", l2_io, /* num values = */ 2);
338 #if defined(KERNEL_LINUX)
339 free_zfs_values (ksp);
340 #endif
342 return (0);
343 } /* int za_read */
345 static int za_init (void) /* {{{ */
346 {
347 #if defined(KERNEL_SOLARIS)
348 /* kstats chain already opened by update_kstat (using *kc), verify everything went fine. */
349 if (kc == NULL)
350 {
351 ERROR ("zfs_arc plugin: kstat chain control structure not available.");
352 return (-1);
353 }
354 #endif
356 return (0);
357 } /* }}} int za_init */
359 void module_register (void)
360 {
361 plugin_register_init ("zfs_arc", za_init);
362 plugin_register_read ("zfs_arc", za_read);
363 } /* void module_register */
365 /* vmi: set sw=8 noexpandtab fdm=marker : */