2 * Copyright (c) 1995-2004, Index Data
3 * See the file LICENSE for details.
5 * $Id: comstack.c,v 1.12 2004-09-30 10:00:17 adam Exp $
12 #include <yaz/comstack.h>
13 #include <yaz/tcpip.h>
18 #define strncasecmp _strnicmp
21 static const char *cs_errlist[] =
23 "No error or unspecified error",
24 "System (lower-layer) error",
25 "Operation out of state",
26 "No data (operation would block)",
27 "New data while half of old buffer is on the line (flow control)",
32 const char *cs_errmsg(int n)
36 if (n < CSNONE || n > CSLASTERROR) {
37 sprintf(buf, "unknown comstack error %d", n);
41 sprintf(buf, "%s: %s", cs_errlist[n], strerror(errno));
47 const char *cs_strerror(COMSTACK h)
49 return cs_errmsg(h->cerrno);
52 void cs_get_host_args(const char *type_and_host, const char **args)
56 if (*type_and_host && strncmp(type_and_host, "unix:", 5))
59 cp = strstr(type_and_host, "://");
70 COMSTACK cs_create_host(const char *type_and_host, int blocking, void **vp)
72 enum oid_proto proto = PROTO_Z3950;
77 if (strncmp (type_and_host, "tcp:", 4) == 0)
80 host = type_and_host + 4;
82 else if (strncmp (type_and_host, "ssl:", 4) == 0)
84 #if HAVE_OPENSSL_SSL_H
86 host = type_and_host + 4;
91 else if (strncmp (type_and_host, "unix:", 5) == 0)
95 host = type_and_host + 5;
100 else if (strncmp(type_and_host, "http:", 5) == 0)
103 host = type_and_host + 5;
104 while (host[0] == '/')
108 else if (strncmp(type_and_host, "https:", 6) == 0)
110 #if HAVE_OPENSSL_SSL_H
112 host = type_and_host + 6;
113 while (host[0] == '/')
123 host = type_and_host;
125 cs = cs_create (t, blocking, proto);
129 if (!(*vp = cs_straddr(cs, host)))
137 int cs_look (COMSTACK cs)
142 #define CHUNK_DEBUG 0
143 int cs_complete_auto(const unsigned char *buf, int len)
145 if (len > 5 && buf[0] >= 0x20 && buf[0] < 0x7f
146 && buf[1] >= 0x20 && buf[1] < 0x7f
147 && buf[2] >= 0x20 && buf[2] < 0x7f)
149 /* deal with HTTP request/response */
150 int i = 2, content_len = 0, chunked = 0;
152 /* if dealing with HTTP responses - then default
153 content length is unlimited (socket close) */
154 if (!memcmp(buf, "HTTP/", 5))
161 return i; /* do not allow more than 8K HTTP header */
163 if (buf[i] == '\r' && buf[i+1] == '\n')
166 if (buf[i] == '\r' && buf[i+1] == '\n')
170 /* inside chunked body .. */
173 int j, chunk_len = 0;
181 for (j = i; j <= i+4; j++)
182 printf ("%c", buf[j]);
186 /* read chunk length */
191 printf ("XXXXXXXX not there yet 1\n");
192 printf ("i=%d len=%d\n", i, len);
195 } else if (isdigit(buf[i]))
196 chunk_len = chunk_len * 16 +
198 else if (isupper(buf[i]))
199 chunk_len = chunk_len * 16 +
200 (buf[i++] - ('A'-10));
201 else if (islower(buf[i]))
202 chunk_len = chunk_len * 16 +
203 (buf[i++] - ('a'-10));
206 /* move forward until CRLF - skip chunk ext */
208 while (buf[i] != '\r' && buf[i+1] != '\n')
211 return 0; /* need more buffer .. */
213 return i; /* enough.. stop */
218 printf ("XXXXXX chunk_len=%d\n", chunk_len);
221 return i+2; /* bad chunk_len */
226 /* consider trailing headers .. */
229 if (buf[i] == '\r' && buf[i+1] == '\n' &&
230 buf[i+2] == '\r' && buf[i+3] == '\n')
237 printf ("XXXXXXXXX not there yet 2\n");
238 printf ("i=%d len=%d\n", i, len);
243 { /* not chunked ; inside body */
244 /* i += 2 seems not to work with GCC -O2 ..
245 so i+2 is used instead .. */
246 if (content_len == -1)
247 return 0; /* no content length */
248 else if (len >= (i+2)+ content_len)
250 return (i+2)+ content_len;
255 else if (i < len - 20 &&
256 !strncasecmp((const char *) buf+i, "Transfer-Encoding:", 18))
259 while (buf[i] == ' ')
262 if (!strncasecmp((const char *) buf+i, "chunked", 7))
265 else if (i < len - 17 &&
266 !strncasecmp((const char *)buf+i, "Content-Length:", 15))
269 while (buf[i] == ' ')
272 while (i <= len-4 && isdigit(buf[i]))
273 content_len = content_len*10 + (buf[i++] - '0');
274 if (content_len < 0) /* prevent negative offsets */
285 return completeBER(buf, len);