2 * parse urlparts and post data
10 urlcontent *u = (urlcontent*) U;
11 FreeStrBuf(&u->url_data);
16 * Extract variables from the URL.
18 void ParseURLParams(StrBuf *url)
20 const char *aptr, *bptr, *eptr, *up;
25 if (WCC->Hdr->urlstrings == NULL)
26 WCC->Hdr->urlstrings = NewHash(1, NULL);
27 eptr = ChrPtr(url) + StrLength(url);
29 while ((up < eptr) && (!IsEmptyStr(up))) {
31 while ((aptr < eptr) && (*aptr != '\0') && (*aptr != '='))
38 while ((bptr < eptr) && (*bptr != '\0')
39 && (*bptr != '&') && (*bptr != '?') && (*bptr != ' ')) {
42 keylen = aptr - up - 1; /* -1 -> '=' */
43 if(keylen > sizeof(u->url_key)) {
44 lprintf(1, "URLkey to long! [%s]", up);
48 u = (urlcontent *) malloc(sizeof(urlcontent));
49 memcpy(u->url_key, up, keylen);
50 u->url_key[keylen] = '\0';
52 lprintf(1, "URLkey to long! [%s]", up);
57 if (strncmp(u->url_key, HKEY("__")) != 0)
59 Put(WCC->Hdr->urlstrings, u->url_key, keylen, u, free_url);
61 u->url_data = NewStrBufPlain(aptr, len);
62 StrBufUnescape(u->url_data, 1);
63 #ifdef DEBUG_URLSTRINGS
64 lprintf(9, "%s = [%ld] %s\n",
66 StrLength(u->url_data),
72 u->url_data = NewStrBufPlain(aptr, len);
73 StrBufUnescape(u->url_data, 1);
74 lprintf(1, "REJECTED because of __ is internal only: %s = [%ld] %s\n",
76 StrLength(u->url_data),
87 * free urlstring memory
91 DeleteHash(&WC->Hdr->urlstrings);
95 * Diagnostic function to display the contents of all variables
107 Cursor = GetNewHashPos (WCC->Hdr->urlstrings, 0);
108 while (GetNextHashPos(WCC->Hdr->urlstrings, Cursor, &HKLen, &HKey, &U)) {
110 wc_printf("%38s = %s\n", u->url_key, ChrPtr(u->url_data));
115 * Return the value of a variable supplied to the current web page (from the url or a form)
118 const char *XBstr(const char *key, size_t keylen, size_t *len)
122 if ((WC->Hdr->urlstrings != NULL) &&
123 GetHash(WC->Hdr->urlstrings, key, keylen, &U)) {
124 *len = StrLength(((urlcontent *)U)->url_data);
125 return ChrPtr(((urlcontent *)U)->url_data);
133 const char *XBSTR(const char *key, size_t *len)
137 if ((WC->Hdr->urlstrings != NULL) &&
138 GetHash(WC->Hdr->urlstrings, key, strlen (key), &U)){
139 *len = StrLength(((urlcontent *)U)->url_data);
140 return ChrPtr(((urlcontent *)U)->url_data);
149 const char *BSTR(const char *key)
153 if ((WC->Hdr->urlstrings != NULL) &&
154 GetHash(WC->Hdr->urlstrings, key, strlen (key), &U))
155 return ChrPtr(((urlcontent *)U)->url_data);
160 const char *Bstr(const char *key, size_t keylen)
164 if ((WC->Hdr->urlstrings != NULL) &&
165 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
166 return ChrPtr(((urlcontent *)U)->url_data);
171 const StrBuf *SBSTR(const char *key)
175 if ((WC->Hdr->urlstrings != NULL) &&
176 GetHash(WC->Hdr->urlstrings, key, strlen (key), &U))
177 return ((urlcontent *)U)->url_data;
182 const StrBuf *SBstr(const char *key, size_t keylen)
186 if ((WC->Hdr->urlstrings != NULL) &&
187 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
188 return ((urlcontent *)U)->url_data;
193 long LBstr(const char *key, size_t keylen)
197 if ((WC->Hdr->urlstrings != NULL) &&
198 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
199 return StrTol(((urlcontent *)U)->url_data);
204 long LBSTR(const char *key)
208 if ((WC->Hdr->urlstrings != NULL) &&
209 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
210 return StrTol(((urlcontent *)U)->url_data);
215 int IBstr(const char *key, size_t keylen)
219 if ((WC->Hdr->urlstrings != NULL) &&
220 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
221 return StrTol(((urlcontent *)U)->url_data);
226 int IBSTR(const char *key)
230 if ((WC->Hdr->urlstrings != NULL) &&
231 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
232 return StrToi(((urlcontent *)U)->url_data);
237 int HaveBstr(const char *key, size_t keylen)
241 if ((WC->Hdr->urlstrings != NULL) &&
242 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
243 return (StrLength(((urlcontent *)U)->url_data) != 0);
248 int HAVEBSTR(const char *key)
252 if ((WC->Hdr->urlstrings != NULL) &&
253 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
254 return (StrLength(((urlcontent *)U)->url_data) != 0);
260 int YesBstr(const char *key, size_t keylen)
264 if ((WC->Hdr->urlstrings != NULL) &&
265 GetHash(WC->Hdr->urlstrings, key, keylen, &U))
266 return strcmp( ChrPtr(((urlcontent *)U)->url_data), "yes") == 0;
271 int YESBSTR(const char *key)
275 if ((WC->Hdr->urlstrings != NULL) &&
276 GetHash(WC->Hdr->urlstrings, key, strlen(key), &U))
277 return strcmp( ChrPtr(((urlcontent *)U)->url_data), "yes") == 0;
286 * This function is called by the MIME parser to handle data uploaded by
287 * the browser. Form data, uploaded files, and the data from HTTP PUT
288 * operations (such as those found in GroupDAV) all arrive this way.
290 * name Name of the item being uploaded
291 * filename Filename of the item being uploaded
292 * partnum MIME part identifier (not needed)
293 * disp MIME content disposition (not needed)
294 * content The actual data
295 * cbtype MIME content-type
296 * cbcharset Character set
297 * length Content length
298 * encoding MIME encoding type (not needed)
299 * cbid Content ID (not needed)
300 * userdata Not used here
302 void upload_handler(char *name, char *filename, char *partnum, char *disp,
303 void *content, char *cbtype, char *cbcharset,
304 size_t length, char *encoding, char *cbid, void *userdata)
310 #ifdef DEBUG_URLSTRINGS
311 lprintf(9, "upload_handler() name=%s, type=%s, len=%d\n", name, cbtype, length);
313 if (WCC->Hdr->urlstrings == NULL)
314 WCC->Hdr->urlstrings = NewHash(1, NULL);
317 if ( (length > 0) && (IsEmptyStr(cbtype)) ) {
318 u = (urlcontent *) malloc(sizeof(urlcontent));
320 keylen = safestrncpy(u->url_key, name, sizeof(u->url_key));
321 u->url_data = NewStrBufPlain(content, length);
323 if (strncmp(u->url_key, HKEY("__")) != 0)
325 Put(WCC->Hdr->urlstrings, u->url_key, keylen, u, free_url);
328 lprintf(1, "REJECTED because of __ is internal only: %s = [%ld] %s\n",
330 StrLength(u->url_data),
331 ChrPtr(u->url_data));
335 #ifdef DEBUG_URLSTRINGS
336 lprintf(9, "Key: <%s> len: [%ld] Data: <%s>\n",
338 StrLength(u->url_data),
339 ChrPtr(u->url_data));
343 /** Uploaded files */
344 if ( (length > 0) && (!IsEmptyStr(cbtype)) ) {
345 WCC->upload = NewStrBufPlain(content, length);
346 WCC->upload_length = length;
347 WCC->upload_filename = NewStrBufPlain(filename, -1);
348 safestrncpy(WCC->upload_content_type, cbtype,
349 sizeof(WC->upload_content_type));
357 void PutBstr(const char *key, long keylen, StrBuf *Value)
361 if(keylen > sizeof(u->url_key)) {
362 lprintf(1, "URLkey to long! [%s]", key);
366 u = (urlcontent*)malloc(sizeof(urlcontent));
367 memcpy(u->url_key, key, keylen + 1);
369 Put(WC->Hdr->urlstrings, u->url_key, keylen, u, free_url);
374 int ConditionalBstr(StrBuf *Target, WCTemplputParams *TP)
376 if(TP->Tokens->nParameters == 3)
377 return HaveBstr(TKEY(2));
379 if (IS_NUMBER(TP->Tokens->Params[3]->Type))
381 return LBstr(TKEY(2)) ==
382 GetTemplateTokenNumber(Target,
391 GetTemplateTokenString (Target, TP, 3, &pch, &len);
392 return strcmp(Bstr(TKEY(2)), pch) == 0;
397 void tmplput_bstr(StrBuf *Target, WCTemplputParams *TP)
399 const StrBuf *Buf = SBstr(TKEY(0));
401 StrBufAppendTemplate(Target, TP, Buf, 1);
405 void tmplput_bstrforward(StrBuf *Target, WCTemplputParams *TP)
407 const StrBuf *Buf = SBstr(TKEY(0));
409 StrBufAppendBufPlain(Target, HKEY("?"), 0);
410 StrBufAppendBufPlain(Target, TKEY(0), 0);
411 StrBufAppendBufPlain(Target, HKEY("="), 0);
412 StrBufAppendTemplate(Target, TP, Buf, 1);
416 void diagnostics(void)
418 output_headers(1, 1, 1, 0, 0, 0);
419 wc_printf("Session: %d<hr />\n", WC->wc_session);
420 wc_printf("Command: <br /><PRE>\n");
422 StrEscPuts(WC->UrlFragment1);
423 wc_printf("<br />\n");
424 StrEscPuts(WC->UrlFragment2);
425 wc_printf("<br />\n");
426 StrEscPuts(WC->UrlFragment3);
428 wc_printf("</PRE><hr />\n");
429 wc_printf("Variables: <br /><PRE>\n");
431 wc_printf("</PRE><hr />\n");
436 void tmplput_url_part(StrBuf *Target, WCTemplputParams *TP)
439 StrBuf *UrlBuf = NULL;
445 n = GetTemplateTokenNumber(Target, TP, 0, 0);
447 if (WCC->Hdr->HR.Handler != NULL)
448 UrlBuf = Name = WCC->Hdr->HR.Handler->Name;
451 UrlBuf = NewStrBuf();
452 StrBufExtract_token(UrlBuf, WCC->Hdr->HR.ReqLine, 0, '/');
455 UrlBuf = NewStrBuf();
456 StrBufExtract_token(UrlBuf, WCC->Hdr->HR.ReqLine, 1, '/');
459 if (UrlBuf == NULL) {
460 LogTemplateError(Target, "urlbuf", ERR_PARM1, TP, "not set.");
462 StrBufAppendTemplate(Target, TP, UrlBuf, 2);
463 if (Name == NULL) FreeStrBuf(&UrlBuf);
469 InitModule_PARAMHANDLING
472 WebcitAddUrlHandler(HKEY("diagnostics"), "", 0, diagnostics, NEED_URL);
474 RegisterConditional(HKEY("COND:BSTR"), 1, ConditionalBstr, CTX_NONE);
475 RegisterNamespace("BSTR", 1, 2, tmplput_bstr, NULL, CTX_NONE);
476 RegisterNamespace("BSTR:FORWARD", 1, 2, tmplput_bstrforward, NULL, CTX_NONE);
477 RegisterNamespace("URLPART", 1, 2, tmplput_url_part, NULL, CTX_NONE);
482 SessionAttachModule_PARAMHANDLING
485 sess->Hdr->urlstrings = NewHash(1,NULL);
489 SessionDetachModule_PARAMHANDLING
492 DeleteHash(&sess->Hdr->urlstrings);
493 FreeStrBuf(&sess->upload_filename);