7 #include <rados/librados.h>
11 #define DPRINTF(fmt, ...)\
12 do { if (DEBUG_RADOS) { printf("debug: " fmt, ## __VA_ARGS__); } } while (0)
14 MODULE = PVE::RADOS PACKAGE = PVE::RADOS
22 int ret = rados_create(&clu, NULL);
27 die("rados_create failed - %s\n", strerror(-ret));
34 pve_rados_conf_set(cluster, key, value)
41 DPRINTF("pve_rados_conf_set %s = %s\n", key, value);
43 int res = rados_conf_set(cluster, key, value);
45 die("rados_conf_set failed - %s\n", strerror(-res));
50 pve_rados_conf_read_file(cluster, path)
62 DPRINTF("pve_rados_conf_read_file %s\n", p);
64 int res = rados_conf_read_file(cluster, p);
66 die("rados_conf_read_file failed - %s\n", strerror(-res));
71 pve_rados_connect(cluster)
76 DPRINTF("pve_rados_connect\n");
78 int res = rados_connect(cluster);
80 die("rados_connect failed - %s\n", strerror(-res));
85 pve_rados_shutdown(cluster)
90 DPRINTF("pve_rados_shutdown");
91 rados_shutdown(cluster);
95 pve_rados_mon_command(cluster, cmds)
105 size_t outbuflen = 0;
111 while ((arg = av_pop(cmds)) && (arg != &PL_sv_undef)) {
113 die("too many arguments");
115 cmd[cmdlen] = SvPV_nolen(arg);
116 DPRINTF("pve_rados_mon_command%zd %s\n", cmdlen, cmd[cmdlen]);
120 int ret = rados_mon_command(cluster, cmd, cmdlen,
127 snprintf(msg, sizeof(msg), "mon_command failed - %s\n", outs);
128 rados_buffer_free(outs);
132 RETVAL = newSVpv(outbuf, outbuflen);
134 rados_buffer_free(outbuf);
139 pve_rados_cluster_stat(cluster)
144 struct rados_cluster_stat_t result;
146 DPRINTF("pve_rados_cluster_stat");
148 int ret = rados_cluster_stat(cluster, &result);
151 warn("rados_cluster_stat failed (ret=%d)\n", ret);
154 HV * rh = (HV *)sv_2mortal((SV *)newHV());
156 (void)hv_store(rh, "kb", 2, newSViv(result.kb), 0);
157 (void)hv_store(rh, "kb_used", 7, newSViv(result.kb_used), 0);
158 (void)hv_store(rh, "kb_avail", 8, newSViv(result.kb_avail), 0);
159 (void)hv_store(rh, "num_objects", 11, newSViv(result.num_objects), 0);