2 * Copyright (c) 2002-2004, Index Data.
3 * See the file LICENSE for details.
5 * $Id: zgdu.c,v 1.11 2004-10-15 00:19:01 adam Exp $
10 * \brief Implements HTTP and Z39.50 encoding and decoding.
15 #include <yaz/yaz-version.h>
16 #include <yaz/yaz-iconv.h>
20 #define strncasecmp _strnicmp
21 #define strcasecmp _stricmp
24 static int decode_headers_content(ODR o, int off, Z_HTTP_Header **headers,
25 char **content_buf, int *content_len)
31 while (i < o->size-1 && o->buf[i] == '\r')
35 if (o->buf[i] != '\n')
41 if (o->buf[i] == '\r')
50 else if (o->buf[i] == ':')
53 *headers = (Z_HTTP_Header *) odr_malloc(o, sizeof(**headers));
54 (*headers)->name = (char*) odr_malloc(o, i - po + 1);
55 memcpy ((*headers)->name, o->buf + po, i - po);
56 (*headers)->name[i - po] = '\0';
58 while (i < o->size-1 && o->buf[i] == ' ')
60 for (po = i; i < o->size-1 && o->buf[i] != '\r' ; i++)
63 (*headers)->value = (char*) odr_malloc(o, i - po + 1);
64 memcpy ((*headers)->value, o->buf + po, i - po);
65 (*headers)->value[i - po] = '\0';
67 if (!strcasecmp((*headers)->name, "Transfer-Encoding")
69 !strcasecmp((*headers)->value, "chunked"))
71 headers = &(*headers)->next;
75 if (o->buf[i] != '\n')
86 /* we know buffer will be smaller than o->size - i*/
87 *content_buf = (char*) odr_malloc(o, o->size - i);
93 for (; i < o->size-2; i++)
94 if (isdigit(o->buf[i]))
95 chunk_len = chunk_len * 16 +
97 else if (isupper(o->buf[i]))
98 chunk_len = chunk_len * 16 +
99 (o->buf[i] - ('A'-10));
100 else if (islower(o->buf[i]))
101 chunk_len = chunk_len * 16 +
102 (o->buf[i] - ('a'-10));
105 /* chunk extension ... */
106 while (o->buf[i] != '\r' && o->buf[i+1] != '\n')
115 i += 2; /* skip CRLF */
118 if (chunk_len < 0 || off + chunk_len > o->size)
124 memcpy (*content_buf + off, o->buf + i, chunk_len);
125 i += chunk_len + 2; /* skip chunk+CRLF */
139 else if (i == o->size)
146 *content_len = o->size - i;
147 *content_buf = (char*) odr_malloc(o, *content_len + 1);
148 memcpy(*content_buf, o->buf + i, *content_len);
149 (*content_buf)[*content_len] = '\0';
155 void z_HTTP_header_add(ODR o, Z_HTTP_Header **hp, const char *n,
160 *hp = (Z_HTTP_Header *) odr_malloc(o, sizeof(**hp));
161 (*hp)->name = odr_strdup(o, n);
162 (*hp)->value = odr_strdup(o, v);
166 const char *z_HTTP_header_lookup(Z_HTTP_Header *hp, const char *n)
168 for (; hp; hp = hp->next)
169 if (!yaz_matchstr(hp->name, n))
175 Z_GDU *z_get_HTTP_Request(ODR o)
177 Z_GDU *p = (Z_GDU *) odr_malloc(o, sizeof(*p));
178 Z_HTTP_Request *hreq;
180 p->which = Z_GDU_HTTP_Request;
181 p->u.HTTP_Request = (Z_HTTP_Request *) odr_malloc(o, sizeof(*hreq));
182 hreq = p->u.HTTP_Request;
184 hreq->content_len = 0;
185 hreq->content_buf = 0;
186 hreq->version = "1.1";
187 hreq->method = "POST";
189 z_HTTP_header_add(o, &hreq->headers, "User-Agent",
194 Z_GDU *z_get_HTTP_Response(ODR o, int code)
196 Z_GDU *p = (Z_GDU *) odr_malloc(o, sizeof(*p));
197 Z_HTTP_Response *hres;
199 p->which = Z_GDU_HTTP_Response;
200 p->u.HTTP_Response = (Z_HTTP_Response *) odr_malloc(o, sizeof(*hres));
201 hres = p->u.HTTP_Response;
203 hres->content_len = 0;
204 hres->content_buf = 0;
206 hres->version = "1.1";
207 z_HTTP_header_add(o, &hres->headers, "Server",
211 hres->content_buf = (char*) odr_malloc(o, 400);
212 sprintf (hres->content_buf,
213 "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">\n"
216 " <TITLE>YAZ " YAZ_VERSION "</TITLE>\n"
219 " <P><A HREF=\"http://www.indexdata.dk/yaz/\">YAZ</A> "
221 " <P>Error: %d</P>\n"
222 " <P>Description: %.50s</P>\n"
225 code, z_HTTP_errmsg(code));
226 hres->content_len = strlen(hres->content_buf);
227 z_HTTP_header_add(o, &hres->headers, "Content-Type", "text/html");
232 const char *z_HTTP_errmsg(int code)
236 else if (code == 400)
237 return "Bad Request";
238 else if (code == 404)
240 else if (code == 405)
241 return "Method Not Allowed";
242 else if (code == 500)
243 return "Internal Error";
245 return "Unknown Error";
248 int z_GDU (ODR o, Z_GDU **p, int opt, const char *name)
250 if (o->direction == ODR_DECODE) {
251 *p = (Z_GDU *) odr_malloc(o, sizeof(**p));
252 if (o->size > 10 && !memcmp(o->buf, "HTTP/", 5))
256 (*p)->which = Z_GDU_HTTP_Response;
258 hr = (*p)->u.HTTP_Response = (Z_HTTP_Response *)
259 odr_malloc(o, sizeof(*hr));
264 while (i < o->size-2 && o->buf[i] != ' ' && o->buf[i] != '\r')
266 hr->version = (char *) odr_malloc(o, i - po + 1);
268 memcpy(hr->version, o->buf + po, i - po);
269 hr->version[i-po] = 0;
270 if (o->buf[i] != ' ')
277 while (i < o->size-2 && o->buf[i] >= '0' && o->buf[i] <= '9')
279 hr->code = hr->code*10 + (o->buf[i] - '0');
282 while (i < o->size-1 && o->buf[i] != '\r')
284 return decode_headers_content(o, i, &hr->headers,
285 &hr->content_buf, &hr->content_len);
287 else if (o->size > 5 &&
288 o->buf[0] >= 0x20 && o->buf[0] < 0x7f
289 && o->buf[1] >= 0x20 && o->buf[1] < 0x7f
290 && o->buf[2] >= 0x20 && o->buf[2] < 0x7f
291 && o->buf[3] >= 0x20 && o->buf[3] < 0x7f)
296 (*p)->which = Z_GDU_HTTP_Request;
297 hr = (*p)->u.HTTP_Request =
298 (Z_HTTP_Request *) odr_malloc(o, sizeof(*hr));
301 for (i = 0; o->buf[i] != ' '; i++)
302 if (i >= o->size-5 || i > 30)
307 hr->method = (char *) odr_malloc(o, i+1);
308 memcpy (hr->method, o->buf, i);
309 hr->method[i] = '\0';
312 for (i = po; o->buf[i] != ' '; i++)
318 hr->path = (char *) odr_malloc(o, i - po + 1);
319 memcpy (hr->path, o->buf+po, i - po);
320 hr->path[i - po] = '\0';
323 if (i > o->size-5 || memcmp(o->buf+i, "HTTP/", 5))
330 while (o->buf[i] != '\r')
339 hr->version = (char *) odr_malloc(o, i - po + 1);
340 memcpy(hr->version, o->buf + po, i - po);
341 hr->version[i - po] = '\0';
343 return decode_headers_content(o, i, &hr->headers,
344 &hr->content_buf, &hr->content_len);
349 (*p)->which = Z_GDU_Z3950;
350 return z_APDU(o, &(*p)->u.z3950, opt, 0);
353 else /* ENCODE or PRINT */
360 case Z_GDU_HTTP_Response:
361 sprintf(sbuf, "HTTP/%s %d %s\r\n", (*p)->u.HTTP_Response->version,
362 (*p)->u.HTTP_Response->code,
363 z_HTTP_errmsg((*p)->u.HTTP_Response->code));
364 odr_write(o, (unsigned char *) sbuf, strlen(sbuf));
365 /* apply Content-Length if not already applied */
366 if (!z_HTTP_header_lookup((*p)->u.HTTP_Response->headers,
370 sprintf(lstr, "Content-Length: %d\r\n",
371 (*p)->u.HTTP_Response->content_len);
372 odr_write(o, (unsigned char *) lstr, strlen(lstr));
374 for (h = (*p)->u.HTTP_Response->headers; h; h = h->next)
376 odr_write(o, (unsigned char *) h->name, strlen(h->name));
377 odr_write(o, (unsigned char *) ": ", 2);
378 odr_write(o, (unsigned char *) h->value, strlen(h->value));
379 odr_write(o, (unsigned char *) "\r\n", 2);
381 odr_write(o, (unsigned char *) "\r\n", 2);
382 if ((*p)->u.HTTP_Response->content_buf)
383 odr_write(o, (unsigned char *)
384 (*p)->u.HTTP_Response->content_buf,
385 (*p)->u.HTTP_Response->content_len);
386 if (o->direction == ODR_PRINT)
388 odr_printf(o, "-- HTTP response:\n%.*s\n", o->top - top0,
390 odr_printf(o, "-- \n");
393 case Z_GDU_HTTP_Request:
394 odr_write(o, (unsigned char *) (*p)->u.HTTP_Request->method,
395 strlen((*p)->u.HTTP_Request->method));
396 odr_write(o, (unsigned char *) " ", 1);
397 odr_write(o, (unsigned char *) (*p)->u.HTTP_Request->path,
398 strlen((*p)->u.HTTP_Request->path));
399 odr_write(o, (unsigned char *) " HTTP/", 6);
400 odr_write(o, (unsigned char *) (*p)->u.HTTP_Request->version,
401 strlen((*p)->u.HTTP_Request->version));
402 odr_write(o, (unsigned char *) "\r\n", 2);
403 if ((*p)->u.HTTP_Request->content_len &&
404 !z_HTTP_header_lookup((*p)->u.HTTP_Request->headers,
408 sprintf(lstr, "Content-Length: %d\r\n",
409 (*p)->u.HTTP_Request->content_len);
410 odr_write(o, (unsigned char *) lstr, strlen(lstr));
412 for (h = (*p)->u.HTTP_Request->headers; h; h = h->next)
414 odr_write(o, (unsigned char *) h->name, strlen(h->name));
415 odr_write(o, (unsigned char *) ": ", 2);
416 odr_write(o, (unsigned char *) h->value, strlen(h->value));
417 odr_write(o, (unsigned char *) "\r\n", 2);
419 odr_write(o, (unsigned char *) "\r\n", 2);
420 if ((*p)->u.HTTP_Request->content_buf)
421 odr_write(o, (unsigned char *)
422 (*p)->u.HTTP_Request->content_buf,
423 (*p)->u.HTTP_Request->content_len);
424 if (o->direction == ODR_PRINT)
426 odr_printf(o, "-- HTTP request:\n%.*s\n", o->top - top0,
428 odr_printf(o, "-- \n");
432 return z_APDU(o, &(*p)->u.z3950, opt, 0);