Annotation of parser3/src/types/pa_vform.C, revision 1.37
1.27 paf 1: /** @file
2: Parser: @b form class.
1.36 parser 3: based on The CGI_C library, by Thomas Boutell.
1.10 paf 4:
1.3 paf 5: Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)
1.10 paf 6:
1.3 paf 7: Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)
8: */
1.37 ! parser 9: static const char *RCSId="$Id: date.C,v 1.6 2001/09/04 10:50:19 parser Exp $";
1.3 paf 10:
1.14 paf 11: #include "pa_sapi.h"
1.1 paf 12: #include "pa_vform.h"
13: #include "pa_vstring.h"
1.3 paf 14: #include "pa_globals.h"
15: #include "pa_request.h"
1.9 paf 16: #include "pa_vfile.h"
1.21 paf 17: #include "pa_common.h"
1.30 parser 18: #include "pa_vtable.h"
1.3 paf 19:
20: // parse helper funcs
21:
1.18 paf 22: static size_t getHeader(const char *data, size_t len){
1.25 paf 23: size_t i;
24: int enter=-1;
1.3 paf 25: if (data)
26: for (i=0;i<len;i++)
27: if (data[i]=='\n'){
28: if (enter>=0) enter++;
29: if (enter>1) return i;
30: } else if (data[i]!='\r') enter=0;
31: return 0;
32: }
33:
1.18 paf 34: static const char *searchAttribute(const char *data, const char *attr, size_t len){
1.16 paf 35: size_t i;
1.3 paf 36: if (data)
37: for (i=0;i<len;i++)
38: if (tolower(data[i])==*attr){
1.16 paf 39: size_t j;
1.3 paf 40: for (j=i+1;j<=len;j++)
41: if (!attr[j-i]) return &data[j];
42: else {
43: if (j==len) break;
44: if (attr[j-i]!=tolower(data[j])) break;
45: }
46: }
47: return NULL;
48: }
49:
50: // VForm
51:
1.16 paf 52: char *VForm::strpart(const char *str, size_t len) {
1.7 paf 53: char *result=(char *)malloc(len+1);
1.3 paf 54: if (!result) return NULL;
1.18 paf 55: memcpy(result, str, len);
1.3 paf 56: result[len]=0;
57: return result;
58: }
59:
1.18 paf 60: char *VForm::getAttributeValue(const char *data, char *attr, size_t len) {
61: const char *value=searchAttribute(data, attr, len);
1.3 paf 62: if (value){
1.18 paf 63: size_t i;
64: if (!(len-=value-data)) return NULL;
65: if (*value=='"') {
66: for (i=1;i<len;i++) if (value[i]=='"') break;
67: return strpart(&value[1], i-1);
68: } else {
69: for (i=0;i<len;i++) if (strchr(" ;\"\n\r", value[i])) break;
70: return strpart(value, i);
71: }
1.3 paf 72: }
73: return NULL;
74: }
75:
76: void VForm::ParseGetFormInput(const char *query_string) {
77: ParseFormInput(query_string, strlen(query_string));
78: }
79:
1.16 paf 80: void VForm::ParseFormInput(const char *data, size_t length) {
1.8 paf 81: /* Scan for pairs, unescaping and storing them as they are found. */
1.16 paf 82: size_t pos=0;
1.3 paf 83: while(pos !=length) {
1.16 paf 84: size_t foundEq=0;
85: size_t foundAmp=0;
86: size_t start=pos;
87: size_t len=0;
1.3 paf 88: while(pos !=length) {
89: if(data[pos]=='=') {
90: foundEq=1;
91: pos++;
92: break;
93: }
94: pos++;
95: len++;
96: }
97: if(!foundEq)
98: break;
1.6 paf 99: const char *attr=unescape_chars(pool(), data+start, len);
1.3 paf 100: start=pos;
101: len=0;
102: while(pos !=length) {
103: if(data[pos]=='&') {
104: foundAmp=1;
105: pos++;
106: break;
107: }
108: pos++;
109: len++;
110: }
111: /* The last pair probably won't be followed by a &, but
112: that's fine, so check for that after accepting it */
1.6 paf 113: const char *value=unescape_chars(pool(), data+start, len);
1.3 paf 114: /* OK, we have a new pair, add it to the list. */
115: AppendFormEntry(attr, value);
116: if(!foundAmp)
117: break;
118: }
119: }
120:
121: void VForm::ParseMimeInput(const char *content_type,
1.16 paf 122: const char *data, size_t length) {
1.3 paf 123: /* Scan for mime-presented pairs, storing them as they are found. */
124: const char
1.18 paf 125: *boundary=getAttributeValue(content_type, "boundary=", strlen(content_type)),
1.3 paf 126: *lastData=&data[length];
127: if(!boundary)
1.18 paf 128: THROW(0, 0,
129: 0,
1.3 paf 130: "VForm::ParseMimeInput no boundary attribute of Content-Type");
131:
132: while(true) {
133: const char
1.18 paf 134: *dataStart=searchAttribute(data, boundary, lastData-data),
135: *dataEnd=searchAttribute(dataStart, boundary, lastData-dataStart);
136: size_t headerSize=getHeader(dataStart, lastData-dataStart);
1.3 paf 137:
138: if(!dataStart|!dataEnd|!headerSize) break;
1.18 paf 139: if(searchAttribute(dataStart, "content-disposition: form-data", headerSize)){
1.16 paf 140: size_t valueSize=(dataEnd-dataStart)-headerSize-5-strlen(boundary);
1.18 paf 141: char *attr=getAttributeValue(dataStart, " name=", headerSize),
142: *fName=getAttributeValue(dataStart, " filename=", headerSize);
1.3 paf 143:
144: if(attr && valueSize){
145: /* OK, we have a new pair, add it to the list. */
146: AppendFormEntry(attr, &dataStart[headerSize+1], valueSize, fName);
147: }
148: }
149: data=(dataEnd-strlen(boundary));
150: }
151: }
152:
1.7 paf 153: void VForm::AppendFormEntry(const char *aname,
1.18 paf 154: const char *value_ptr, size_t value_size,
1.3 paf 155: const char *file_name) {
1.7 paf 156: String& sname=*NEW String(pool(), aname);
1.3 paf 157:
158: Value *value;
1.17 paf 159: if(file_name) {
160: VFile *vfile=NEW VFile(pool());
1.22 paf 161: vfile->set(true/*tainted*/, value_ptr, value_size, file_name);
1.17 paf 162: value=vfile;
163: } else {
1.3 paf 164: String& string=*NEW String(pool());
165: string.APPEND_TAINTED(value_ptr, value_size, "form", 0);
1.36 parser 166:
167: // tables
168: {
169: Value *valready=(Value *)tables.get(sname);
170: bool existed=valready!=0;
171: Table *table;
172: if(existed) {
173: // second+ appearence
174: table=valready->get_table();
175: } else {
176: // first appearence
1.30 parser 177: Array& columns=*NEW Array(pool(), 1);
1.36 parser 178: columns+=NEW String(pool(), "field");
1.30 parser 179: table=NEW Table(pool(), 0, &columns);
180: }
181: // this string becomes next row
182: Array& row=*NEW Array(pool(), 1);
183: row+=&string;
184: *table+=&row;
1.36 parser 185: // not existed before? add it
186: if(!existed)
187: tables.put(sname, NEW VTable(pool(), table));
188: }
189: value=NEW VString(string);
1.3 paf 190: }
191:
1.32 parser 192: fields.put_dont_replace(sname, value);
1.3 paf 193: }
1.1 paf 194:
1.26 paf 195: /// @todo parse input letter if some switch is on
1.36 parser 196: void VForm::fill_fields_and_tables(Request& request) {
1.3 paf 197: // parsing QS [GET and ?name=value from uri rewrite)]
198: if(request.info.query_string)
199: ParseGetFormInput(request.info.query_string);
200: // parsing POSTed data
1.4 paf 201: if(request.info.method) {
1.3 paf 202: if(const char *content_type=request.info.content_type)
1.18 paf 203: if(StrEqNc(request.info.method, "post", true)) {
204: if(StrEqNc(content_type, "application/x-www-form-urlencoded", true))
1.21 paf 205: ParseFormInput(request.post_data, request.post_size);
1.18 paf 206: else if(StrEqNc(content_type, "multipart/form-data", 0))
1.21 paf 207: ParseMimeInput(content_type, request.post_data, request.post_size);
1.3 paf 208: }
209: } else
1.21 paf 210: ; // letter?
1.1 paf 211: }
1.33 parser 212:
213: Value *VForm::get_element(const String& aname) {
1.36 parser 214: // $fields
215: if(aname==FORM_FIELDS_ELEMENT_NAME)
216: return NEW VHash(pool(), Hash(fields));
217:
218: // $tables
219: if(aname==FORM_TABLES_ELEMENT_NAME)
220: return NEW VHash(pool(), Hash(tables));
221:
1.33 parser 222: // $CLASS,$method
223: if(Value *result=VStateless_class::get_element(aname))
224: return result;
225:
226: // $element
227: return static_cast<Value *>(fields.get(aname));
228: }
229:
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