+static void write_metadata(WRBUF w, struct conf_service *service,
+ struct record_metadata **ml, int full)
+{
+ int imeta;
+
+ for (imeta = 0; imeta < service->num_metadata; imeta++)
+ {
+ struct conf_metadata *cmd = &service->metadata[imeta];
+ struct record_metadata *md;
+ if (!cmd->brief && !full)
+ continue;
+ for (md = ml[imeta]; md; md = md->next)
+ {
+ wrbuf_printf(w, "<md-%s>", cmd->name);
+ switch (cmd->type)
+ {
+ case Metadata_type_generic:
+ wrbuf_puts(w, md->data.text);
+ break;
+ case Metadata_type_year:
+ wrbuf_printf(w, "%d", md->data.number.min);
+ if (md->data.number.min != md->data.number.max)
+ wrbuf_printf(w, "-%d", md->data.number.max);
+ break;
+ default:
+ wrbuf_puts(w, "[can't represent]");
+ }
+ wrbuf_printf(w, "</md-%s>", cmd->name);
+ }
+ }
+}
+
+static void cmd_record(struct http_channel *c)
+{
+ struct http_response *rs = c->response;
+ struct http_request *rq = c->request;
+ struct http_session *s = locate_session(rq, rs);
+ struct record_cluster *rec;
+ struct conf_service *service = global_parameters.server->service;
+ char *idstr = http_argbyname(rq, "id");
+ int id;
+
+ if (!s)
+ return;
+ if (!idstr)
+ {
+ error(rs, "417", "Must supply id", 0);
+ return;
+ }
+ wrbuf_rewind(c->wrbuf);
+ id = atoi(idstr);
+ if (!(rec = show_single(s->psession, id)))
+ {
+ error(rs, "500", "Record missing", 0);
+ return;
+ }
+ wrbuf_puts(c->wrbuf, "<record>\n");
+ wrbuf_printf(c->wrbuf, "<recid>%d</recid>", rec->recid);
+ write_metadata(c->wrbuf, service, rec->metadata, 1);
+ wrbuf_puts(c->wrbuf, "</record>\n");
+ rs->payload = nmem_strdup(c->nmem, wrbuf_buf(c->wrbuf));
+ http_send_response(c);
+}
+
+static void show_records(struct http_channel *c, int active)