Annotation of parser3/src/types/pa_vform.C, revision 1.74.2.8
1.27 paf 1: /** @file
2: Parser: @b form class.
1.10 paf 3:
1.74.2.3 paf 4: Copyright(c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
1.52 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.39 parser 6:
1.38 parser 7: based on The CGI_C library, by Thomas Boutell.
1.3 paf 8: */
1.59 paf 9:
1.74.2.8! paf 10: static const char* IDENT_VFORM_C="$Date: 2003/02/14 17:33:46 $";
1.3 paf 11:
1.14 paf 12: #include "pa_sapi.h"
1.1 paf 13: #include "pa_vform.h"
14: #include "pa_vstring.h"
1.3 paf 15: #include "pa_globals.h"
16: #include "pa_request.h"
1.9 paf 17: #include "pa_vfile.h"
1.21 paf 18: #include "pa_common.h"
1.30 parser 19: #include "pa_vtable.h"
1.50 paf 20: #include "pa_charset.h"
1.3 paf 21:
1.62 paf 22: // defines
23:
24: //#define DEBUG_POST
25:
1.3 paf 26: // parse helper funcs
27:
1.74.2.3 paf 28: static size_t getHeader(const char* data, size_t len){
1.25 paf 29: size_t i;
30: int enter=-1;
1.3 paf 31: if (data)
1.62 paf 32: for (i=0;i<len;i++)
33: if (data[i]=='\n'){
34: if (enter>=0) enter++;
35: if (enter>1) return i;
36: } else if (data[i]!='\r') enter=0;
37: return 0;
1.3 paf 38: }
39:
1.74.2.3 paf 40: static const char* searchAttribute(const char* data,
41: const char* attr, //< expected to be lowercased
1.62 paf 42: size_t len){
1.16 paf 43: size_t i;
1.3 paf 44: if (data)
1.62 paf 45: for (i=0;i<len;i++)
46: if (tolower(data[i])==*attr){
47: size_t j;
48: for (j=i+1;j<=len;j++)
49: if (!attr[j-i]) return &data[j];
50: else {
51: if (j==len) break;
52: if (attr[j-i]!=tolower(data[j])) break;
53: }
54: }
55:
56: return NULL;
1.3 paf 57: }
58:
59: // VForm
60:
1.74.2.5 paf 61: extern MethodedPtr form_base_class;
1.57 paf 62:
1.74.2.8! paf 63: VForm::VForm(): VStateless_class(StringPtr(0), form_base_class.get()),
! 64: fpool(0),
! 65: fcharsets(0),
! 66: filled(false) {
! 67: }
1.50 paf 68:
1.74.2.3 paf 69: char *VForm::strpart(const char* str, size_t len) {
1.7 paf 70: char *result=(char *)malloc(len+1);
1.3 paf 71: if (!result) return NULL;
1.18 paf 72: memcpy(result, str, len);
1.3 paf 73: result[len]=0;
74: return result;
75: }
76:
1.74.2.3 paf 77: char *VForm::getAttributeValue(const char* data, char *attr, size_t len) {
78: const char* value=searchAttribute(data, attr, len);
1.3 paf 79: if (value){
1.18 paf 80: size_t i;
81: if (!(len-=value-data)) return NULL;
82: if (*value=='"') {
83: for (i=1;i<len;i++) if (value[i]=='"') break;
84: return strpart(&value[1], i-1);
85: } else {
86: for (i=0;i<len;i++) if (strchr(" ;\"\n\r", value[i])) break;
87: return strpart(value, i);
88: }
1.3 paf 89: }
90: return NULL;
91: }
92:
1.49 paf 93: void VForm::transcode(
94: const void *client_body, size_t client_content_length,
95: const void *& source_body, size_t& source_content_length) {
1.74.2.4 paf 96: Charset::transcode(*fpool,
97: fcharsets->client(), client_body, client_content_length,
98: fcharsets->source(), source_body, source_content_length);
1.49 paf 99: }
100:
1.74.2.3 paf 101: void VForm::ParseGetFormInput(const char* query_string, size_t length) {
1.42 parser 102: ParseFormInput(query_string, length);
1.3 paf 103: }
104:
1.69 paf 105:
1.74.2.3 paf 106: static int atoi(const char* data, size_t alength) {
1.69 paf 107: char buf[MAX_STRING];
108: size_t length=min((int)alength, MAX_STRING-1);
109: strncpy(buf, data, length);
110: return atoi(buf);
111: }
1.74.2.3 paf 112: void VForm::ParseFormInput(const char* data, size_t length) {
1.68 paf 113: // cut out ?image_map_tail
114: {
1.67 paf 115: for(size_t pos=0; pos<length; pos++) {
116: if(data[pos]=='?') {
1.69 paf 117: size_t start=pos+1;
118: size_t aftercomma=start;
119: size_t lookingcomma=start;
120: for(; lookingcomma<length; lookingcomma++) {
121: if(data[lookingcomma]==',') {
122: aftercomma=++lookingcomma;
123: break;
124: }
125: }
126:
127: if(aftercomma>start) { // ?x,y
128: int x=atoi(data+start, aftercomma-1-start);
129: int y=atoi(data+aftercomma, length-aftercomma);
1.74.2.4 paf 130: imap.put(StringPtr(new String("x")), ValuePtr(new VInt(x)));
131: imap.put(StringPtr(new String("y")), ValuePtr(new VInt(y)));
1.69 paf 132: } else { // ?qtail
133: AppendFormEntry("qtail", data+start, length-start);
134: }
1.67 paf 135: // cut tail
136: length=pos;
137: break;
138: }
139: }
140: }
1.68 paf 141: // Scan for pairs, unescaping and storing them as they are found
142: for(size_t pos=0; pos<length; ) {
1.16 paf 143: size_t start=pos;
1.68 paf 144: size_t finish=length;
145: for(; pos<length; pos++) {
146: if(data[pos]=='&') {
147: finish=pos++;
1.3 paf 148: break;
149: }
150: }
1.68 paf 151:
152: size_t aftereq=start;
153: size_t lookingeq=start;
154: for(; lookingeq<finish; lookingeq++) {
155: if(data[lookingeq]=='=') {
156: aftereq=++lookingeq;
1.3 paf 157: break;
158: }
159: }
1.45 paf 160:
1.74.2.4 paf 161: const char* attr=aftereq>start?unescape_chars(*fpool, data+start, aftereq-1-start):"nameless";
162: char *value=unescape_chars(*fpool, data+aftereq, finish-aftereq);
1.68 paf 163: AppendFormEntry(attr, value, strlen(value));
1.3 paf 164: }
165: }
166:
1.62 paf 167: static char *pa_tolower(char *s) {
168: for(char *p=s; *p; p++)
169: *p=tolower(*p);
170: return s;
171: }
1.49 paf 172: void VForm::ParseMimeInput(
173: char *content_type,
1.74.2.3 paf 174: const char* data, size_t length) {
1.3 paf 175: /* Scan for mime-presented pairs, storing them as they are found. */
176: const char
1.62 paf 177: *boundary=pa_tolower(getAttributeValue(content_type, "boundary=", strlen(content_type))),
1.3 paf 178: *lastData=&data[length];
179: if(!boundary)
1.74.2.4 paf 180: throw Exception(Exception::undefined_type,
181: Exception::undefined_source,
1.3 paf 182: "VForm::ParseMimeInput no boundary attribute of Content-Type");
183:
184: while(true) {
1.66 paf 185: const char
1.18 paf 186: *dataStart=searchAttribute(data, boundary, lastData-data),
187: *dataEnd=searchAttribute(dataStart, boundary, lastData-dataStart);
188: size_t headerSize=getHeader(dataStart, lastData-dataStart);
1.3 paf 189:
190: if(!dataStart|!dataEnd|!headerSize) break;
1.47 paf 191: if(searchAttribute(dataStart, "content-disposition: form-data", headerSize)) {
1.16 paf 192: size_t valueSize=(dataEnd-dataStart)-headerSize-5-strlen(boundary);
1.18 paf 193: char *attr=getAttributeValue(dataStart, " name=", headerSize),
194: *fName=getAttributeValue(dataStart, " filename=", headerSize);
1.3 paf 195:
1.48 paf 196: if(attr && valueSize) {
1.3 paf 197: /* OK, we have a new pair, add it to the list. */
198: AppendFormEntry(attr, &dataStart[headerSize+1], valueSize, fName);
199: }
200: }
201: data=(dataEnd-strlen(boundary));
202: }
203: }
204:
1.49 paf 205: void VForm::AppendFormEntry(
1.74.2.3 paf 206: const char* cname_cstr,
207: const char* raw_cvalue_ptr, const size_t raw_cvalue_size,
1.74.2.4 paf 208: const char* copy_me_file_name_cstr) {
1.49 paf 209: const void *sname_ptr;
210: size_t sname_size;
211: transcode(
212: cname_cstr, strlen(cname_cstr),
213: sname_ptr, sname_size);
1.74.2.4 paf 214: StringPtr sname(new String((const char* )sname_ptr, sname_size));
1.3 paf 215:
1.74.2.4 paf 216: ValuePtr value;
217: if(copy_me_file_name_cstr) {
218: VFilePtr vfile(new VFile);
1.61 paf 219: // maybe transcode text/* files?
1.74.2.4 paf 220: StringPtr sfile_name(new String(fpool->copy(copy_me_file_name_cstr)));
1.74.2.7 paf 221: vfile->set(*fpool, true/*tainted*/, raw_cvalue_ptr, raw_cvalue_size, sfile_name->cstr(*fpool));
1.17 paf 222: value=vfile;
223: } else {
1.74.2.3 paf 224: const char* premature_zero_pos=(const char* )memchr(raw_cvalue_ptr, 0, raw_cvalue_size);
225: size_t cvalue_size=premature_zero_pos?premature_zero_pos-(const char* )raw_cvalue_ptr
1.73 paf 226: :raw_cvalue_size;
1.74.2.4 paf 227: char *cvalue_ptr=fpool->copy(raw_cvalue_ptr, cvalue_size);
1.49 paf 228: fix_line_breaks(cvalue_ptr, cvalue_size);
229:
230: const void *svalue_ptr; size_t svalue_size;
231: transcode(
232: cvalue_ptr, cvalue_size, // client [from]
233: svalue_ptr, svalue_size); // source [to]
1.47 paf 234:
1.74.2.4 paf 235: StringPtr string(new String);
236: string->APPEND_TAINTED((const char*)svalue_ptr, svalue_size, "form", 0);
1.36 parser 237:
238: // tables
239: {
1.74.2.4 paf 240: ValuePtr vtable=tables.get(sname);
241: if(!vtable) {
1.36 parser 242: // first appearence
1.74.2.4 paf 243: Table::columns_type columns(new Table::columns_type::element_type(1));
244: *columns+=StringPtr(new String("field"));
245:
246: vtable=ValuePtr(new VTable(TablePtr(new Table(Exception::undefined_source, columns))));
247: tables.put(sname, vtable);
1.30 parser 248: }
1.74.2.4 paf 249: Table& table=*vtable->get_table();
250:
1.30 parser 251: // this string becomes next row
1.74.2.6 paf 252: Table::element_type row(new ArrayString(1));
1.74.2.4 paf 253: *row+=string;
254: table+=row;
1.36 parser 255: }
1.74.2.4 paf 256: value=ValuePtr(new VString(string));
1.3 paf 257: }
1.69 paf 258:
259: fields.put_dont_replace(sname, value);
260: }
261:
1.74.2.4 paf 262: void VForm::fill_fields_and_tables(Pool& apool, Request_charsets& acharsets,
263: Request_info& request_info) {
264: fpool=&apool; fcharsets=&acharsets;
265: try{
266:
1.3 paf 267: // parsing QS [GET and ?name=value from uri rewrite)]
1.74.2.4 paf 268: if(request_info.query_string) {
269: size_t length=strlen(request_info.query_string);
1.42 parser 270: char *buf=(char *)malloc(length);
1.74.2.4 paf 271: memcpy(buf, request_info.query_string, length);
1.42 parser 272: ParseGetFormInput(buf, length);
273: }
1.62 paf 274:
275: #ifdef DEBUG_POST
1.74.2.4 paf 276: request_info.method="POST";
1.62 paf 277: void *data;
278: file_read(pool(), *NEW String(pool(), "opera.stdin"), //"ie.stdin"), //
279: data, request.post_size,
280: false/*as_text*/);
281: request.post_data=(char*)data;
1.74.2.4 paf 282: request_info.content_type="multipart/form-data; boundary=----------mcqY2UDNcdEAoN1mLmne2i";
283: //request_info.content_type="multipart/form-data; boundary=---------------------------7d23111f44403a4";
1.62 paf 284:
285: #endif
1.57 paf 286:
287: // parsing POST data
1.74.2.4 paf 288: if(request_info.method) {
289: if(const char* content_type=request_info.content_type)
290: if(StrEqNc(request_info.method, "post", true)) {
1.18 paf 291: if(StrEqNc(content_type, "application/x-www-form-urlencoded", true))
1.74.2.4 paf 292: ParseFormInput(request_info.post_data, request_info.post_size);
1.42 parser 293: else if(StrEqNc(content_type, "multipart/form-data", 0)) {
294: size_t length=strlen(content_type)+1;
295: char *buf=(char *)malloc(length);
296: memcpy(buf, content_type, length);
1.74.2.4 paf 297: ParseMimeInput(buf, request_info.post_data, request_info.post_size);
1.42 parser 298: }
1.3 paf 299: }
1.57 paf 300: }
1.56 paf 301:
302: filled=true;
1.74.2.4 paf 303:
304: fpool=0; fcharsets=0;
305: } catch(...) { fpool=0; fcharsets=0; }
1.1 paf 306: }
1.33 parser 307:
1.74.2.4 paf 308: ValuePtr VForm::get_element(StringPtr aname, Value& aself, bool looking_up) {
1.56 paf 309: if(!filled)
310: throw Exception("parser.runtime",
1.74.2.4 paf 311: aname,
1.56 paf 312: "not determined yet");
313:
1.36 parser 314: // $fields
1.74.2.4 paf 315: if(*aname==FORM_FIELDS_ELEMENT_NAME)
316: return ValuePtr(new VHash(fields));
1.36 parser 317:
318: // $tables
1.74.2.4 paf 319: if(*aname==FORM_TABLES_ELEMENT_NAME)
320: return ValuePtr(new VHash(tables));
1.69 paf 321:
1.74.2.4 paf 322: if(*aname==FORM_IMAP_ELEMENT_NAME)
323: return ValuePtr(new VHash(imap));
1.36 parser 324:
1.63 paf 325: // $method
1.74.2.4 paf 326: if(ValuePtr result=VStateless_class::get_element(aname, aself, looking_up))
1.33 parser 327: return result;
328:
329: // $element
1.74.2.4 paf 330: return fields.get(aname);
1.72 paf 331: }
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pa_vform.C CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / types