Annotation of parser3/src/types/pa_vform.C, revision 1.119
1.27 paf 1: /** @file
2: Parser: @b form class.
1.10 paf 3:
1.117 moko 4: Copyright (c) 2001-2017 Art. Lebedev Studio (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.14 paf 10: #include "pa_sapi.h"
1.1 paf 11: #include "pa_vform.h"
12: #include "pa_vstring.h"
1.3 paf 13: #include "pa_globals.h"
14: #include "pa_request.h"
1.9 paf 15: #include "pa_vfile.h"
1.21 paf 16: #include "pa_common.h"
1.30 parser 17: #include "pa_vtable.h"
1.50 paf 18: #include "pa_charset.h"
1.102 moko 19:
1.119 ! moko 20: volatile const char * IDENT_PA_VFORM_C="$Id: pa_vform.C,v 1.118 2019/11/22 22:37:31 moko Exp $" IDENT_PA_VFORM_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.75 paf 28: static size_t getHeader(const char* data, size_t len){
1.97 misha 29: size_t i;
30: int enter=-1;
1.111 moko 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;
1.111 moko 36: } else {
37: if (data[i]!='\r') enter=0;
38: }
39: }
1.100 misha 40: return 0;
1.3 paf 41: }
42:
1.75 paf 43: static const char* searchAttribute(const char* data,
44: const char* attr, //< expected to be lowercased
1.62 paf 45: size_t len){
1.97 misha 46: size_t i;
47: if (data)
1.62 paf 48: for (i=0;i<len;i++)
1.83 paf 49: if (tolower((unsigned char)data[i])==*attr){
1.62 paf 50: size_t j;
51: for (j=i+1;j<=len;j++)
52: if (!attr[j-i]) return &data[j];
53: else {
54: if (j==len) break;
1.83 paf 55: if (attr[j-i]!=tolower((unsigned char)data[j])) break;
1.62 paf 56: }
57: }
58:
59: return NULL;
1.3 paf 60: }
61:
62: // VForm
63:
1.113 moko 64: extern Methoded* form_class;
1.57 paf 65:
1.114 moko 66: VForm::VForm(Request_charsets& acharsets, Request_info& arequest_info): VStateless_class(form_class),
1.77 paf 67: fcharsets(acharsets),
68: frequest_info(arequest_info),
1.115 moko 69:
70: can_have_body(arequest_info.can_have_body()),
1.116 moko 71: charset_detected(false),
1.115 moko 72: post_content_type(UNKNOWN),
1.116 moko 73:
74: filled_source(0),
75: filled_client(0),
76: fpost_charset(0)
1.96 misha 77: {
1.111 moko 78: if(can_have_body && arequest_info.content_type) {
79: if(pa_strncasecmp(arequest_info.content_type, HTTP_CONTENT_TYPE_FORM_URLENCODED)==0) {
1.96 misha 80: post_content_type=FORM_URLENCODED;
1.111 moko 81: } else if(pa_strncasecmp(arequest_info.content_type, HTTP_CONTENT_TYPE_MULTIPART_FORMDATA)==0) {
1.96 misha 82: post_content_type=MULTIPART_FORMDATA;
1.111 moko 83: }
84: }
1.3 paf 85: }
86:
1.92 misha 87: char *VForm::strpart(const char* str, size_t len) {
1.96 misha 88: char *result=new(PointerFreeGC) char[len+1];
89: memcpy(result, str, len);
90: result[len]=0;
91: return result;
1.92 misha 92: }
93:
1.106 moko 94: char *VForm::getAttributeValue(const char* data, const char *attr, size_t len) {
1.96 misha 95: const char* value=searchAttribute(data, attr, len);
96: if (value){
1.18 paf 97: size_t i;
98: if (!(len-=value-data)) return NULL;
99: if (*value=='"') {
100: for (i=1;i<len;i++) if (value[i]=='"') break;
101: return strpart(&value[1], i-1);
102: } else {
103: for (i=0;i<len;i++) if (strchr(" ;\"\n\r", value[i])) break;
104: return strpart(value, i);
105: }
1.96 misha 106: }
107: return NULL;
1.3 paf 108: }
109:
1.96 misha 110: String::C VForm::transcode(const char* client, size_t client_size, Charset* client_charset) {
1.75 paf 111: return Charset::transcode(
1.110 moko 112: String::C(pa_strdup(client, client_size), client_size),
1.96 misha 113: client_charset?*client_charset:fcharsets.client(),
114: fcharsets.source());
1.49 paf 115: }
116:
1.75 paf 117: void VForm::ParseGetFormInput(const char* query_string, size_t length) {
1.42 parser 118: ParseFormInput(query_string, length);
1.3 paf 119: }
120:
1.69 paf 121:
1.75 paf 122: static int atoi(const char* data, size_t alength) {
1.69 paf 123: char buf[MAX_STRING];
1.82 paf 124: size_t length=min(alength, sizeof(buf)-1);
125: memcpy(buf, data, length); buf[length]=0;
1.69 paf 126: return atoi(buf);
127: }
1.96 misha 128:
129: void VForm::ParseFormInput(const char* data, size_t length, Charset* client_charset) {
1.68 paf 130: // cut out ?image_map_tail
131: {
1.67 paf 132: for(size_t pos=0; pos<length; pos++) {
133: if(data[pos]=='?') {
1.69 paf 134: size_t start=pos+1;
135: size_t aftercomma=start;
136: size_t lookingcomma=start;
1.96 misha 137: for(; lookingcomma<length; lookingcomma++)
1.69 paf 138: if(data[lookingcomma]==',') {
139: aftercomma=++lookingcomma;
140: break;
141: }
142:
143: if(aftercomma>start) { // ?x,y
144: int x=atoi(data+start, aftercomma-1-start);
145: int y=atoi(data+aftercomma, length-aftercomma);
1.75 paf 146: imap.put(String("x"), new VInt(x));
147: imap.put(String("y"), new VInt(y));
1.69 paf 148: } else { // ?qtail
1.96 misha 149: AppendFormEntry("qtail", data+start, length-start, client_charset);
1.69 paf 150: }
1.67 paf 151: // cut tail
152: length=pos;
153: break;
154: }
155: }
156: }
1.68 paf 157: // Scan for pairs, unescaping and storing them as they are found
158: for(size_t pos=0; pos<length; ) {
1.16 paf 159: size_t start=pos;
1.68 paf 160: size_t finish=length;
1.96 misha 161: for(; pos<length; pos++)
1.68 paf 162: if(data[pos]=='&') {
163: finish=pos++;
1.3 paf 164: break;
165: }
1.68 paf 166:
167: size_t aftereq=start;
168: size_t lookingeq=start;
1.96 misha 169: for(; lookingeq<finish; lookingeq++)
1.68 paf 170: if(data[lookingeq]=='=') {
171: aftereq=++lookingeq;
1.3 paf 172: break;
173: }
1.45 paf 174:
1.96 misha 175: const char* attr=(aftereq>start)?unescape_chars(data+start, aftereq-1-start, &fcharsets.client()):"nameless";
1.91 misha 176: char *value=unescape_chars(data+aftereq, finish-aftereq, &fcharsets.client());
1.96 misha 177: AppendFormEntry(attr, value, strlen(value), client_charset);
1.3 paf 178: }
179: }
180:
1.92 misha 181: static char* pa_tolower(char *str){
182: if(!str)
183: return 0;
184: for(char *p=str; *p; p++)
185: *p=(char)tolower((unsigned char)*p);
186: return str;
187: }
188:
1.49 paf 189: void VForm::ParseMimeInput(
1.96 misha 190: char *content_type,
191: const char* data, size_t length, Charset* client_charset) {
1.3 paf 192: /* Scan for mime-presented pairs, storing them as they are found. */
1.92 misha 193: const char* boundary=pa_tolower(getAttributeValue(content_type, "boundary=", strlen(content_type)));
194: if(!boundary)
1.54 paf 195: throw Exception(0,
1.18 paf 196: 0,
1.3 paf 197: "VForm::ParseMimeInput no boundary attribute of Content-Type");
198:
1.92 misha 199: const char* lastData=&data[length];
200:
1.3 paf 201: while(true) {
1.66 paf 202: const char
1.18 paf 203: *dataStart=searchAttribute(data, boundary, lastData-data),
204: *dataEnd=searchAttribute(dataStart, boundary, lastData-dataStart);
1.92 misha 205:
1.18 paf 206: size_t headerSize=getHeader(dataStart, lastData-dataStart);
1.3 paf 207:
1.103 moko 208: if(!dataStart || !dataEnd || !headerSize) break;
1.47 paf 209: if(searchAttribute(dataStart, "content-disposition: form-data", headerSize)) {
1.16 paf 210: size_t valueSize=(dataEnd-dataStart)-headerSize-5-strlen(boundary);
1.18 paf 211: char *attr=getAttributeValue(dataStart, " name=", headerSize),
212: *fName=getAttributeValue(dataStart, " filename=", headerSize);
1.3 paf 213:
1.78 paf 214: if(attr) {
1.3 paf 215: /* OK, we have a new pair, add it to the list. */
1.80 paf 216: // fName checks are because MSIE passes unassigned <input type=file> as filename="" and empty body
1.85 misha 217: if( fName && (strlen(fName) || valueSize) ){
1.100 misha 218: AppendFormFileEntry(attr,
219: valueSize? &dataStart[headerSize+1]: "",
220: valueSize,
1.96 misha 221: fName,
1.100 misha 222: client_charset);
1.85 misha 223: } else {
1.100 misha 224: AppendFormEntry(attr,
225: valueSize? &dataStart[headerSize+1]: "",
1.96 misha 226: valueSize,
1.100 misha 227: client_charset);
1.85 misha 228: }
1.3 paf 229: }
230: }
231: data=(dataEnd-strlen(boundary));
232: }
233: }
234:
1.85 misha 235: void VForm::AppendFormFileEntry(const char* cname_cstr,
1.96 misha 236: const char* raw_cvalue_ptr, const size_t raw_cvalue_size,
237: const char* file_name_cstr, Charset* client_charset){
1.85 misha 238:
1.110 moko 239: const char* fname = pa_strdup(file_name_cstr);
1.101 misha 240: const String* sfile_name=new String(transcode(fname, strlen(fname), client_charset));
1.87 misha 241:
1.96 misha 242: const String& sname=*new String(transcode(cname_cstr, strlen(cname_cstr), client_charset));
1.87 misha 243: // maybe transcode text/* files?
1.89 misha 244: // NO!!! some users want to upload file 'as is' or file encoding can be unknown
1.87 misha 245:
1.85 misha 246: VFile* vfile=new VFile;
1.105 moko 247: vfile->set_binary(true/*tainted*/, raw_cvalue_ptr, raw_cvalue_size, sfile_name);
1.85 misha 248:
249: fields.put_dont_replace(sname, vfile);
250:
251: // files
252: Value* vhash=files.get(sname);
253: if(!vhash){
254: // first appearence
255: vhash=new VHash;
256: files.put(sname, vhash);
257: }
258: HashStringValue& hash=*vhash->get_hash();
1.75 paf 259:
1.85 misha 260: hash.put(String::Body::Format(hash.count()), vfile);
261: }
262:
1.96 misha 263: void VForm::AppendFormEntry(const char* cname_cstr, const char* raw_cvalue_ptr, const size_t raw_cvalue_size, Charset* client_charset) {
264: const String& sname=*new String(transcode(cname_cstr, strlen(cname_cstr), client_charset));
1.75 paf 265:
1.85 misha 266: const char* premature_zero_pos=(const char* )memchr(raw_cvalue_ptr, 0, raw_cvalue_size);
267: size_t cvalue_size=premature_zero_pos?premature_zero_pos-(const char* )raw_cvalue_ptr
268: :raw_cvalue_size;
1.110 moko 269: char *cvalue_ptr=pa_strdup(raw_cvalue_ptr, cvalue_size);
1.85 misha 270: fix_line_breaks(cvalue_ptr, cvalue_size);
1.96 misha 271: String& string=*new String(transcode(cvalue_ptr, cvalue_size, client_charset), String::L_TAINTED);
1.85 misha 272:
273: // tables
274: {
275: Value* vtable=tables.get(sname);
276: if(!vtable) {
277: // first appearence
278: Table::columns_type columns(new ArrayString(1));
279: *columns+=new String("field");
1.75 paf 280:
1.85 misha 281: vtable=new VTable(new Table(columns));
282: tables.put(sname, vtable);
1.36 parser 283: }
1.85 misha 284: Table& table=*vtable->get_table();
285:
286: // this string becomes next row
287: Table::element_type row(new ArrayString(1));
288: *row+=&string;
289: table+=row;
1.3 paf 290: }
1.69 paf 291:
1.85 misha 292: fields.put_dont_replace(sname, new VString(string));
1.69 paf 293: }
294:
1.85 misha 295:
296: void VForm::refill_fields_tables_and_files() {
1.77 paf 297: fields.clear();
298: tables.clear();
1.85 misha 299: files.clear();
1.77 paf 300: imap.clear();
1.75 paf 301:
1.77 paf 302: //frequest_info.query_string="a=123";
1.3 paf 303: // parsing QS [GET and ?name=value from uri rewrite)]
1.77 paf 304: if(frequest_info.query_string) {
305: size_t length=strlen(frequest_info.query_string);
1.110 moko 306: char *buf=pa_strdup(frequest_info.query_string, length);
1.42 parser 307: ParseGetFormInput(buf, length);
308: }
1.62 paf 309:
310: #ifdef DEBUG_POST
1.77 paf 311: frequest_info.method="POST";
1.119 ! moko 312: File_read_result file=file_read_binary(*new String("test.stdin"), true /*fail on problem*/);
1.96 misha 313: frequest_info.post_size=file.length;
314: frequest_info.post_data=(char*)file.str;
1.77 paf 315: frequest_info.content_type="multipart/form-data; boundary=----------mcqY2UDNcdEAoN1mLmne2i";
1.62 paf 316: #endif
1.57 paf 317:
318: // parsing POST data
1.115 moko 319: switch(post_content_type){
320: case FORM_URLENCODED: {
321: detect_post_charset();
322: ParseFormInput(frequest_info.post_data, frequest_info.post_size, fpost_charset);
323: break;
324: }
325: case MULTIPART_FORMDATA: {
326: ParseMimeInput(pa_strdup(frequest_info.content_type), frequest_info.post_data, frequest_info.post_size);
327: break;
1.96 misha 328: }
1.115 moko 329: case UNKNOWN: break;
330: }
1.56 paf 331:
1.77 paf 332: filled_source=&fcharsets.source();
333: filled_client=&fcharsets.client();
334: }
335:
1.99 misha 336: void VForm::detect_post_charset(){
1.107 misha 337: if(can_have_body && !charset_detected){
1.99 misha 338: fpost_charset=detect_charset(frequest_info.content_type);
1.107 misha 339: charset_detected=true;
1.99 misha 340: }
341: }
342:
1.85 misha 343: bool VForm::should_refill_fields_tables_and_files() {
1.96 misha 344: return &fcharsets.source()!=filled_source || &fcharsets.client()!=filled_client;
1.1 paf 345: }
1.33 parser 346:
1.98 misha 347: Value* VForm::get_element(const String& aname) {
1.85 misha 348: if(should_refill_fields_tables_and_files())
349: refill_fields_tables_and_files();
1.56 paf 350:
1.36 parser 351: // $fields
352: if(aname==FORM_FIELDS_ELEMENT_NAME)
1.75 paf 353: return new VHash(fields);
1.36 parser 354:
355: // $tables
356: if(aname==FORM_TABLES_ELEMENT_NAME)
1.75 paf 357: return new VHash(tables);
1.69 paf 358:
1.85 misha 359: // $files
360: if(aname==FORM_FILES_ELEMENT_NAME)
361: return new VHash(files);
362:
1.77 paf 363: // $imap
1.69 paf 364: if(aname==FORM_IMAP_ELEMENT_NAME)
1.75 paf 365: return new VHash(imap);
1.36 parser 366:
1.108 misha 367: // methods (if any)
1.98 misha 368: if(Value* result=VStateless_class::get_element(aname))
1.33 parser 369: return result;
370:
1.95 misha 371: // $field
1.75 paf 372: return fields.get(aname);
1.72 paf 373: }
1.93 misha 374:
1.109 moko 375: Charset* VForm::get_body_charset(){
1.99 misha 376: detect_post_charset();
1.96 misha 377: return fpost_charset;
1.93 misha 378: }
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