+ response_open(c, "session-status");
+ session_status(c, s);
+ response_close(c, "session-status");
+ release_session(c, s);
+}
+
+int sessions_count(void);
+int clients_count(void);
+#ifdef HAVE_RESULTSETS_COUNT
+int resultsets_count(void);
+#else
+#define resultsets_count() 0
+#endif
+
+static void cmd_server_status(struct http_channel *c)
+{
+ int sessions = sessions_count();
+ int clients = clients_count();
+ int resultsets = resultsets_count();
+
+ response_open(c, "server-status");
+ wrbuf_printf(c->wrbuf, "\n <sessions>%u</sessions>\n", sessions);
+ wrbuf_printf(c->wrbuf, " <clients>%u</clients>\n", clients);
+ /* Only works if yaz has been compiled with enabling of this */
+ wrbuf_printf(c->wrbuf, " <resultsets>%u</resultsets>\n",resultsets);
+ print_meminfo(c->wrbuf);
+
+/* TODO add all sessions status */
+/* http_sessions_t http_sessions = c->http_sessions; */
+/* struct http_session *p; */
+/*
+ yaz_mutex_enter(http_sessions->mutex);
+ for (p = http_sessions->session_list; p; p = p->next)
+ {
+ p->activity_counter++;
+ wrbuf_puts(c->wrbuf, "<session-status>\n");
+ wrbuf_printf(c->wrbuf, "<id>%s</id>\n", p->session_id);
+ yaz_mutex_leave(http_sessions->mutex);
+ session_status(c, p);
+ wrbuf_puts(c->wrbuf, "</session-status>\n");
+ yaz_mutex_enter(http_sessions->mutex);
+ p->activity_counter--;
+ }
+ yaz_mutex_leave(http_sessions->mutex);
+*/
+ response_close(c, "server-status");
+ xmalloc_trav(0);
+}
+
+static void bytarget_response(struct http_channel *c, struct http_session *s, const char *cmd_status) {
+ int count, i;
+ struct hitsbytarget *ht;
+ struct http_request *rq = c->request;
+ const char *settings = http_argbyname(rq, "settings");
+ int version = get_version(rq);
+ ht = get_hitsbytarget(s->psession, &count, c->nmem);
+ if (!cmd_status)
+ /* Old protocol, always ok */
+ response_open(c, "bytarget");
+ else {
+ /* New protocol, OK or WARNING (...)*/
+ response_open_no_status(c, "bytarget");
+ wrbuf_printf(c->wrbuf, "<status>%s</status>", cmd_status);
+ }
+
+ if (count == 0)
+ session_log(s->psession, YLOG_WARN,
+ "Empty bytarget Response. No targets found!");