1 9df487d7 2003-11-23 devnull #include <u.h>
2 9df487d7 2003-11-23 devnull #include <libc.h>
3 9df487d7 2003-11-23 devnull #include <bin.h>
4 9df487d7 2003-11-23 devnull #include <httpd.h>
5 9df487d7 2003-11-23 devnull #include "escape.h"
7 9df487d7 2003-11-23 devnull typedef struct Hlex Hlex;
8 9df487d7 2003-11-23 devnull typedef struct MimeHead MimeHead;
15 9df487d7 2003-11-23 devnull Word = 1,
19 9df487d7 2003-11-23 devnull #define UlongMax 4294967295UL
21 9df487d7 2003-11-23 devnull struct Hlex
25 9df487d7 2003-11-23 devnull int eol; /* end of header line encountered? */
26 9df487d7 2003-11-23 devnull uchar *hstart; /* start of header */
27 9df487d7 2003-11-23 devnull jmp_buf jmp; /* jmp here to parse header */
28 9df487d7 2003-11-23 devnull char wordval[HMaxWord];
29 9df487d7 2003-11-23 devnull HConnect *c;
32 9df487d7 2003-11-23 devnull struct MimeHead
34 9df487d7 2003-11-23 devnull char *name;
35 9df487d7 2003-11-23 devnull void (*parse)(Hlex*, char*);
36 9df487d7 2003-11-23 devnull uchar seen;
37 9df487d7 2003-11-23 devnull uchar ignore;
40 9df487d7 2003-11-23 devnull static void mimeaccept(Hlex*, char*);
41 9df487d7 2003-11-23 devnull static void mimeacceptchar(Hlex*, char*);
42 9df487d7 2003-11-23 devnull static void mimeacceptenc(Hlex*, char*);
43 9df487d7 2003-11-23 devnull static void mimeacceptlang(Hlex*, char*);
44 9df487d7 2003-11-23 devnull static void mimeagent(Hlex*, char*);
45 9df487d7 2003-11-23 devnull static void mimeauthorization(Hlex*, char*);
46 9df487d7 2003-11-23 devnull static void mimeconnection(Hlex*, char*);
47 9df487d7 2003-11-23 devnull static void mimecontlen(Hlex*, char*);
48 9df487d7 2003-11-23 devnull static void mimeexpect(Hlex*, char*);
49 9df487d7 2003-11-23 devnull static void mimefresh(Hlex*, char*);
50 9df487d7 2003-11-23 devnull static void mimefrom(Hlex*, char*);
51 9df487d7 2003-11-23 devnull static void mimehost(Hlex*, char*);
52 9df487d7 2003-11-23 devnull static void mimeifrange(Hlex*, char*);
53 9df487d7 2003-11-23 devnull static void mimeignore(Hlex*, char*);
54 9df487d7 2003-11-23 devnull static void mimematch(Hlex*, char*);
55 9df487d7 2003-11-23 devnull static void mimemodified(Hlex*, char*);
56 9df487d7 2003-11-23 devnull static void mimenomatch(Hlex*, char*);
57 9df487d7 2003-11-23 devnull static void mimerange(Hlex*, char*);
58 9df487d7 2003-11-23 devnull static void mimetransenc(Hlex*, char*);
59 9df487d7 2003-11-23 devnull static void mimeunmodified(Hlex*, char*);
62 9df487d7 2003-11-23 devnull * headers seen also include
63 9df487d7 2003-11-23 devnull * allow cache-control chargeto
64 9df487d7 2003-11-23 devnull * content-encoding content-language content-location content-md5 content-range content-type
65 9df487d7 2003-11-23 devnull * date etag expires forwarded last-modified max-forwards pragma
66 9df487d7 2003-11-23 devnull * proxy-agent proxy-authorization proxy-connection
67 9df487d7 2003-11-23 devnull * ua-color ua-cpu ua-os ua-pixels
68 9df487d7 2003-11-23 devnull * upgrade via x-afs-tokens x-serial-number
70 9df487d7 2003-11-23 devnull static MimeHead mimehead[] =
72 9df487d7 2003-11-23 devnull {"accept", mimeaccept},
73 9df487d7 2003-11-23 devnull {"accept-charset", mimeacceptchar},
74 9df487d7 2003-11-23 devnull {"accept-encoding", mimeacceptenc},
75 9df487d7 2003-11-23 devnull {"accept-language", mimeacceptlang},
76 9df487d7 2003-11-23 devnull {"authorization", mimeauthorization},
77 9df487d7 2003-11-23 devnull {"connection", mimeconnection},
78 9df487d7 2003-11-23 devnull {"content-length", mimecontlen},
79 9df487d7 2003-11-23 devnull {"expect", mimeexpect},
80 9df487d7 2003-11-23 devnull {"fresh", mimefresh},
81 9df487d7 2003-11-23 devnull {"from", mimefrom},
82 9df487d7 2003-11-23 devnull {"host", mimehost},
83 9df487d7 2003-11-23 devnull {"if-match", mimematch},
84 9df487d7 2003-11-23 devnull {"if-modified-since", mimemodified},
85 9df487d7 2003-11-23 devnull {"if-none-match", mimenomatch},
86 9df487d7 2003-11-23 devnull {"if-range", mimeifrange},
87 9df487d7 2003-11-23 devnull {"if-unmodified-since", mimeunmodified},
88 9df487d7 2003-11-23 devnull {"range", mimerange},
89 9df487d7 2003-11-23 devnull {"transfer-encoding", mimetransenc},
90 9df487d7 2003-11-23 devnull {"user-agent", mimeagent},
93 9df487d7 2003-11-23 devnull char* hmydomain;
94 9df487d7 2003-11-23 devnull char* hversion = "HTTP/1.1";
96 9df487d7 2003-11-23 devnull static void lexhead(Hlex*);
97 9df487d7 2003-11-23 devnull static void parsejump(Hlex*, char*);
98 9df487d7 2003-11-23 devnull static int getc(Hlex*);
99 9df487d7 2003-11-23 devnull static void ungetc(Hlex*);
100 9df487d7 2003-11-23 devnull static int wordcr(Hlex*);
101 9df487d7 2003-11-23 devnull static int wordnl(Hlex*);
102 9df487d7 2003-11-23 devnull static void word(Hlex*, char*);
103 9df487d7 2003-11-23 devnull static int lex1(Hlex*, int);
104 9df487d7 2003-11-23 devnull static int lex(Hlex*);
105 9df487d7 2003-11-23 devnull static int lexbase64(Hlex*);
106 9df487d7 2003-11-23 devnull static ulong digtoul(char *s, char **e);
109 9df487d7 2003-11-23 devnull * flush an clean up junk from a request
112 9df487d7 2003-11-23 devnull hreqcleanup(HConnect *c)
116 9df487d7 2003-11-23 devnull hxferenc(&c->hout, 0);
117 9df487d7 2003-11-23 devnull memset(&c->req, 0, sizeof(c->req));
118 9df487d7 2003-11-23 devnull memset(&c->head, 0, sizeof(c->head));
119 9df487d7 2003-11-23 devnull c->hpos = c->header;
120 9df487d7 2003-11-23 devnull c->hstop = c->header;
121 9df487d7 2003-11-23 devnull binfree(&c->bin);
122 9df487d7 2003-11-23 devnull for(i = 0; i < nelem(mimehead); i++){
123 9df487d7 2003-11-23 devnull mimehead[i].seen = 0;
124 9df487d7 2003-11-23 devnull mimehead[i].ignore = 0;
129 9df487d7 2003-11-23 devnull * list of tokens
130 9df487d7 2003-11-23 devnull * if the client is HTTP/1.0,
131 9df487d7 2003-11-23 devnull * ignore headers which match one of the tokens.
132 9df487d7 2003-11-23 devnull * restarts parsing if necessary.
134 9df487d7 2003-11-23 devnull static void
135 9df487d7 2003-11-23 devnull mimeconnection(Hlex *h, char *unused)
137 9df487d7 2003-11-23 devnull char *u, *p;
138 9df487d7 2003-11-23 devnull int reparse, i;
140 9df487d7 2003-11-23 devnull reparse = 0;
141 9df487d7 2003-11-23 devnull for(;;){
142 9df487d7 2003-11-23 devnull while(lex(h) != Word)
143 9df487d7 2003-11-23 devnull if(h->tok != ',')
144 9df487d7 2003-11-23 devnull goto breakout;
146 9df487d7 2003-11-23 devnull if(cistrcmp(h->wordval, "keep-alive") == 0)
147 9df487d7 2003-11-23 devnull h->c->head.persist = 1;
148 9df487d7 2003-11-23 devnull else if(cistrcmp(h->wordval, "close") == 0)
149 9df487d7 2003-11-23 devnull h->c->head.closeit = 1;
150 9df487d7 2003-11-23 devnull else if(!http11(h->c)){
151 9df487d7 2003-11-23 devnull for(i = 0; i < nelem(mimehead); i++){
152 9df487d7 2003-11-23 devnull if(cistrcmp(mimehead[i].name, h->wordval) == 0){
153 9df487d7 2003-11-23 devnull reparse = mimehead[i].seen && !mimehead[i].ignore;
154 9df487d7 2003-11-23 devnull mimehead[i].ignore = 1;
155 9df487d7 2003-11-23 devnull if(cistrcmp(mimehead[i].name, "authorization") == 0){
156 9df487d7 2003-11-23 devnull h->c->head.authuser = nil;
157 9df487d7 2003-11-23 devnull h->c->head.authpass = nil;
163 9df487d7 2003-11-23 devnull if(lex(h) != ',')
167 9df487d7 2003-11-23 devnull breakout:;
169 9df487d7 2003-11-23 devnull * if need to ignore headers we've already parsed,
170 9df487d7 2003-11-23 devnull * reset & start over. need to save authorization
171 9df487d7 2003-11-23 devnull * info because it's written over when parsed.
173 9df487d7 2003-11-23 devnull if(reparse){
174 9df487d7 2003-11-23 devnull u = h->c->head.authuser;
175 9df487d7 2003-11-23 devnull p = h->c->head.authpass;
176 9df487d7 2003-11-23 devnull memset(&h->c->head, 0, sizeof(h->c->head));
177 9df487d7 2003-11-23 devnull h->c->head.authuser = u;
178 9df487d7 2003-11-23 devnull h->c->head.authpass = p;
180 9df487d7 2003-11-23 devnull h->c->hpos = h->hstart;
181 9df487d7 2003-11-23 devnull longjmp(h->jmp, 1);
186 9df487d7 2003-11-23 devnull hparseheaders(HConnect *c, int timeout)
190 9df487d7 2003-11-23 devnull c->head.fresh_thresh = 0;
191 9df487d7 2003-11-23 devnull c->head.fresh_have = 0;
192 9df487d7 2003-11-23 devnull c->head.persist = 0;
193 9df487d7 2003-11-23 devnull if(c->req.vermaj == 0){
194 9df487d7 2003-11-23 devnull c->head.host = hmydomain;
195 9df487d7 2003-11-23 devnull return 1;
198 9df487d7 2003-11-23 devnull memset(&h, 0, sizeof(h));
199 9df487d7 2003-11-23 devnull h.c = c;
200 52aeb2f9 2004-05-20 devnull if(timeout)
201 52aeb2f9 2004-05-20 devnull alarm(timeout);
202 2e965b33 2004-05-05 devnull if(hgethead(c, 1) < 0)
203 9df487d7 2003-11-23 devnull return -1;
204 52aeb2f9 2004-05-20 devnull if(timeout)
205 52aeb2f9 2004-05-20 devnull alarm(0);
206 9df487d7 2003-11-23 devnull h.hstart = c->hpos;
208 9df487d7 2003-11-23 devnull if(setjmp(h.jmp) == -1)
209 9df487d7 2003-11-23 devnull return -1;
211 9df487d7 2003-11-23 devnull h.eol = 0;
212 9df487d7 2003-11-23 devnull h.eoh = 0;
213 9df487d7 2003-11-23 devnull h.tok = '\n';
214 9df487d7 2003-11-23 devnull while(lex(&h) != '\n'){
215 9df487d7 2003-11-23 devnull if(h.tok == Word && lex(&h) == ':')
216 9df487d7 2003-11-23 devnull parsejump(&h, hstrdup(c, h.wordval));
217 9df487d7 2003-11-23 devnull while(h.tok != '\n')
218 9df487d7 2003-11-23 devnull lex(&h);
219 9df487d7 2003-11-23 devnull h.eol = h.eoh;
222 9df487d7 2003-11-23 devnull if(http11(c)){
224 9df487d7 2003-11-23 devnull * according to the http/1.1 spec,
225 9df487d7 2003-11-23 devnull * these rules must be followed
227 9df487d7 2003-11-23 devnull if(c->head.host == nil){
228 9df487d7 2003-11-23 devnull hfail(c, HBadReq, nil);
229 9df487d7 2003-11-23 devnull return -1;
231 9df487d7 2003-11-23 devnull if(c->req.urihost != nil)
232 9df487d7 2003-11-23 devnull c->head.host = c->req.urihost;
234 9df487d7 2003-11-23 devnull * also need to check host is actually this one
236 9df487d7 2003-11-23 devnull }else if(c->head.host == nil)
237 9df487d7 2003-11-23 devnull c->head.host = hmydomain;
238 9df487d7 2003-11-23 devnull return 1;
242 9df487d7 2003-11-23 devnull * mimeparams : | mimeparams ";" mimepara
243 9df487d7 2003-11-23 devnull * mimeparam : token "=" token | token "=" qstring
245 9df487d7 2003-11-23 devnull static HSPairs*
246 9df487d7 2003-11-23 devnull mimeparams(Hlex *h)
248 9df487d7 2003-11-23 devnull HSPairs *p;
249 9df487d7 2003-11-23 devnull char *s;
251 9df487d7 2003-11-23 devnull p = nil;
252 9df487d7 2003-11-23 devnull for(;;){
253 9df487d7 2003-11-23 devnull if(lex(h) != Word)
255 9df487d7 2003-11-23 devnull s = hstrdup(h->c, h->wordval);
256 9df487d7 2003-11-23 devnull if(lex(h) != Word && h->tok != QString)
258 9df487d7 2003-11-23 devnull p = hmkspairs(h->c, s, hstrdup(h->c, h->wordval), p);
260 9df487d7 2003-11-23 devnull return hrevspairs(p);
264 9df487d7 2003-11-23 devnull * mimehfields : mimehfield | mimehfields commas mimehfield
265 9df487d7 2003-11-23 devnull * mimehfield : token mimeparams
266 9df487d7 2003-11-23 devnull * commas : "," | commas ","
268 9df487d7 2003-11-23 devnull static HFields*
269 9df487d7 2003-11-23 devnull mimehfields(Hlex *h)
271 9df487d7 2003-11-23 devnull HFields *f;
273 9df487d7 2003-11-23 devnull f = nil;
274 9df487d7 2003-11-23 devnull for(;;){
275 9df487d7 2003-11-23 devnull while(lex(h) != Word)
276 9df487d7 2003-11-23 devnull if(h->tok != ',')
277 9df487d7 2003-11-23 devnull goto breakout;
279 9df487d7 2003-11-23 devnull f = hmkhfields(h->c, hstrdup(h->c, h->wordval), nil, f);
281 9df487d7 2003-11-23 devnull if(lex(h) == ';')
282 9df487d7 2003-11-23 devnull f->params = mimeparams(h);
283 9df487d7 2003-11-23 devnull if(h->tok != ',')
286 9df487d7 2003-11-23 devnull breakout:;
287 9df487d7 2003-11-23 devnull return hrevhfields(f);
291 9df487d7 2003-11-23 devnull * parse a list of acceptable types, encodings, languages, etc.
293 9df487d7 2003-11-23 devnull static HContent*
294 9df487d7 2003-11-23 devnull mimeok(Hlex *h, char *name, int multipart, HContent *head)
296 9df487d7 2003-11-23 devnull char *generic, *specific, *s;
297 9df487d7 2003-11-23 devnull float v;
300 9df487d7 2003-11-23 devnull * each type is separated by one or more commas
302 9df487d7 2003-11-23 devnull while(lex(h) != Word)
303 9df487d7 2003-11-23 devnull if(h->tok != ',')
304 9df487d7 2003-11-23 devnull return head;
306 9df487d7 2003-11-23 devnull generic = hstrdup(h->c, h->wordval);
308 9df487d7 2003-11-23 devnull if(h->tok == '/' || multipart){
310 9df487d7 2003-11-23 devnull * at one time, IE5 improperly said '*' for single types
312 9df487d7 2003-11-23 devnull if(h->tok != '/')
313 9df487d7 2003-11-23 devnull return nil;
314 9df487d7 2003-11-23 devnull if(lex(h) != Word)
315 9df487d7 2003-11-23 devnull return head;
316 9df487d7 2003-11-23 devnull specific = hstrdup(h->c, h->wordval);
317 9df487d7 2003-11-23 devnull if(!multipart && strcmp(specific, "*") != 0)
318 9df487d7 2003-11-23 devnull return head;
321 9df487d7 2003-11-23 devnull specific = nil;
322 9df487d7 2003-11-23 devnull head = hmkcontent(h->c, generic, specific, head);
324 9df487d7 2003-11-23 devnull for(;;){
325 9df487d7 2003-11-23 devnull switch(h->tok){
326 9df487d7 2003-11-23 devnull case ';':
328 9df487d7 2003-11-23 devnull * should make a list of these params
329 9df487d7 2003-11-23 devnull * for accept, they fall into two classes:
330 9df487d7 2003-11-23 devnull * up to a q=..., they modify the media type.
331 9df487d7 2003-11-23 devnull * afterwards, they acceptance criteria
333 9df487d7 2003-11-23 devnull if(lex(h) == Word){
334 9df487d7 2003-11-23 devnull s = hstrdup(h->c, h->wordval);
335 9df487d7 2003-11-23 devnull if(lex(h) != '=' || lex(h) != Word && h->tok != QString)
336 9df487d7 2003-11-23 devnull return head;
337 9df487d7 2003-11-23 devnull v = strtod(h->wordval, nil);
338 9df487d7 2003-11-23 devnull if(strcmp(s, "q") == 0)
339 9df487d7 2003-11-23 devnull head->q = v;
340 9df487d7 2003-11-23 devnull else if(strcmp(s, "mxb") == 0)
341 9df487d7 2003-11-23 devnull head->mxb = v;
344 9df487d7 2003-11-23 devnull case ',':
345 9df487d7 2003-11-23 devnull return mimeok(h, name, multipart, head);
346 9df487d7 2003-11-23 devnull default:
347 9df487d7 2003-11-23 devnull return head;
351 9df487d7 2003-11-23 devnull return head;
355 9df487d7 2003-11-23 devnull * parse a list of entity tags
356 9df487d7 2003-11-23 devnull * 1#entity-tag
357 9df487d7 2003-11-23 devnull * entity-tag = [weak] opaque-tag
358 9df487d7 2003-11-23 devnull * weak = "W/"
359 9df487d7 2003-11-23 devnull * opaque-tag = quoted-string
361 9df487d7 2003-11-23 devnull static HETag*
362 9df487d7 2003-11-23 devnull mimeetag(Hlex *h, HETag *head)
364 9df487d7 2003-11-23 devnull HETag *e;
365 9df487d7 2003-11-23 devnull int weak;
367 9df487d7 2003-11-23 devnull for(;;){
368 9df487d7 2003-11-23 devnull while(lex(h) != Word && h->tok != QString)
369 9df487d7 2003-11-23 devnull if(h->tok != ',')
370 9df487d7 2003-11-23 devnull return head;
372 9df487d7 2003-11-23 devnull weak = 0;
373 9df487d7 2003-11-23 devnull if(h->tok == Word && strcmp(h->wordval, "*") != 0){
374 9df487d7 2003-11-23 devnull if(strcmp(h->wordval, "W") != 0)
375 9df487d7 2003-11-23 devnull return head;
376 9df487d7 2003-11-23 devnull if(lex(h) != '/' || lex(h) != QString)
377 9df487d7 2003-11-23 devnull return head;
378 9df487d7 2003-11-23 devnull weak = 1;
381 9df487d7 2003-11-23 devnull e = halloc(h->c, sizeof(HETag));
382 9df487d7 2003-11-23 devnull e->etag = hstrdup(h->c, h->wordval);
383 9df487d7 2003-11-23 devnull e->weak = weak;
384 9df487d7 2003-11-23 devnull e->next = head;
385 9df487d7 2003-11-23 devnull head = e;
387 9df487d7 2003-11-23 devnull if(lex(h) != ',')
388 9df487d7 2003-11-23 devnull return head;
390 9df487d7 2003-11-23 devnull return head;
394 9df487d7 2003-11-23 devnull * ranges-specifier = byte-ranges-specifier
395 9df487d7 2003-11-23 devnull * byte-ranges-specifier = "bytes" "=" byte-range-set
396 9df487d7 2003-11-23 devnull * byte-range-set = 1#(byte-range-spec|suffix-byte-range-spec)
397 9df487d7 2003-11-23 devnull * byte-range-spec = byte-pos "-" [byte-pos]
398 9df487d7 2003-11-23 devnull * byte-pos = 1*DIGIT
399 9df487d7 2003-11-23 devnull * suffix-byte-range-spec = "-" suffix-length
400 9df487d7 2003-11-23 devnull * suffix-length = 1*DIGIT
402 9df487d7 2003-11-23 devnull * syntactically invalid range specifiers cause the
403 9df487d7 2003-11-23 devnull * entire header field to be ignored.
404 9df487d7 2003-11-23 devnull * it is syntactically incorrect for the second byte pos
405 9df487d7 2003-11-23 devnull * to be smaller than the first byte pos
407 9df487d7 2003-11-23 devnull static HRange*
408 9df487d7 2003-11-23 devnull mimeranges(Hlex *h, HRange *head)
410 9df487d7 2003-11-23 devnull HRange *r, *rh, *tail;
411 9df487d7 2003-11-23 devnull char *w;
412 9df487d7 2003-11-23 devnull ulong start, stop;
413 9df487d7 2003-11-23 devnull int suf;
415 9df487d7 2003-11-23 devnull if(lex(h) != Word || strcmp(h->wordval, "bytes") != 0 || lex(h) != '=')
416 9df487d7 2003-11-23 devnull return head;
418 9df487d7 2003-11-23 devnull rh = nil;
419 9df487d7 2003-11-23 devnull tail = nil;
420 9df487d7 2003-11-23 devnull for(;;){
421 9df487d7 2003-11-23 devnull while(lex(h) != Word){
422 9df487d7 2003-11-23 devnull if(h->tok != ','){
423 9df487d7 2003-11-23 devnull if(h->tok == '\n')
424 9df487d7 2003-11-23 devnull goto breakout;
425 9df487d7 2003-11-23 devnull return head;
429 9df487d7 2003-11-23 devnull w = h->wordval;
430 9df487d7 2003-11-23 devnull start = 0;
431 9df487d7 2003-11-23 devnull suf = 1;
432 9df487d7 2003-11-23 devnull if(w[0] != '-'){
433 9df487d7 2003-11-23 devnull suf = 0;
434 9df487d7 2003-11-23 devnull start = digtoul(w, &w);
435 9df487d7 2003-11-23 devnull if(w[0] != '-')
436 9df487d7 2003-11-23 devnull return head;
439 9df487d7 2003-11-23 devnull stop = ~0UL;
440 9df487d7 2003-11-23 devnull if(w[0] != '\0'){
441 9df487d7 2003-11-23 devnull stop = digtoul(w, &w);
442 9df487d7 2003-11-23 devnull if(w[0] != '\0')
443 9df487d7 2003-11-23 devnull return head;
444 9df487d7 2003-11-23 devnull if(!suf && stop < start)
445 9df487d7 2003-11-23 devnull return head;
448 9df487d7 2003-11-23 devnull r = halloc(h->c, sizeof(HRange));
449 9df487d7 2003-11-23 devnull r->suffix = suf;
450 9df487d7 2003-11-23 devnull r->start = start;
451 9df487d7 2003-11-23 devnull r->stop = stop;
452 9df487d7 2003-11-23 devnull r->next = nil;
453 9df487d7 2003-11-23 devnull if(rh == nil)
456 9df487d7 2003-11-23 devnull tail->next = r;
457 9df487d7 2003-11-23 devnull tail = r;
459 9df487d7 2003-11-23 devnull if(lex(h) != ','){
460 9df487d7 2003-11-23 devnull if(h->tok == '\n')
462 9df487d7 2003-11-23 devnull return head;
465 9df487d7 2003-11-23 devnull breakout:;
467 9df487d7 2003-11-23 devnull if(head == nil)
468 9df487d7 2003-11-23 devnull return rh;
470 9df487d7 2003-11-23 devnull for(tail = head; tail->next != nil; tail = tail->next)
472 9df487d7 2003-11-23 devnull tail->next = rh;
473 9df487d7 2003-11-23 devnull return head;
476 9df487d7 2003-11-23 devnull static void
477 9df487d7 2003-11-23 devnull mimeaccept(Hlex *h, char *name)
479 9df487d7 2003-11-23 devnull h->c->head.oktype = mimeok(h, name, 1, h->c->head.oktype);
482 9df487d7 2003-11-23 devnull static void
483 9df487d7 2003-11-23 devnull mimeacceptchar(Hlex *h, char *name)
485 9df487d7 2003-11-23 devnull h->c->head.okchar = mimeok(h, name, 0, h->c->head.okchar);
488 9df487d7 2003-11-23 devnull static void
489 9df487d7 2003-11-23 devnull mimeacceptenc(Hlex *h, char *name)
491 9df487d7 2003-11-23 devnull h->c->head.okencode = mimeok(h, name, 0, h->c->head.okencode);
494 9df487d7 2003-11-23 devnull static void
495 9df487d7 2003-11-23 devnull mimeacceptlang(Hlex *h, char *name)
497 9df487d7 2003-11-23 devnull h->c->head.oklang = mimeok(h, name, 0, h->c->head.oklang);
500 9df487d7 2003-11-23 devnull static void
501 9df487d7 2003-11-23 devnull mimemodified(Hlex *h, char *unused)
503 9df487d7 2003-11-23 devnull lexhead(h);
504 9df487d7 2003-11-23 devnull h->c->head.ifmodsince = hdate2sec(h->wordval);
507 9df487d7 2003-11-23 devnull static void
508 9df487d7 2003-11-23 devnull mimeunmodified(Hlex *h, char *unused)
510 9df487d7 2003-11-23 devnull lexhead(h);
511 9df487d7 2003-11-23 devnull h->c->head.ifunmodsince = hdate2sec(h->wordval);
514 9df487d7 2003-11-23 devnull static void
515 9df487d7 2003-11-23 devnull mimematch(Hlex *h, char *unused)
517 9df487d7 2003-11-23 devnull h->c->head.ifmatch = mimeetag(h, h->c->head.ifmatch);
520 9df487d7 2003-11-23 devnull static void
521 9df487d7 2003-11-23 devnull mimenomatch(Hlex *h, char *unused)
523 9df487d7 2003-11-23 devnull h->c->head.ifnomatch = mimeetag(h, h->c->head.ifnomatch);
527 9df487d7 2003-11-23 devnull * argument is either etag or date
529 9df487d7 2003-11-23 devnull static void
530 9df487d7 2003-11-23 devnull mimeifrange(Hlex *h, char *unused)
532 9df487d7 2003-11-23 devnull int c, d, et;
535 9df487d7 2003-11-23 devnull c = getc(h);
536 9df487d7 2003-11-23 devnull while(c == ' ' || c == '\t')
537 9df487d7 2003-11-23 devnull c = getc(h);
538 9df487d7 2003-11-23 devnull if(c == '"')
540 9df487d7 2003-11-23 devnull else if(c == 'W'){
541 9df487d7 2003-11-23 devnull d = getc(h);
542 9df487d7 2003-11-23 devnull if(d == '/')
544 9df487d7 2003-11-23 devnull ungetc(h);
546 9df487d7 2003-11-23 devnull ungetc(h);
548 9df487d7 2003-11-23 devnull h->c->head.ifrangeetag = mimeetag(h, h->c->head.ifrangeetag);
550 9df487d7 2003-11-23 devnull lexhead(h);
551 9df487d7 2003-11-23 devnull h->c->head.ifrangedate = hdate2sec(h->wordval);
555 9df487d7 2003-11-23 devnull static void
556 9df487d7 2003-11-23 devnull mimerange(Hlex *h, char *unused)
558 9df487d7 2003-11-23 devnull h->c->head.range = mimeranges(h, h->c->head.range);
562 9df487d7 2003-11-23 devnull * note: netscape and ie through versions 4.7 and 4
563 9df487d7 2003-11-23 devnull * support only basic authorization, so that is all that is supported here
565 9df487d7 2003-11-23 devnull * "Authorization" ":" "Basic" base64-user-pass
566 9df487d7 2003-11-23 devnull * where base64-user-pass is the base64 encoding of
567 9df487d7 2003-11-23 devnull * username ":" password
569 9df487d7 2003-11-23 devnull static void
570 9df487d7 2003-11-23 devnull mimeauthorization(Hlex *h, char *unused)
572 9df487d7 2003-11-23 devnull char *up, *p;
575 9df487d7 2003-11-23 devnull if(lex(h) != Word || cistrcmp(h->wordval, "basic") != 0)
578 9df487d7 2003-11-23 devnull n = lexbase64(h);
583 9df487d7 2003-11-23 devnull * wipe out source for password, so it won't be logged.
584 9df487d7 2003-11-23 devnull * it is replaced by a single =,
585 9df487d7 2003-11-23 devnull * which is valid base64, but not ok for an auth reponse.
586 9df487d7 2003-11-23 devnull * therefore future parses of the header field will not overwrite
587 9df487d7 2003-11-23 devnull * authuser and authpass.
589 9df487d7 2003-11-23 devnull memmove(h->c->hpos - (n - 1), h->c->hpos, h->c->hstop - h->c->hpos);
590 9df487d7 2003-11-23 devnull h->c->hstop -= n - 1;
591 9df487d7 2003-11-23 devnull *h->c->hstop = '\0';
592 9df487d7 2003-11-23 devnull h->c->hpos -= n - 1;
593 9df487d7 2003-11-23 devnull h->c->hpos[-1] = '=';
595 9df487d7 2003-11-23 devnull up = halloc(h->c, n + 1);
596 9df487d7 2003-11-23 devnull n = dec64((uchar*)up, n, h->wordval, n);
597 9df487d7 2003-11-23 devnull up[n] = '\0';
598 9df487d7 2003-11-23 devnull p = strchr(up, ':');
599 9df487d7 2003-11-23 devnull if(p != nil){
600 9df487d7 2003-11-23 devnull *p++ = '\0';
601 9df487d7 2003-11-23 devnull h->c->head.authuser = hstrdup(h->c, up);
602 9df487d7 2003-11-23 devnull h->c->head.authpass = hstrdup(h->c, p);
606 9df487d7 2003-11-23 devnull static void
607 9df487d7 2003-11-23 devnull mimeagent(Hlex *h, char *unused)
609 9df487d7 2003-11-23 devnull lexhead(h);
610 9df487d7 2003-11-23 devnull h->c->head.client = hstrdup(h->c, h->wordval);
613 9df487d7 2003-11-23 devnull static void
614 9df487d7 2003-11-23 devnull mimefrom(Hlex *h, char *unused)
616 9df487d7 2003-11-23 devnull lexhead(h);
619 9df487d7 2003-11-23 devnull static void
620 9df487d7 2003-11-23 devnull mimehost(Hlex *h, char *unused)
622 9df487d7 2003-11-23 devnull char *hd;
624 9df487d7 2003-11-23 devnull lexhead(h);
625 9df487d7 2003-11-23 devnull for(hd = h->wordval; *hd == ' ' || *hd == '\t'; hd++)
627 9df487d7 2003-11-23 devnull h->c->head.host = hlower(hstrdup(h->c, hd));
631 9df487d7 2003-11-23 devnull * if present, implies that a message body follows the headers
632 9df487d7 2003-11-23 devnull * "content-length" ":" digits
634 9df487d7 2003-11-23 devnull static void
635 9df487d7 2003-11-23 devnull mimecontlen(Hlex *h, char *unused)
637 9df487d7 2003-11-23 devnull char *e;
638 9df487d7 2003-11-23 devnull ulong v;
640 9df487d7 2003-11-23 devnull if(lex(h) != Word)
642 9df487d7 2003-11-23 devnull e = h->wordval;
643 9df487d7 2003-11-23 devnull v = digtoul(e, &e);
644 9df487d7 2003-11-23 devnull if(v == ~0UL || *e != '\0')
646 9df487d7 2003-11-23 devnull h->c->head.contlen = v;
650 9df487d7 2003-11-23 devnull * mimexpect : "expect" ":" expects
651 9df487d7 2003-11-23 devnull * expects : | expects "," expect
652 9df487d7 2003-11-23 devnull * expect : "100-continue" | token | token "=" token expectparams | token "=" qstring expectparams
653 9df487d7 2003-11-23 devnull * expectparams : ";" token | ";" token "=" token | token "=" qstring
654 9df487d7 2003-11-23 devnull * for now, we merely parse "100-continue" or anything else.
656 9df487d7 2003-11-23 devnull static void
657 9df487d7 2003-11-23 devnull mimeexpect(Hlex *h, char *unused)
659 9df487d7 2003-11-23 devnull if(lex(h) != Word || cistrcmp(h->wordval, "100-continue") != 0 || lex(h) != '\n')
660 9df487d7 2003-11-23 devnull h->c->head.expectother = 1;
661 9df487d7 2003-11-23 devnull h->c->head.expectcont = 1;
664 9df487d7 2003-11-23 devnull static void
665 9df487d7 2003-11-23 devnull mimetransenc(Hlex *h, char *unused)
667 9df487d7 2003-11-23 devnull h->c->head.transenc = mimehfields(h);
670 9df487d7 2003-11-23 devnull static void
671 9df487d7 2003-11-23 devnull mimefresh(Hlex *h, char *unused)
673 9df487d7 2003-11-23 devnull char *s;
675 9df487d7 2003-11-23 devnull lexhead(h);
676 9df487d7 2003-11-23 devnull for(s = h->wordval; *s && (*s==' ' || *s=='\t'); s++)
678 9df487d7 2003-11-23 devnull if(strncmp(s, "pathstat/", 9) == 0)
679 9df487d7 2003-11-23 devnull h->c->head.fresh_thresh = atoi(s+9);
680 9df487d7 2003-11-23 devnull else if(strncmp(s, "have/", 5) == 0)
681 9df487d7 2003-11-23 devnull h->c->head.fresh_have = atoi(s+5);
684 9df487d7 2003-11-23 devnull static void
685 9df487d7 2003-11-23 devnull mimeignore(Hlex *h, char *unused)
687 9df487d7 2003-11-23 devnull lexhead(h);
690 9df487d7 2003-11-23 devnull static void
691 9df487d7 2003-11-23 devnull parsejump(Hlex *h, char *k)
693 9df487d7 2003-11-23 devnull int l, r, m;
696 9df487d7 2003-11-23 devnull r = nelem(mimehead) - 1;
697 9df487d7 2003-11-23 devnull while(l <= r){
698 9df487d7 2003-11-23 devnull m = (r + l) >> 1;
699 9df487d7 2003-11-23 devnull if(cistrcmp(mimehead[m].name, k) <= 0)
700 9df487d7 2003-11-23 devnull l = m + 1;
702 9df487d7 2003-11-23 devnull r = m - 1;
704 9df487d7 2003-11-23 devnull m = l - 1;
705 9df487d7 2003-11-23 devnull if(cistrcmp(mimehead[m].name, k) == 0 && !mimehead[m].ignore){
706 9df487d7 2003-11-23 devnull mimehead[m].seen = 1;
707 9df487d7 2003-11-23 devnull (*mimehead[m].parse)(h, k);
709 9df487d7 2003-11-23 devnull mimeignore(h, k);
712 9df487d7 2003-11-23 devnull static int
713 9df487d7 2003-11-23 devnull lex(Hlex *h)
715 9df487d7 2003-11-23 devnull return h->tok = lex1(h, 0);
718 9df487d7 2003-11-23 devnull static int
719 9df487d7 2003-11-23 devnull lexbase64(Hlex *h)
721 9df487d7 2003-11-23 devnull int c, n;
724 9df487d7 2003-11-23 devnull lex1(h, 1);
726 9df487d7 2003-11-23 devnull while((c = getc(h)) >= 0){
727 9df487d7 2003-11-23 devnull if(!(c >= 'A' && c <= 'Z'
728 9df487d7 2003-11-23 devnull || c >= 'a' && c <= 'z'
729 9df487d7 2003-11-23 devnull || c >= '0' && c <= '9'
730 9df487d7 2003-11-23 devnull || c == '+' || c == '/')){
731 9df487d7 2003-11-23 devnull ungetc(h);
735 9df487d7 2003-11-23 devnull if(n < HMaxWord-1)
736 9df487d7 2003-11-23 devnull h->wordval[n++] = c;
738 9df487d7 2003-11-23 devnull h->wordval[n] = '\0';
739 9df487d7 2003-11-23 devnull return n;
743 9df487d7 2003-11-23 devnull * rfc 822/rfc 1521 lexical analyzer
745 9df487d7 2003-11-23 devnull static int
746 9df487d7 2003-11-23 devnull lex1(Hlex *h, int skipwhite)
748 9df487d7 2003-11-23 devnull int level, c;
750 9df487d7 2003-11-23 devnull if(h->eol)
751 9df487d7 2003-11-23 devnull return '\n';
754 9df487d7 2003-11-23 devnull c = getc(h);
755 9df487d7 2003-11-23 devnull switch(c){
756 9df487d7 2003-11-23 devnull case '(':
757 9df487d7 2003-11-23 devnull level = 1;
758 9df487d7 2003-11-23 devnull while((c = getc(h)) >= 0){
759 9df487d7 2003-11-23 devnull if(c == '\\'){
760 9df487d7 2003-11-23 devnull c = getc(h);
761 9df487d7 2003-11-23 devnull if(c < 0)
762 9df487d7 2003-11-23 devnull return '\n';
763 9df487d7 2003-11-23 devnull continue;
765 9df487d7 2003-11-23 devnull if(c == '(')
766 9df487d7 2003-11-23 devnull level++;
767 9df487d7 2003-11-23 devnull else if(c == ')' && --level == 0)
769 9df487d7 2003-11-23 devnull else if(c == '\n'){
770 9df487d7 2003-11-23 devnull c = getc(h);
771 9df487d7 2003-11-23 devnull if(c < 0)
772 9df487d7 2003-11-23 devnull return '\n';
773 9df487d7 2003-11-23 devnull if(c == ')' && --level == 0)
775 9df487d7 2003-11-23 devnull if(c != ' ' && c != '\t'){
776 9df487d7 2003-11-23 devnull ungetc(h);
777 9df487d7 2003-11-23 devnull return '\n';
781 9df487d7 2003-11-23 devnull goto top;
783 9df487d7 2003-11-23 devnull case ' ': case '\t':
784 9df487d7 2003-11-23 devnull goto top;
786 9df487d7 2003-11-23 devnull case '\r':
787 9df487d7 2003-11-23 devnull c = getc(h);
788 9df487d7 2003-11-23 devnull if(c != '\n'){
789 9df487d7 2003-11-23 devnull ungetc(h);
790 9df487d7 2003-11-23 devnull goto top;
793 9df487d7 2003-11-23 devnull case '\n':
794 9df487d7 2003-11-23 devnull if(h->tok == '\n'){
795 9df487d7 2003-11-23 devnull h->eol = 1;
796 9df487d7 2003-11-23 devnull h->eoh = 1;
797 9df487d7 2003-11-23 devnull return '\n';
799 9df487d7 2003-11-23 devnull c = getc(h);
800 9df487d7 2003-11-23 devnull if(c < 0){
801 9df487d7 2003-11-23 devnull h->eol = 1;
802 9df487d7 2003-11-23 devnull return '\n';
804 9df487d7 2003-11-23 devnull if(c != ' ' && c != '\t'){
805 9df487d7 2003-11-23 devnull ungetc(h);
806 9df487d7 2003-11-23 devnull h->eol = 1;
807 9df487d7 2003-11-23 devnull return '\n';
809 9df487d7 2003-11-23 devnull goto top;
811 9df487d7 2003-11-23 devnull case ')':
812 9df487d7 2003-11-23 devnull case '<': case '>':
813 9df487d7 2003-11-23 devnull case '[': case ']':
814 9df487d7 2003-11-23 devnull case '@': case '/':
815 9df487d7 2003-11-23 devnull case ',': case ';': case ':': case '?': case '=':
816 9df487d7 2003-11-23 devnull if(skipwhite){
817 9df487d7 2003-11-23 devnull ungetc(h);
818 9df487d7 2003-11-23 devnull return c;
820 9df487d7 2003-11-23 devnull return c;
822 9df487d7 2003-11-23 devnull case '"':
823 9df487d7 2003-11-23 devnull if(skipwhite){
824 9df487d7 2003-11-23 devnull ungetc(h);
825 9df487d7 2003-11-23 devnull return c;
827 9df487d7 2003-11-23 devnull word(h, "\"");
828 9df487d7 2003-11-23 devnull getc(h); /* skip the closing quote */
829 9df487d7 2003-11-23 devnull return QString;
831 9df487d7 2003-11-23 devnull default:
832 9df487d7 2003-11-23 devnull ungetc(h);
833 9df487d7 2003-11-23 devnull if(skipwhite)
834 9df487d7 2003-11-23 devnull return c;
835 9df487d7 2003-11-23 devnull word(h, "\"(){}<>@,;:/[]?=\r\n \t");
836 9df487d7 2003-11-23 devnull if(h->wordval[0] == '\0'){
837 9df487d7 2003-11-23 devnull h->c->head.closeit = 1;
838 9df487d7 2003-11-23 devnull hfail(h->c, HSyntax);
839 9df487d7 2003-11-23 devnull longjmp(h->jmp, -1);
841 9df487d7 2003-11-23 devnull return Word;
843 9df487d7 2003-11-23 devnull goto top;
844 9df487d7 2003-11-23 devnull return 0;
848 9df487d7 2003-11-23 devnull * return the rest of an rfc 822, including \n
849 9df487d7 2003-11-23 devnull * do not map to lower case
851 9df487d7 2003-11-23 devnull static void
852 9df487d7 2003-11-23 devnull lexhead(Hlex *h)
854 9df487d7 2003-11-23 devnull int c, n;
857 9df487d7 2003-11-23 devnull while((c = getc(h)) >= 0){
858 9df487d7 2003-11-23 devnull if(c == '\r')
859 9df487d7 2003-11-23 devnull c = wordcr(h);
860 9df487d7 2003-11-23 devnull else if(c == '\n')
861 9df487d7 2003-11-23 devnull c = wordnl(h);
862 9df487d7 2003-11-23 devnull if(c == '\n')
864 9df487d7 2003-11-23 devnull if(c == '\\'){
865 9df487d7 2003-11-23 devnull c = getc(h);
866 9df487d7 2003-11-23 devnull if(c < 0)
870 9df487d7 2003-11-23 devnull if(n < HMaxWord-1)
871 9df487d7 2003-11-23 devnull h->wordval[n++] = c;
873 9df487d7 2003-11-23 devnull h->tok = '\n';
874 9df487d7 2003-11-23 devnull h->eol = 1;
875 9df487d7 2003-11-23 devnull h->wordval[n] = '\0';
878 9df487d7 2003-11-23 devnull static void
879 9df487d7 2003-11-23 devnull word(Hlex *h, char *stop)
881 9df487d7 2003-11-23 devnull int c, n;
884 9df487d7 2003-11-23 devnull while((c = getc(h)) >= 0){
885 9df487d7 2003-11-23 devnull if(c == '\r')
886 9df487d7 2003-11-23 devnull c = wordcr(h);
887 9df487d7 2003-11-23 devnull else if(c == '\n')
888 9df487d7 2003-11-23 devnull c = wordnl(h);
889 9df487d7 2003-11-23 devnull if(c == '\\'){
890 9df487d7 2003-11-23 devnull c = getc(h);
891 9df487d7 2003-11-23 devnull if(c < 0)
893 9df487d7 2003-11-23 devnull }else if(c < 32 || strchr(stop, c) != nil){
894 9df487d7 2003-11-23 devnull ungetc(h);
898 9df487d7 2003-11-23 devnull if(n < HMaxWord-1)
899 9df487d7 2003-11-23 devnull h->wordval[n++] = c;
901 9df487d7 2003-11-23 devnull h->wordval[n] = '\0';
904 9df487d7 2003-11-23 devnull static int
905 9df487d7 2003-11-23 devnull wordcr(Hlex *h)
909 9df487d7 2003-11-23 devnull c = getc(h);
910 9df487d7 2003-11-23 devnull if(c == '\n')
911 9df487d7 2003-11-23 devnull return wordnl(h);
912 9df487d7 2003-11-23 devnull ungetc(h);
913 9df487d7 2003-11-23 devnull return ' ';
916 9df487d7 2003-11-23 devnull static int
917 9df487d7 2003-11-23 devnull wordnl(Hlex *h)
921 9df487d7 2003-11-23 devnull c = getc(h);
922 9df487d7 2003-11-23 devnull if(c == ' ' || c == '\t')
923 9df487d7 2003-11-23 devnull return c;
924 9df487d7 2003-11-23 devnull ungetc(h);
926 9df487d7 2003-11-23 devnull return '\n';
929 9df487d7 2003-11-23 devnull static int
930 9df487d7 2003-11-23 devnull getc(Hlex *h)
932 9df487d7 2003-11-23 devnull if(h->eoh)
933 9df487d7 2003-11-23 devnull return -1;
934 9df487d7 2003-11-23 devnull if(h->c->hpos < h->c->hstop)
935 9df487d7 2003-11-23 devnull return *h->c->hpos++;
936 9df487d7 2003-11-23 devnull h->eoh = 1;
937 9df487d7 2003-11-23 devnull h->eol = 1;
938 9df487d7 2003-11-23 devnull return -1;
941 9df487d7 2003-11-23 devnull static void
942 9df487d7 2003-11-23 devnull ungetc(Hlex *h)
944 9df487d7 2003-11-23 devnull if(h->eoh)
946 9df487d7 2003-11-23 devnull h->c->hpos--;
949 9df487d7 2003-11-23 devnull static ulong
950 9df487d7 2003-11-23 devnull digtoul(char *s, char **e)
952 9df487d7 2003-11-23 devnull ulong v;
953 9df487d7 2003-11-23 devnull int c, ovfl;
956 9df487d7 2003-11-23 devnull ovfl = 0;
957 9df487d7 2003-11-23 devnull for(;;){
959 9df487d7 2003-11-23 devnull if(c < '0' || c > '9')
962 9df487d7 2003-11-23 devnull c -= '0';
963 9df487d7 2003-11-23 devnull if(v > UlongMax/10 || v == UlongMax/10 && c >= UlongMax%10)
964 9df487d7 2003-11-23 devnull ovfl = 1;
965 9df487d7 2003-11-23 devnull v = v * 10 + c;
970 9df487d7 2003-11-23 devnull if(ovfl)
971 9df487d7 2003-11-23 devnull return UlongMax;
972 9df487d7 2003-11-23 devnull return v;
976 9df487d7 2003-11-23 devnull http11(HConnect *c)
978 9df487d7 2003-11-23 devnull return c->req.vermaj > 1 || c->req.vermaj == 1 && c->req.vermin > 0;
982 9df487d7 2003-11-23 devnull hmkmimeboundary(HConnect *c)
984 9df487d7 2003-11-23 devnull char buf[32];
987 9df487d7 2003-11-23 devnull srand((time(0)<<16)|getpid());
988 9df487d7 2003-11-23 devnull strcpy(buf, "upas-");
989 9df487d7 2003-11-23 devnull for(i = 5; i < sizeof(buf)-1; i++)
990 9df487d7 2003-11-23 devnull buf[i] = 'a' + nrand(26);
991 9df487d7 2003-11-23 devnull buf[i] = 0;
992 9df487d7 2003-11-23 devnull return hstrdup(c, buf);
995 9df487d7 2003-11-23 devnull HSPairs*
996 9df487d7 2003-11-23 devnull hmkspairs(HConnect *c, char *s, char *t, HSPairs *next)
998 9df487d7 2003-11-23 devnull HSPairs *sp;
1000 9df487d7 2003-11-23 devnull sp = halloc(c, sizeof *sp);
1001 9df487d7 2003-11-23 devnull sp->s = s;
1002 9df487d7 2003-11-23 devnull sp->t = t;
1003 9df487d7 2003-11-23 devnull sp->next = next;
1004 9df487d7 2003-11-23 devnull return sp;
1007 9df487d7 2003-11-23 devnull HSPairs*
1008 9df487d7 2003-11-23 devnull hrevspairs(HSPairs *sp)
1010 9df487d7 2003-11-23 devnull HSPairs *last, *next;
1012 9df487d7 2003-11-23 devnull last = nil;
1013 9df487d7 2003-11-23 devnull for(; sp != nil; sp = next){
1014 9df487d7 2003-11-23 devnull next = sp->next;
1015 9df487d7 2003-11-23 devnull sp->next = last;
1016 9df487d7 2003-11-23 devnull last = sp;
1018 9df487d7 2003-11-23 devnull return last;
1021 9df487d7 2003-11-23 devnull HFields*
1022 9df487d7 2003-11-23 devnull hmkhfields(HConnect *c, char *s, HSPairs *p, HFields *next)
1024 9df487d7 2003-11-23 devnull HFields *hf;
1026 9df487d7 2003-11-23 devnull hf = halloc(c, sizeof *hf);
1027 9df487d7 2003-11-23 devnull hf->s = s;
1028 9df487d7 2003-11-23 devnull hf->params = p;
1029 9df487d7 2003-11-23 devnull hf->next = next;
1030 9df487d7 2003-11-23 devnull return hf;
1033 9df487d7 2003-11-23 devnull HFields*
1034 9df487d7 2003-11-23 devnull hrevhfields(HFields *hf)
1036 9df487d7 2003-11-23 devnull HFields *last, *next;
1038 9df487d7 2003-11-23 devnull last = nil;
1039 9df487d7 2003-11-23 devnull for(; hf != nil; hf = next){
1040 9df487d7 2003-11-23 devnull next = hf->next;
1041 9df487d7 2003-11-23 devnull hf->next = last;
1042 9df487d7 2003-11-23 devnull last = hf;
1044 9df487d7 2003-11-23 devnull return last;
1047 9df487d7 2003-11-23 devnull HContent*
1048 9df487d7 2003-11-23 devnull hmkcontent(HConnect *c, char *generic, char *specific, HContent *next)
1050 9df487d7 2003-11-23 devnull HContent *ct;
1052 9df487d7 2003-11-23 devnull ct = halloc(c, sizeof(HContent));
1053 9df487d7 2003-11-23 devnull ct->generic = generic;
1054 9df487d7 2003-11-23 devnull ct->specific = specific;
1055 9df487d7 2003-11-23 devnull ct->next = next;
1056 9df487d7 2003-11-23 devnull ct->q = 1;
1057 9df487d7 2003-11-23 devnull ct->mxb = 0;
1058 9df487d7 2003-11-23 devnull return ct;
