Annotation of parser3/src/types/pa_vform.C, revision 1.76
1.27 paf 1: /** @file
2: Parser: @b form class.
1.10 paf 3:
1.75 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.76 ! paf 10: static const char * const IDENT_VFORM_C="$Date: 2003/07/24 11:31:26 $";
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.75 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.75 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.75 paf 61: extern Methoded* form_base_class;
1.57 paf 62:
1.75 paf 63: VForm::VForm(): VStateless_class(0, form_base_class),
64: fcharsets(0),
1.56 paf 65: filled(false) {
1.50 paf 66: }
67:
1.75 paf 68: char *VForm::strpart(const char* str, size_t len) {
69: char *result=new(PointerFreeGC) char[len+1];
1.18 paf 70: memcpy(result, str, len);
1.3 paf 71: result[len]=0;
72: return result;
73: }
74:
1.75 paf 75: char *VForm::getAttributeValue(const char* data, char *attr, size_t len) {
76: const char* value=searchAttribute(data, attr, len);
1.3 paf 77: if (value){
1.18 paf 78: size_t i;
79: if (!(len-=value-data)) return NULL;
80: if (*value=='"') {
81: for (i=1;i<len;i++) if (value[i]=='"') break;
82: return strpart(&value[1], i-1);
83: } else {
84: for (i=0;i<len;i++) if (strchr(" ;\"\n\r", value[i])) break;
85: return strpart(value, i);
86: }
1.3 paf 87: }
88: return NULL;
89: }
90:
1.75 paf 91: String::C VForm::transcode(const char* client, size_t client_size) {
92: return Charset::transcode(
93: String::C(strdup(client, client_size), client_size),
94: fcharsets->client(),
95: fcharsets->source());
1.49 paf 96: }
97:
1.75 paf 98: void VForm::ParseGetFormInput(const char* query_string, size_t length) {
1.42 parser 99: ParseFormInput(query_string, length);
1.3 paf 100: }
101:
1.69 paf 102:
1.75 paf 103: static int atoi(const char* data, size_t alength) {
1.69 paf 104: char buf[MAX_STRING];
105: size_t length=min((int)alength, MAX_STRING-1);
106: strncpy(buf, data, length);
107: return atoi(buf);
108: }
1.75 paf 109: void VForm::ParseFormInput(const char* data, size_t length) {
1.68 paf 110: // cut out ?image_map_tail
111: {
1.67 paf 112: for(size_t pos=0; pos<length; pos++) {
113: if(data[pos]=='?') {
1.69 paf 114: size_t start=pos+1;
115: size_t aftercomma=start;
116: size_t lookingcomma=start;
117: for(; lookingcomma<length; lookingcomma++) {
118: if(data[lookingcomma]==',') {
119: aftercomma=++lookingcomma;
120: break;
121: }
122: }
123:
124: if(aftercomma>start) { // ?x,y
125: int x=atoi(data+start, aftercomma-1-start);
126: int y=atoi(data+aftercomma, length-aftercomma);
1.75 paf 127: imap.put(String("x"), new VInt(x));
128: imap.put(String("y"), new VInt(y));
1.69 paf 129: } else { // ?qtail
130: AppendFormEntry("qtail", data+start, length-start);
131: }
1.67 paf 132: // cut tail
133: length=pos;
134: break;
135: }
136: }
137: }
1.68 paf 138: // Scan for pairs, unescaping and storing them as they are found
139: for(size_t pos=0; pos<length; ) {
1.16 paf 140: size_t start=pos;
1.68 paf 141: size_t finish=length;
142: for(; pos<length; pos++) {
143: if(data[pos]=='&') {
144: finish=pos++;
1.3 paf 145: break;
146: }
147: }
1.68 paf 148:
149: size_t aftereq=start;
150: size_t lookingeq=start;
151: for(; lookingeq<finish; lookingeq++) {
152: if(data[lookingeq]=='=') {
153: aftereq=++lookingeq;
1.3 paf 154: break;
155: }
156: }
1.45 paf 157:
1.75 paf 158: const char* attr=aftereq>start?unescape_chars(data+start, aftereq-1-start):"nameless";
159: char *value=unescape_chars(data+aftereq, finish-aftereq);
1.68 paf 160: AppendFormEntry(attr, value, strlen(value));
1.3 paf 161: }
162: }
163:
1.62 paf 164: static char *pa_tolower(char *s) {
165: for(char *p=s; *p; p++)
166: *p=tolower(*p);
167: return s;
168: }
1.49 paf 169: void VForm::ParseMimeInput(
170: char *content_type,
1.75 paf 171: const char* data, size_t length) {
1.3 paf 172: /* Scan for mime-presented pairs, storing them as they are found. */
173: const char
1.62 paf 174: *boundary=pa_tolower(getAttributeValue(content_type, "boundary=", strlen(content_type))),
1.3 paf 175: *lastData=&data[length];
176: if(!boundary)
1.54 paf 177: throw Exception(0,
1.18 paf 178: 0,
1.3 paf 179: "VForm::ParseMimeInput no boundary attribute of Content-Type");
180:
181: while(true) {
1.66 paf 182: const char
1.18 paf 183: *dataStart=searchAttribute(data, boundary, lastData-data),
184: *dataEnd=searchAttribute(dataStart, boundary, lastData-dataStart);
185: size_t headerSize=getHeader(dataStart, lastData-dataStart);
1.3 paf 186:
187: if(!dataStart|!dataEnd|!headerSize) break;
1.47 paf 188: if(searchAttribute(dataStart, "content-disposition: form-data", headerSize)) {
1.16 paf 189: size_t valueSize=(dataEnd-dataStart)-headerSize-5-strlen(boundary);
1.18 paf 190: char *attr=getAttributeValue(dataStart, " name=", headerSize),
191: *fName=getAttributeValue(dataStart, " filename=", headerSize);
1.3 paf 192:
1.48 paf 193: if(attr && valueSize) {
1.3 paf 194: /* OK, we have a new pair, add it to the list. */
195: AppendFormEntry(attr, &dataStart[headerSize+1], valueSize, fName);
196: }
197: }
198: data=(dataEnd-strlen(boundary));
199: }
200: }
201:
1.75 paf 202: void VForm::AppendFormEntry(const char* cname_cstr,
203: const char* raw_cvalue_ptr, const size_t raw_cvalue_size,
204: const char* copy_me_file_name_cstr) {
205: const String& sname=*new String(transcode(cname_cstr, strlen(cname_cstr)));
206:
207: Value* value;
208: if(copy_me_file_name_cstr) {
209: VFile* vfile=new VFile;
1.61 paf 210: // maybe transcode text/* files?
1.75 paf 211: const String& sfile_name=*new String(strdup(copy_me_file_name_cstr));
212: vfile->set(true/*tainted*/, raw_cvalue_ptr, raw_cvalue_size, sfile_name.cstr());
1.17 paf 213: value=vfile;
214: } else {
1.75 paf 215: const char* premature_zero_pos=(const char* )memchr(raw_cvalue_ptr, 0, raw_cvalue_size);
216: size_t cvalue_size=premature_zero_pos?premature_zero_pos-(const char* )raw_cvalue_ptr
1.73 paf 217: :raw_cvalue_size;
1.75 paf 218: char *cvalue_ptr=strdup(raw_cvalue_ptr, cvalue_size);
1.49 paf 219: fix_line_breaks(cvalue_ptr, cvalue_size);
1.75 paf 220: String& string=*new String(transcode(cvalue_ptr, cvalue_size), true);
1.36 parser 221:
222: // tables
223: {
1.75 paf 224: Value* vtable=tables.get(sname);
225: if(!vtable) {
1.36 parser 226: // first appearence
1.75 paf 227: Table::columns_type columns(new ArrayString(1));
228: *columns+=new String("field");
229:
230: vtable=new VTable(new Table(columns));
231: tables.put(sname, vtable);
1.30 parser 232: }
1.75 paf 233: Table& table=*vtable->get_table();
234:
1.30 parser 235: // this string becomes next row
1.75 paf 236: Table::element_type row(new ArrayString(1));
237: *row+=&string;
238: table+=row;
1.36 parser 239: }
1.75 paf 240: value=new VString(string);
1.3 paf 241: }
1.69 paf 242:
243: fields.put_dont_replace(sname, value);
244: }
245:
1.75 paf 246: void VForm::fill_fields_and_tables(Request_charsets& acharsets,
247: Request_info& request_info) {
248: fcharsets=&acharsets;
249: try{
250:
251: //request_info.query_string="a=123";
1.3 paf 252: // parsing QS [GET and ?name=value from uri rewrite)]
1.75 paf 253: if(request_info.query_string) {
254: size_t length=strlen(request_info.query_string);
255: char *buf=strdup(request_info.query_string, length);
1.42 parser 256: ParseGetFormInput(buf, length);
257: }
1.62 paf 258:
259: #ifdef DEBUG_POST
1.75 paf 260: request_info.method="POST";
1.62 paf 261: void *data;
1.75 paf 262: file_read(*new String("opera.stdin"), //"ie.stdin"), //
1.62 paf 263: data, request.post_size,
264: false/*as_text*/);
265: request.post_data=(char*)data;
1.75 paf 266: request_info.content_type="multipart/form-data; boundary=----------mcqY2UDNcdEAoN1mLmne2i";
267: //request_info.content_type="multipart/form-data; boundary=---------------------------7d23111f44403a4";
1.62 paf 268:
269: #endif
1.57 paf 270:
271: // parsing POST data
1.75 paf 272: if(request_info.method) {
273: if(const char* content_type=request_info.content_type)
274: if(StrEqNc(request_info.method, "post", true)) {
1.18 paf 275: if(StrEqNc(content_type, "application/x-www-form-urlencoded", true))
1.75 paf 276: ParseFormInput(request_info.post_data, request_info.post_size);
277: else if(StrEqNc(content_type, "multipart/form-data", 0))
278: ParseMimeInput(strdup(content_type),
279: request_info.post_data, request_info.post_size);
1.3 paf 280: }
1.57 paf 281: }
1.56 paf 282:
283: filled=true;
1.75 paf 284:
285: fcharsets=0;
286: } catch(...) { fcharsets=0; rethrow; }
1.1 paf 287: }
1.33 parser 288:
1.75 paf 289: Value* VForm::get_element(const String& aname, Value& aself, bool looking_up) {
1.56 paf 290: if(!filled)
291: throw Exception("parser.runtime",
292: &aname,
293: "not determined yet");
294:
1.36 parser 295: // $fields
296: if(aname==FORM_FIELDS_ELEMENT_NAME)
1.75 paf 297: return new VHash(fields);
1.36 parser 298:
299: // $tables
300: if(aname==FORM_TABLES_ELEMENT_NAME)
1.75 paf 301: return new VHash(tables);
1.69 paf 302:
303: if(aname==FORM_IMAP_ELEMENT_NAME)
1.75 paf 304: return new VHash(imap);
1.36 parser 305:
1.63 paf 306: // $method
1.75 paf 307: if(Value* result=VStateless_class::get_element(aname, aself, looking_up))
1.33 parser 308: return result;
309:
310: // $element
1.75 paf 311: return fields.get(aname);
1.72 paf 312: }
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