--- /dev/null
+/*
+ * Copyright (c) 2002-2003, Index Data.
+ * See the file LICENSE for details.
+ *
+ * $Id: zgdu.c,v 1.1 2003-02-12 15:06:44 adam Exp $
+ */
+
+#include <yaz/proto.h>
+
+#define HTTP_DEBUG 0
+
+static int decode_headers_content(ODR o, int off, Z_HTTP_Header **headers,
+ char **content_buf, int *content_len)
+{
+ int i = off;
+
+ *headers = 0;
+ while (i < o->size-1 && o->buf[i] == '\r')
+ {
+ int po;
+ i++;
+ if (o->buf[i] != '\n')
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ i++;
+ if (o->buf[i] == '\r')
+ break;
+ for (po = i; ; i++)
+ {
+ if (i == o->size)
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ else if (o->buf[i] == ':')
+ break;
+ }
+ *headers = odr_malloc(o, sizeof(**headers));
+ (*headers)->name = odr_malloc(o, i - po + 1);
+ memcpy ((*headers)->name, o->buf + po, i - po);
+ (*headers)->name[i - po] = '\0';
+ i++;
+ while (i < o->size-1 && o->buf[i] == ' ')
+ i++;
+ for (po = i; i < o->size-1 && o->buf[i] != '\r' ; i++)
+ ;
+
+ (*headers)->value = odr_malloc(o, i - po + 1);
+ memcpy ((*headers)->value, o->buf + po, i - po);
+ (*headers)->value[i - po] = '\0';
+
+ headers = &(*headers)->next;
+ }
+ *headers = 0;
+ i++;
+ if (o->buf[i] != '\n')
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ i++;
+
+ if (i > o->size)
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ else if (i == o->size)
+ {
+ *content_buf = 0;
+ *content_len = 0;
+ }
+ else
+ {
+ *content_len = o->size - i;
+ *content_buf = odr_malloc(o, *content_len + 1);
+ memcpy(*content_buf, o->buf + i, *content_len);
+ (*content_buf)[*content_len] = '\0';
+ }
+ return 1;
+}
+
+void z_HTTP_header_add(ODR o, Z_HTTP_Header **hp, const char *n,
+ const char *v)
+{
+ while (*hp)
+ hp = &(*hp)->next;
+ *hp = odr_malloc(o, sizeof(**hp));
+ (*hp)->name = odr_strdup(o, n);
+ (*hp)->value = odr_strdup(o, v);
+ (*hp)->next = 0;
+}
+
+const char *z_HTTP_header_lookup(Z_HTTP_Header *hp, const char *n)
+{
+ for (; hp; hp = hp->next)
+ if (!strcmp(hp->name, n))
+ return hp->value;
+ return 0;
+}
+
+
+Z_GDU *z_get_HTTP_Response(ODR o, int code)
+{
+ Z_GDU *p = odr_malloc(o, sizeof(*p));
+ Z_HTTP_Response *hres;
+
+ p->which = Z_GDU_HTTP_Response;
+ hres = p->u.HTTP_Response = odr_malloc(o, sizeof(*hres));
+ hres->headers = 0;
+ hres->content_len = 0;
+ hres->content_buf = 0;
+ hres->code = code;
+ hres->version = "1.1";
+ z_HTTP_header_add(o, &hres->headers, "Server",
+ "YAZ/" YAZ_VERSION);
+ if (code != 200)
+ {
+ hres->content_buf = odr_malloc(o, 400);
+ sprintf (hres->content_buf,
+ "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">\n"
+ "<HTML>\n"
+ " <HEAD>\n"
+ " <TITLE>YAZ " YAZ_VERSION "</TITLE>\n"
+ " </HEAD>\n"
+ " <BODY>\n"
+ " <P><A HREF=\"http://www.indexdata.dk/yaz/\">YAZ</A> "
+ YAZ_VERSION "</P>\n"
+ " <P>Error: %d</P>\n"
+ " <P>Description: %.50s</P>\n"
+ " </BODY>\n"
+ "</HTML>\n",
+ code, z_HTTP_errmsg(code));
+ hres->content_len = strlen(hres->content_buf);
+ z_HTTP_header_add(o, &hres->headers, "Content-Type", "text/html");
+ }
+ return p;
+}
+
+const char *z_HTTP_errmsg(int code)
+{
+ if (code == 200)
+ return "OK";
+ else if (code == 400)
+ return "Bad Request";
+ else if (code == 404)
+ return "Not Found";
+ else if (code == 405)
+ return "Method Not Allowed";
+ else if (code == 500)
+ return "Internal Error";
+ else
+ return "Unknown Error";
+}
+
+int z_GDU (ODR o, Z_GDU **p, int opt, const char *name)
+{
+ if (o->direction == ODR_DECODE) {
+ *p = odr_malloc(o, sizeof(**p));
+ if (o->size > 10 && !memcmp(o->buf, "HTTP/", 5))
+ {
+ int i, po;
+ Z_HTTP_Response *hr;
+ (*p)->which = Z_GDU_HTTP_Response;
+
+ hr = (*p)->u.HTTP_Response = odr_malloc(o, sizeof(*hr));
+
+ po = i = 5;
+ while (i < o->size-2 && o->buf[i] != ' ' && o->buf[i] != '\r')
+ i++;
+ hr->version = odr_malloc(o, i - po + 1);
+ if (i - po)
+ memcpy(hr->version, o->buf + po, i - po);
+ hr->version[i-po] = 0;
+ if (o->buf[i] != ' ')
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ i++;
+ hr->code = 0;
+ while (i < o->size-2 && o->buf[i] >= '0' && o->buf[i] <= '9')
+ {
+ hr->code = hr->code*10 + (o->buf[i] - '0');
+ i++;
+ }
+ while (i < o->size-1 && o->buf[i] != '\r')
+ i++;
+ return decode_headers_content(o, i, &hr->headers,
+ &hr->content_buf, &hr->content_len);
+ }
+ else if (o->size > 5 &&
+ o->buf[0] >= 0x20 && o->buf[0] < 0x7f
+ && o->buf[1] >= 0x20 && o->buf[1] < 0x7f
+ && o->buf[2] >= 0x20 && o->buf[2] < 0x7f
+ && o->buf[3] >= 0x20 && o->buf[3] < 0x7f)
+ {
+ int i, po;
+ Z_HTTP_Request *hr;
+
+#if HTTP_DEBUG
+ fprintf(stderr, "HTTP decode:\n%.*s\n", o->size, o->buf);
+#endif
+ (*p)->which = Z_GDU_HTTP_Request;
+ hr = (*p)->u.HTTP_Request = odr_malloc(o, sizeof(*hr));
+
+ /* method .. */
+ for (i = 0; o->buf[i] != ' '; i++)
+ if (i >= o->size-5 || i > 30)
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ hr->method = odr_malloc(o, i+1);
+ memcpy (hr->method, o->buf, i);
+ hr->method[i] = '\0';
+ /* path */
+ po = i+1;
+ for (i = po; o->buf[i] != ' '; i++)
+ if (i >= o->size-5)
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ hr->path = odr_malloc(o, i - po + 1);
+ memcpy (hr->path, o->buf+po, i - po);
+ hr->path[i - po] = '\0';
+ /* HTTP version */
+ i++;
+ if (i > o->size-5 || memcmp(o->buf+i, "HTTP/", 5))
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ i+= 5;
+ po = i;
+ while (o->buf[i] != '\r')
+ {
+ if (i >= o->size-1)
+ {
+ o->error = OHTTP;
+ return 0;
+ }
+ i++;
+ }
+ hr->version = odr_malloc(o, i - po + 1);
+ memcpy(hr->version, o->buf + po, i - po);
+ hr->version[i - po] = '\0';
+ /* headers */
+ return decode_headers_content(o, i, &hr->headers,
+ &hr->content_buf, &hr->content_len);
+
+ }
+ else
+ {
+ (*p)->which = Z_GDU_Z3950;
+ return z_APDU(o, &(*p)->u.z3950, opt, 0);
+ }
+ }
+ else if (o->direction == ODR_ENCODE)
+ {
+ char sbuf[80];
+ Z_HTTP_Header *h;
+ switch((*p)->which)
+ {
+ case Z_GDU_HTTP_Response:
+ sprintf(sbuf, "HTTP/%s %d %s\r\n", (*p)->u.HTTP_Response->version,
+ (*p)->u.HTTP_Response->code,
+ z_HTTP_errmsg((*p)->u.HTTP_Response->code));
+ odr_write(o, sbuf, strlen(sbuf));
+ /* apply Content-Length if not already applied */
+ if (!z_HTTP_header_lookup((*p)->u.HTTP_Response->headers,
+ "Content-Length"))
+ {
+ char lstr[20];
+ sprintf(lstr, "%d", (*p)->u.HTTP_Response->content_len);
+ z_HTTP_header_add(o,
+ &(*p)->u.HTTP_Response->headers,
+ "Content-Length", lstr);
+ }
+ for (h = (*p)->u.HTTP_Response->headers; h; h = h->next)
+ {
+ odr_write(o, h->name, strlen(h->name));
+ odr_write(o, ": ", 2);
+ odr_write(o, h->value, strlen(h->value));
+ odr_write(o, "\r\n", 2);
+ }
+ odr_write(o, "\r\n", 2);
+ if ((*p)->u.HTTP_Response->content_buf)
+ odr_write(o, (*p)->u.HTTP_Response->content_buf,
+ (*p)->u.HTTP_Response->content_len);
+#if HTTP_DEBUG
+ fprintf(stderr, "HTTP response:\n%.*s\n", o->top, o->buf);
+#endif
+ break;
+ case Z_GDU_HTTP_Request:
+ odr_write(o, (*p)->u.HTTP_Request->method,
+ strlen((*p)->u.HTTP_Request->method));
+ odr_write(o, " ", 1);
+ odr_write(o, (*p)->u.HTTP_Request->path,
+ strlen((*p)->u.HTTP_Request->path));
+ odr_write(o, " HTTP/", 6);
+ odr_write(o, (*p)->u.HTTP_Request->version,
+ strlen((*p)->u.HTTP_Request->version));
+ odr_write(o, "\r\n", 2);
+ for (h = (*p)->u.HTTP_Request->headers; h; h = h->next)
+ {
+ odr_write(o, h->name, strlen(h->name));
+ odr_write(o, ": ", 2);
+ odr_write(o, h->value, strlen(h->value));
+ odr_write(o, "\r\n", 2);
+ }
+ odr_write(o, "\r\n", 2);
+ if ((*p)->u.HTTP_Request->content_buf)
+ odr_write(o, (*p)->u.HTTP_Request->content_buf,
+ (*p)->u.HTTP_Request->content_len);
+#if HTTP_DEBUG
+ fprintf(stderr, "HTTP request:\n%.*s\n", o->top, o->buf);
+#endif
+ break;
+ case Z_GDU_Z3950:
+ return z_APDU(o, &(*p)->u.z3950, opt, 0);
+ }
+ }
+ else if (o->direction == ODR_PRINT)
+ {
+ switch((*p)->which)
+ {
+ case Z_GDU_HTTP_Response:
+ fprintf (stderr, "not implemented");
+ break;
+ case Z_GDU_HTTP_Request:
+ fprintf (stderr, "not implemented");
+ break;
+ case Z_GDU_Z3950:
+ return z_APDU(o, &(*p)->u.z3950, opt, 0);
+ }
+ }
+ return 1;
+}
+