1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) 1995-2013 Index Data
3 * See the file LICENSE for details.
7 * \brief Implements HTTP decoding
14 #include <yaz/yaz-version.h>
15 #include <yaz/yaz-iconv.h>
16 #include <yaz/matchstr.h>
18 #include <yaz/base64.h>
20 static int decode_headers_content(ODR o, int off, Z_HTTP_Header **headers,
21 char **content_buf, int *content_len)
27 while (i < o->size-1 && o->buf[i] == '\n')
31 if (o->buf[i] == '\r' && i < o->size-1 && o->buf[i+1] == '\n')
36 if (o->buf[i] == '\n')
45 else if (o->buf[i] == ':')
48 *headers = (Z_HTTP_Header *) odr_malloc(o, sizeof(**headers));
49 (*headers)->name = (char*) odr_malloc(o, i - po + 1);
50 memcpy ((*headers)->name, o->buf + po, i - po);
51 (*headers)->name[i - po] = '\0';
53 while (i < o->size-1 && o->buf[i] == ' ')
55 for (po = i; i < o->size-1 && !strchr("\r\n", o->buf[i]); i++)
58 (*headers)->value = (char*) odr_malloc(o, i - po + 1);
59 memcpy ((*headers)->value, o->buf + po, i - po);
60 (*headers)->value[i - po] = '\0';
62 if (!yaz_strcasecmp((*headers)->name, "Transfer-Encoding")
64 !yaz_strcasecmp((*headers)->value, "chunked"))
66 headers = &(*headers)->next;
67 if (i < o->size-1 && o->buf[i] == '\r')
71 if (o->buf[i] != '\n')
82 /* we know buffer will be smaller than o->size - i*/
83 *content_buf = (char*) odr_malloc(o, o->size - i);
89 for (; i < o->size-2; i++)
90 if (yaz_isdigit(o->buf[i]))
91 chunk_len = chunk_len * 16 +
93 else if (yaz_isupper(o->buf[i]))
94 chunk_len = chunk_len * 16 +
95 (o->buf[i] - ('A'-10));
96 else if (yaz_islower(o->buf[i]))
97 chunk_len = chunk_len * 16 +
98 (o->buf[i] - ('a'-10));
101 /* chunk extension ... */
102 while (o->buf[i] != '\r' && o->buf[i+1] != '\n')
111 i += 2; /* skip CRLF */
114 if (chunk_len < 0 || off + chunk_len > o->size)
120 memcpy (*content_buf + off, o->buf + i, chunk_len);
121 i += chunk_len + 2; /* skip chunk+CRLF */
135 else if (i == o->size)
142 *content_len = o->size - i;
143 *content_buf = (char*) odr_malloc(o, *content_len + 1);
144 memcpy(*content_buf, o->buf + i, *content_len);
145 (*content_buf)[*content_len] = '\0';
151 void z_HTTP_header_add_content_type(ODR o, Z_HTTP_Header **hp,
152 const char *content_type,
155 const char *l = "Content-Type";
158 char *ctype = (char *)
159 odr_malloc(o, strlen(content_type)+strlen(charset) + 15);
160 sprintf(ctype, "%s; charset=%s", content_type, charset);
161 z_HTTP_header_add(o, hp, l, ctype);
164 z_HTTP_header_add(o, hp, l, content_type);
169 * HTTP Basic authentication is described at:
170 * http://tools.ietf.org/html/rfc1945#section-11.1
172 void z_HTTP_header_add_basic_auth(ODR o, Z_HTTP_Header **hp,
173 const char *username, const char *password)
183 len = strlen(username) + strlen(password);
184 tmp = (char *) odr_malloc(o, len+2);
185 sprintf(tmp, "%s:%s", username, password);
186 buf = (char *) odr_malloc(o, (len+1) * 8/6 + 12);
187 strcpy(buf, "Basic ");
188 yaz_base64encode(tmp, &buf[strlen(buf)]);
189 z_HTTP_header_set(o, hp, "Authorization", buf);
193 void z_HTTP_header_add(ODR o, Z_HTTP_Header **hp, const char *n,
198 *hp = (Z_HTTP_Header *) odr_malloc(o, sizeof(**hp));
199 (*hp)->name = odr_strdup(o, n);
200 (*hp)->value = odr_strdup(o, v);
204 void z_HTTP_header_set(ODR o, Z_HTTP_Header **hp, const char *n,
209 if (!yaz_strcasecmp((*hp)->name, n))
211 (*hp)->value = odr_strdup(o, v);
216 *hp = (Z_HTTP_Header *) odr_malloc(o, sizeof(**hp));
217 (*hp)->name = odr_strdup(o, n);
218 (*hp)->value = odr_strdup(o, v);
222 const char *z_HTTP_header_lookup(const Z_HTTP_Header *hp, const char *n)
224 for (; hp; hp = hp->next)
225 if (!yaz_strcasecmp(hp->name, n))
231 Z_GDU *z_get_HTTP_Request(ODR o)
233 Z_GDU *p = (Z_GDU *) odr_malloc(o, sizeof(*p));
234 Z_HTTP_Request *hreq;
236 p->which = Z_GDU_HTTP_Request;
237 p->u.HTTP_Request = (Z_HTTP_Request *) odr_malloc(o, sizeof(*hreq));
238 hreq = p->u.HTTP_Request;
240 hreq->content_len = 0;
241 hreq->content_buf = 0;
242 hreq->version = "1.1";
243 hreq->method = "POST";
245 z_HTTP_header_add(o, &hreq->headers, "User-Agent", "YAZ/" YAZ_VERSION);
250 Z_GDU *z_get_HTTP_Request_host_path(ODR odr,
254 Z_GDU *p = z_get_HTTP_Request(odr);
256 p->u.HTTP_Request->path = odr_strdup(odr, path);
260 const char *cp0 = strstr(host, "://");
267 cp1 = strchr(cp0, '/');
269 cp1 = cp0+strlen(cp0);
273 char *h = (char*) odr_malloc(odr, cp1 - cp0 + 1);
274 memcpy (h, cp0, cp1 - cp0);
276 z_HTTP_header_add(odr, &p->u.HTTP_Request->headers,
283 Z_GDU *z_get_HTTP_Request_uri(ODR odr, const char *uri, const char *args,
286 Z_GDU *p = z_get_HTTP_Request(odr);
287 const char *cp0 = strstr(uri, "://");
294 cp1 = strchr(cp0, '/');
296 cp1 = cp0+strlen(cp0);
300 char *h = (char*) odr_malloc(odr, cp1 - cp0 + 1);
301 memcpy (h, cp0, cp1 - cp0);
303 z_HTTP_header_add(odr, &p->u.HTTP_Request->headers,
314 p->u.HTTP_Request->path = odr_malloc(odr, cp1 - uri + strlen(args) + 2);
317 memcpy(p->u.HTTP_Request->path, uri, cp1 - uri);
318 strcpy(p->u.HTTP_Request->path + (cp1 - uri), "/");
321 strcpy(p->u.HTTP_Request->path, "/");
322 strcat(p->u.HTTP_Request->path, args);
326 Z_GDU *z_get_HTTP_Response(ODR o, int code)
328 Z_GDU *p = (Z_GDU *) odr_malloc(o, sizeof(*p));
329 Z_HTTP_Response *hres;
331 p->which = Z_GDU_HTTP_Response;
332 p->u.HTTP_Response = (Z_HTTP_Response *) odr_malloc(o, sizeof(*hres));
333 hres = p->u.HTTP_Response;
335 hres->content_len = 0;
336 hres->content_buf = 0;
338 hres->version = "1.1";
339 z_HTTP_header_add(o, &hres->headers, "Server",
343 hres->content_buf = (char*) odr_malloc(o, 400);
344 sprintf(hres->content_buf,
345 "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\""
346 " \"http://www.w3.org/TR/html4/strict.dtd\">\n"
349 " <TITLE>YAZ " YAZ_VERSION "</TITLE>\n"
352 " <P><A HREF=\"http://www.indexdata.com/yaz/\">YAZ</A> "
354 " <P>Error: %d</P>\n"
355 " <P>Description: %.50s</P>\n"
358 code, z_HTTP_errmsg(code));
359 hres->content_len = strlen(hres->content_buf);
360 z_HTTP_header_add(o, &hres->headers, "Content-Type", "text/html");
365 const char *z_HTTP_errmsg(int code)
372 return "Switching Protocols";
380 return "Non-Authoritative Information";
384 return "Reset Content";
386 return "Partial Content";
388 return "Multiple Choices";
390 return "Moved Permenently";
396 return "Not Modified";
400 return "Temporary Redirect";
402 return "Bad Request";
406 return "Method Not Allowed";
408 return "Not Acceptable";
410 return "Proxy Authentication Required";
412 return "Request Timeout";
418 return "Length Required";
420 return "Precondition Failed";
422 return "Request Entity Too Large";
424 return "Request-URI Too Long";
426 return "Unsupported Media Type";
428 return "Requested Range Not Satisfiable";
430 return "Expectation Failed";
432 return "Internal Error";
434 return "Not Implemented";
436 return "Bad Gateway";
438 return "Service Unavailable";
440 return "Gateway Timeout";
442 return "HTTP Version Not Supported";
444 return "Unknown Error";
448 int yaz_decode_http_response(ODR o, Z_HTTP_Response **hr_p)
451 Z_HTTP_Response *hr = (Z_HTTP_Response *) odr_malloc(o, sizeof(*hr));
458 while (i < o->size-2 && !strchr(" \r\n", o->buf[i]))
460 hr->version = (char *) odr_malloc(o, i - po + 1);
462 memcpy(hr->version, o->buf + po, i - po);
463 hr->version[i-po] = 0;
464 if (o->buf[i] != ' ')
471 while (i < o->size-2 && o->buf[i] >= '0' && o->buf[i] <= '9')
473 hr->code = hr->code*10 + (o->buf[i] - '0');
476 while (i < o->size-1 && o->buf[i] != '\n')
478 return decode_headers_content(o, i, &hr->headers,
479 &hr->content_buf, &hr->content_len);
482 int yaz_decode_http_request(ODR o, Z_HTTP_Request **hr_p)
485 Z_HTTP_Request *hr = (Z_HTTP_Request *) odr_malloc(o, sizeof(*hr));
490 for (i = 0; o->buf[i] != ' '; i++)
491 if (i >= o->size-5 || i > 30)
496 hr->method = (char *) odr_malloc(o, i+1);
497 memcpy (hr->method, o->buf, i);
498 hr->method[i] = '\0';
501 for (i = po; o->buf[i] != ' '; i++)
507 hr->path = (char *) odr_malloc(o, i - po + 1);
508 memcpy (hr->path, o->buf+po, i - po);
509 hr->path[i - po] = '\0';
512 if (i > o->size-5 || memcmp(o->buf+i, "HTTP/", 5))
519 while (i < o->size && !strchr("\r\n", o->buf[i]))
521 hr->version = (char *) odr_malloc(o, i - po + 1);
522 memcpy(hr->version, o->buf + po, i - po);
523 hr->version[i - po] = '\0';
525 if (i < o->size-1 && o->buf[i] == '\r')
527 if (o->buf[i] != '\n')
532 return decode_headers_content(o, i, &hr->headers,
533 &hr->content_buf, &hr->content_len);
536 static void dump_http_package(ODR o, const char *buf, size_t len)
543 odr_printf(o, "%.*s\n", i, buf);
548 odr_printf(o, "%.*s\n", i, buf);
549 odr_printf(o, "(truncated\n", (long) len);
552 else if (buf[i] == 0)
554 odr_printf(o, "%.*s\n", i, buf);
555 odr_printf(o, "(binary data)\n", (long) len);
561 int yaz_encode_http_response(ODR o, Z_HTTP_Response *hr)
567 sprintf(sbuf, "HTTP/%s %d %s\r\n", hr->version,
569 z_HTTP_errmsg(hr->code));
570 odr_write2(o, sbuf, strlen(sbuf));
571 /* use content_len for Content-Length */
572 sprintf(sbuf, "Content-Length: %d\r\n", hr->content_len);
573 odr_write2(o, sbuf, strlen(sbuf));
574 for (h = hr->headers; h; h = h->next)
576 if (yaz_strcasecmp(h->name, "Content-Length")
577 && yaz_strcasecmp(h->name, "Transfer-Encoding"))
578 { /* skip Content-Length if given. content_len rules */
579 odr_write2(o, h->name, strlen(h->name));
580 odr_write2(o, ": ", 2);
581 odr_write2(o, h->value, strlen(h->value));
582 odr_write2(o, "\r\n", 2);
585 odr_write(o, (unsigned char *) "\r\n", 2);
587 odr_write2(o, hr->content_buf, hr->content_len);
588 if (o->direction == ODR_PRINT)
590 odr_printf(o, "-- HTTP response:\n");
591 dump_http_package(o, (const char *) o->buf + top0, o->top - top0);
592 odr_printf(o, "--\n");
597 int yaz_encode_http_request(ODR o, Z_HTTP_Request *hr)
602 odr_write2(o, hr->method, strlen(hr->method));
603 odr_write2(o, " ", 1);
604 odr_write2(o, hr->path, strlen(hr->path));
605 odr_write2(o, " HTTP/", 6);
606 odr_write2(o, hr->version, strlen(hr->version));
607 odr_write2(o, "\r\n", 2);
608 if (hr->content_len &&
609 !z_HTTP_header_lookup(hr->headers,
613 sprintf(lstr, "Content-Length: %d\r\n",
615 odr_write2(o, lstr, strlen(lstr));
617 for (h = hr->headers; h; h = h->next)
619 odr_write2(o, h->name, strlen(h->name));
620 odr_write2(o, ": ", 2);
621 odr_write2(o, h->value, strlen(h->value));
622 odr_write2(o, "\r\n", 2);
624 odr_write2(o, "\r\n", 2);
626 odr_write2(o, hr->content_buf, hr->content_len);
627 if (o->direction == ODR_PRINT)
629 odr_printf(o, "-- HTTP request:\n");
630 dump_http_package(o, (const char *) o->buf + top0, o->top - top0);
631 odr_printf(o, "--\n");
639 * c-file-style: "Stroustrup"
640 * indent-tabs-mode: nil
642 * vim: shiftwidth=4 tabstop=8 expandtab