-/*
- * Copyright (c) 2002-2003, Index Data.
+/* This file is part of the YAZ toolkit.
+ * Copyright (C) 1995-2013 Index Data
* See the file LICENSE for details.
- *
- * $Id: zgdu.c,v 1.2 2003-12-21 11:33:29 adam Exp $
*/
+/**
+ * \file zgdu.c
+ * \brief Implements HTTP and Z39.50 encoding and decoding.
+ */
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include <string.h>
#include <yaz/odr.h>
-#include <yaz/yaz-version.h>
#include <yaz/zgdu.h>
-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 = (Z_HTTP_Header *) odr_malloc(o, sizeof(**headers));
- (*headers)->name = (char*) 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 = (char*) 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 = (char*) 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 = (Z_HTTP_Header *) 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 (!yaz_matchstr(hp->name, n))
- return hp->value;
- return 0;
-}
-
-
-Z_GDU *z_get_HTTP_Request(ODR o)
-{
- Z_GDU *p = (Z_GDU *) odr_malloc(o, sizeof(*p));
- Z_HTTP_Request *hreq;
-
- p->which = Z_GDU_HTTP_Request;
- p->u.HTTP_Request = (Z_HTTP_Request *) odr_malloc(o, sizeof(*hreq));
- hreq = p->u.HTTP_Request;
- hreq->headers = 0;
- hreq->content_len = 0;
- hreq->content_buf = 0;
- hreq->version = "1.1";
- hreq->method = "POST";
- hreq->path = "/";
- z_HTTP_header_add(o, &hreq->headers, "User-Agent",
- "YAZ/" YAZ_VERSION);
- return p;
-}
-
-Z_GDU *z_get_HTTP_Response(ODR o, int code)
-{
- Z_GDU *p = (Z_GDU *) odr_malloc(o, sizeof(*p));
- Z_HTTP_Response *hres;
-
- p->which = Z_GDU_HTTP_Response;
- p->u.HTTP_Response = (Z_HTTP_Response *) odr_malloc(o, sizeof(*hres));
- hres = p->u.HTTP_Response;
- 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 = (char*) 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)
+int z_GDU(ODR o, Z_GDU **p, int opt, const char *name)
{
if (o->direction == ODR_DECODE) {
*p = (Z_GDU *) 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;
+ (*p)->which = Z_GDU_HTTP_Response;
+ return yaz_decode_http_response(o, &(*p)->u.HTTP_Response);
- hr = (*p)->u.HTTP_Response = (Z_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 = (char *) 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[2] >= 0x20 && o->buf[2] < 0x7f
&& o->buf[3] >= 0x20 && o->buf[3] < 0x7f)
{
- int i, po;
- Z_HTTP_Request *hr;
-
- (*p)->which = Z_GDU_HTTP_Request;
- hr = (*p)->u.HTTP_Request =
- (Z_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 = (char *) 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 = (char *) 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 = (char *) 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);
-
+ (*p)->which = Z_GDU_HTTP_Request;
+ return yaz_decode_http_request(o, &(*p)->u.HTTP_Request);
}
else
{
- (*p)->which = Z_GDU_Z3950;
+ (*p)->which = Z_GDU_Z3950;
return z_APDU(o, &(*p)->u.z3950, opt, 0);
}
}
else /* ENCODE or PRINT */
{
- int top0 = o->top;
- 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, (unsigned char *) 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, (unsigned char *) h->name, strlen(h->name));
- odr_write(o, (unsigned char *) ": ", 2);
- odr_write(o, (unsigned char *) h->value, strlen(h->value));
- odr_write(o, (unsigned char *) "\r\n", 2);
- }
- odr_write(o, (unsigned char *) "\r\n", 2);
- if ((*p)->u.HTTP_Response->content_buf)
- odr_write(o, (unsigned char *)
- (*p)->u.HTTP_Response->content_buf,
- (*p)->u.HTTP_Response->content_len);
- if (o->direction == ODR_PRINT)
- {
- fprintf(o->print, "-- HTTP response:\n%.*s\n", o->top - top0,
- o->buf + top0);
- fprintf(o->print, "-- \n");
- }
- break;
+ return yaz_encode_http_response(o, (*p)->u.HTTP_Response);
case Z_GDU_HTTP_Request:
- odr_write(o, (unsigned char *) (*p)->u.HTTP_Request->method,
- strlen((*p)->u.HTTP_Request->method));
- odr_write(o, (unsigned char *) " ", 1);
- odr_write(o, (unsigned char *) (*p)->u.HTTP_Request->path,
- strlen((*p)->u.HTTP_Request->path));
- odr_write(o, (unsigned char *) " HTTP/", 6);
- odr_write(o, (unsigned char *) (*p)->u.HTTP_Request->version,
- strlen((*p)->u.HTTP_Request->version));
- odr_write(o, (unsigned char *) "\r\n", 2);
- if ((*p)->u.HTTP_Request->content_len &&
- !z_HTTP_header_lookup((*p)->u.HTTP_Request->headers,
- "Content-Length"))
- {
- char lstr[20];
- sprintf(lstr, "%d", (*p)->u.HTTP_Request->content_len);
- z_HTTP_header_add(o,
- &(*p)->u.HTTP_Request->headers,
- "Content-Length", lstr);
- }
- for (h = (*p)->u.HTTP_Request->headers; h; h = h->next)
- {
- odr_write(o, (unsigned char *) h->name, strlen(h->name));
- odr_write(o, (unsigned char *) ": ", 2);
- odr_write(o, (unsigned char *) h->value, strlen(h->value));
- odr_write(o, (unsigned char *) "\r\n", 2);
- }
- odr_write(o, (unsigned char *) "\r\n", 2);
- if ((*p)->u.HTTP_Request->content_buf)
- odr_write(o, (unsigned char *)
- (*p)->u.HTTP_Request->content_buf,
- (*p)->u.HTTP_Request->content_len);
- if (o->direction == ODR_PRINT)
- {
- fprintf(o->print, "-- HTTP request:\n%.*s\n", o->top, o->buf);
- }
- break;
+ return yaz_encode_http_request(o, (*p)->u.HTTP_Request);
case Z_GDU_Z3950:
return z_APDU(o, &(*p)->u.z3950, opt, 0);
}
}
- return 1;
+ return 0;
}
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+