4 * parse urlparts and post data
10 void free_url(void *U)
12 urlcontent *u = (urlcontent*) U;
13 FreeStrBuf(&u->url_data);
18 * Extract variables from the URL.
20 void ParseURLParams(StrBuf *url)
22 const char *aptr, *bptr, *eptr, *up;
27 if (WCC->Hdr->urlstrings == NULL)
28 WCC->Hdr->urlstrings = NewHash(1, NULL);
29 eptr = ChrPtr(url) + StrLength(url);
31 while ((up < eptr) && (!IsEmptyStr(up))) {
33 while ((aptr < eptr) && (*aptr != '\0') && (*aptr != '='))
40 while ((bptr < eptr) && (*bptr != '\0')
41 && (*bptr != '&') && (*bptr != '?') && (*bptr != ' ')) {
44 keylen = aptr - up - 1; /* -1 -> '=' */
45 if(keylen > sizeof(u->url_key)) {
46 lprintf(1, "URLkey to long! [%s]", up);
50 u = (urlcontent *) malloc(sizeof(urlcontent));
51 memcpy(u->url_key, up, keylen);
52 u->url_key[keylen] = '\0';
54 lprintf(1, "URLkey to long! [%s]", up);
59 if (strncmp(u->url_key, HKEY("__")) != 0)
61 Put(WCC->Hdr->urlstrings, u->url_key, keylen, u, free_url);
63 u->url_data = NewStrBufPlain(aptr, len);
64 StrBufUnescape(u->url_data, 1);
65 #ifdef DEBUG_URLSTRINGS
66 lprintf(9, "%s = [%ld] %s\n",
68 StrLength(u->url_data),
74 u->url_data = NewStrBufPlain(aptr, len);
75 StrBufUnescape(u->url_data, 1);
76 lprintf(1, "REJECTED because of __ is internal only: %s = [%ld] %s\n",
78 StrLength(u->url_data),
89 * free urlstring memory
93 DeleteHash(&WC->Hdr->urlstrings);
97 * Diagnostic function to display the contents of all variables
109 Cursor = GetNewHashPos (WCC->Hdr->urlstrings, 0);
110 while (GetNextHashPos(WCC->Hdr->urlstrings, Cursor, &HKLen, &HKey, &U)) {
112 wc_printf("%38s = %s\n", u->url_key, ChrPtr(u->url_data));
117 * Return the value of a variable supplied to the current web page (from the url or a form)
120 const char *XBstr(const char *key, size_t keylen, size_t *len)
124 if ((WC->Hdr->urlstrings != NULL) &&
125 GetHash(WC->Hdr->urlstrings, key, keylen, &U)) {
126 *len = StrLength(((urlcontent *)U)->url_data);
127 return ChrPtr(((urlcontent *)U)->url_data);
135 const char *XBSTR(const char *key, size_t *len)
139 if ((WC->Hdr->urlstrings != NULL) &&
140 GetHash(WC->Hdr->urlstrings, key, strlen (key), &U)){
141 *len = StrLength(((urlcontent *)U)->url_data);
142 return ChrPtr(((urlcontent *)U)->url_data);
151 const char *BSTR(const char *key)
155 if ((WC->Hdr->urlstrings != NULL) &&
156 GetHash(WC->Hdr->urlstrings, key, strlen (key), &U))
157 return ChrPtr(((urlcontent *)U)->url_data);
162 const char *Bstr(const char *key, size_t keylen)
166 if ((WC->Hdr->urlstrings != NULL) &&
167 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
168 return ChrPtr(((urlcontent *)U)->url_data);
173 const StrBuf *SBSTR(const char *key)
177 if ((WC->Hdr->urlstrings != NULL) &&
178 GetHash(WC->Hdr->urlstrings, key, strlen (key), &U))
179 return ((urlcontent *)U)->url_data;
184 const StrBuf *SBstr(const char *key, size_t keylen)
188 if ((WC->Hdr->urlstrings != NULL) &&
189 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
190 return ((urlcontent *)U)->url_data;
195 long LBstr(const char *key, size_t keylen)
199 if ((WC->Hdr->urlstrings != NULL) &&
200 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
201 return StrTol(((urlcontent *)U)->url_data);
206 long LBSTR(const char *key)
210 if ((WC->Hdr->urlstrings != NULL) &&
211 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
212 return StrTol(((urlcontent *)U)->url_data);
217 int IBstr(const char *key, size_t keylen)
221 if ((WC->Hdr->urlstrings != NULL) &&
222 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
223 return StrTol(((urlcontent *)U)->url_data);
228 int IBSTR(const char *key)
232 if ((WC->Hdr->urlstrings != NULL) &&
233 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
234 return StrToi(((urlcontent *)U)->url_data);
239 int HaveBstr(const char *key, size_t keylen)
243 if ((WC->Hdr->urlstrings != NULL) &&
244 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
245 return (StrLength(((urlcontent *)U)->url_data) != 0);
250 int HAVEBSTR(const char *key)
254 if ((WC->Hdr->urlstrings != NULL) &&
255 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
256 return (StrLength(((urlcontent *)U)->url_data) != 0);
262 int YesBstr(const char *key, size_t keylen)
266 if ((WC->Hdr->urlstrings != NULL) &&
267 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
268 return strcmp( ChrPtr(((urlcontent *)U)->url_data), "yes") == 0;
273 int YESBSTR(const char *key)
277 if ((WC->Hdr->urlstrings != NULL) &&
278 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
279 return strcmp( ChrPtr(((urlcontent *)U)->url_data), "yes") == 0;
288 * This function is called by the MIME parser to handle data uploaded by
289 * the browser. Form data, uploaded files, and the data from HTTP PUT
290 * operations (such as those found in GroupDAV) all arrive this way.
292 * name Name of the item being uploaded
293 * filename Filename of the item being uploaded
294 * partnum MIME part identifier (not needed)
295 * disp MIME content disposition (not needed)
296 * content The actual data
297 * cbtype MIME content-type
298 * cbcharset Character set
299 * length Content length
300 * encoding MIME encoding type (not needed)
301 * cbid Content ID (not needed)
302 * userdata Not used here
304 void upload_handler(char *name, char *filename, char *partnum, char *disp,
305 void *content, char *cbtype, char *cbcharset,
306 size_t length, char *encoding, char *cbid, void *userdata)
312 #ifdef DEBUG_URLSTRINGS
313 lprintf(9, "upload_handler() name=%s, type=%s, len=%d\n", name, cbtype, length);
315 if (WCC->Hdr->urlstrings == NULL)
316 WCC->Hdr->urlstrings = NewHash(1, NULL);
319 if ( (length > 0) && (IsEmptyStr(cbtype)) ) {
320 u = (urlcontent *) malloc(sizeof(urlcontent));
322 keylen = safestrncpy(u->url_key, name, sizeof(u->url_key));
323 u->url_data = NewStrBufPlain(content, length);
325 if (strncmp(u->url_key, HKEY("__")) != 0)
327 Put(WCC->Hdr->urlstrings, u->url_key, keylen, u, free_url);
330 lprintf(1, "REJECTED because of __ is internal only: %s = [%ld] %s\n",
332 StrLength(u->url_data),
333 ChrPtr(u->url_data));
337 #ifdef DEBUG_URLSTRINGS
338 lprintf(9, "Key: <%s> len: [%ld] Data: <%s>\n",
340 StrLength(u->url_data),
341 ChrPtr(u->url_data));
345 /** Uploaded files */
346 if ( (length > 0) && (!IsEmptyStr(cbtype)) ) {
347 WCC->upload = NewStrBufPlain(content, length);
348 WCC->upload_length = length;
349 WCC->upload_filename = NewStrBufPlain(filename, -1);
350 safestrncpy(WCC->upload_content_type, cbtype,
351 sizeof(WC->upload_content_type));
359 void PutBstr(const char *key, long keylen, StrBuf *Value)
363 if(keylen > sizeof(u->url_key)) {
364 lprintf(1, "URLkey to long! [%s]", key);
368 u = (urlcontent*)malloc(sizeof(urlcontent));
369 memcpy(u->url_key, key, keylen + 1);
371 Put(WC->Hdr->urlstrings, u->url_key, keylen, u, free_url);
376 int ConditionalBstr(StrBuf *Target, WCTemplputParams *TP)
378 if(TP->Tokens->nParameters == 3)
379 return HaveBstr(TKEY(2));
381 if (IS_NUMBER(TP->Tokens->Params[3]->Type))
383 return LBstr(TKEY(2)) ==
384 GetTemplateTokenNumber(Target,
393 GetTemplateTokenString (Target, TP, 3, &pch, &len);
394 return strcmp(Bstr(TKEY(2)), pch) == 0;
399 void tmplput_bstr(StrBuf *Target, WCTemplputParams *TP)
401 const StrBuf *Buf = SBstr(TKEY(0));
403 StrBufAppendTemplate(Target, TP, Buf, 1);
407 void tmplput_bstrforward(StrBuf *Target, WCTemplputParams *TP)
409 const StrBuf *Buf = SBstr(TKEY(0));
411 StrBufAppendBufPlain(Target, HKEY("?"), 0);
412 StrBufAppendBufPlain(Target, TKEY(0), 0);
413 StrBufAppendBufPlain(Target, HKEY("="), 0);
414 StrBufAppendTemplate(Target, TP, Buf, 1);
418 void diagnostics(void)
420 output_headers(1, 1, 1, 0, 0, 0);
421 wc_printf("Session: %d<hr />\n", WC->wc_session);
422 wc_printf("Command: <br /><PRE>\n");
424 StrEscPuts(WC->UrlFragment1);
425 wc_printf("<br />\n");
426 StrEscPuts(WC->UrlFragment2);
427 wc_printf("<br />\n");
428 StrEscPuts(WC->UrlFragment3);
430 wc_printf("</PRE><hr />\n");
431 wc_printf("Variables: <br /><PRE>\n");
433 wc_printf("</PRE><hr />\n");
438 void tmplput_url_part(StrBuf *Target, WCTemplputParams *TP)
441 StrBuf *UrlBuf = NULL;
447 n = GetTemplateTokenNumber(Target, TP, 0, 0);
449 if (WCC->Hdr->HR.Handler != NULL)
450 UrlBuf = Name = WCC->Hdr->HR.Handler->Name;
453 UrlBuf = NewStrBuf();
454 StrBufExtract_token(UrlBuf, WCC->Hdr->HR.ReqLine, 0, '/');
457 UrlBuf = NewStrBuf();
458 StrBufExtract_token(UrlBuf, WCC->Hdr->HR.ReqLine, 1, '/');
461 if (UrlBuf == NULL) {
462 LogTemplateError(Target, "urlbuf", ERR_PARM1, TP, "not set.");
464 StrBufAppendTemplate(Target, TP, UrlBuf, 2);
465 if (Name == NULL) FreeStrBuf(&UrlBuf);
471 InitModule_PARAMHANDLING
474 WebcitAddUrlHandler(HKEY("diagnostics"), "", 0, diagnostics, NEED_URL);
476 RegisterConditional(HKEY("COND:BSTR"), 1, ConditionalBstr, CTX_NONE);
477 RegisterNamespace("BSTR", 1, 2, tmplput_bstr, NULL, CTX_NONE);
478 RegisterNamespace("BSTR:FORWARD", 1, 2, tmplput_bstrforward, NULL, CTX_NONE);
479 RegisterNamespace("URLPART", 1, 2, tmplput_url_part, NULL, CTX_NONE);
484 SessionAttachModule_PARAMHANDLING
487 sess->Hdr->urlstrings = NewHash(1,NULL);
491 SessionDetachModule_PARAMHANDLING
494 DeleteHash(&sess->Hdr->urlstrings);
495 FreeStrBuf(&sess->upload_filename);