Annotation of parser3/src/types/pa_vrequest.C, revision 1.72
1.2 paf 1: /** @file
1.5 paf 2: Parser: @b request class.
1.2 paf 3:
1.71 moko 4: Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
1.70 moko 5: Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
1.18 paf 6: */
1.2 paf 7:
1.1 paf 8: #include "pa_vrequest.h"
1.28 paf 9: #include "pa_request_info.h"
10: #include "pa_request_charsets.h"
1.13 paf 11: #include "pa_charsets.h"
1.28 paf 12: #include "pa_vstring.h"
1.38 misha 13: #include "pa_vhash.h"
1.40 misha 14: #include "pa_vform.h"
15: #include "pa_vvoid.h"
1.50 misha 16: #include "pa_vfile.h"
1.1 paf 17:
1.72 ! moko 18: volatile const char * IDENT_PA_VREQUEST_C="$Id: pa_vrequest.C,v 1.71 2024/11/04 03:53:26 moko Exp $" IDENT_PA_VREQUEST_H;
1.52 moko 19:
1.30 paf 20: // defines
21:
22: #define DOCUMENT_ROOT_NAME "document-root"
1.58 moko 23: #define REQUEST_HEADERS_ELEMENT_NAME "headers"
1.30 paf 24:
1.64 moko 25: VRequest::VRequest(Request_info& ainfo, Request_charsets& acharsets, VForm& aform, SAPI_Info& asapi_info):
26: finfo(ainfo),
27: fsapi_info(asapi_info),
28: fcharsets(acharsets),
29: fform(aform)
30: {
1.46 misha 31: if(ainfo.argv)
1.66 moko 32: for(size_t i=0; ainfo.argv[i]; i++) {
1.38 misha 33: fargv.put_dont_replace(
1.66 moko 34: String(i, "%d"),
1.69 moko 35: new VString(*new String(pa_strdup(ainfo.argv[i]), String::L_TAINTED))
1.38 misha 36: );
37: }
38: }
1.30 paf 39:
1.49 misha 40: Value* VRequest::get_element(const String& aname) {
1.61 moko 41: #ifndef OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL
42: // $request:CLASS, $request:CLASS_NAME
1.60 moko 43: if(Value* result=VStateless_class::get_element(aname))
44: return result;
1.61 moko 45: #endif
1.58 moko 46:
1.40 misha 47: // $request:charset
1.24 paf 48: if(aname==CHARSET_NAME)
1.28 paf 49: return new VString(*new String(fcharsets.source().NAME(), String::L_TAINTED));
1.39 misha 50:
1.58 moko 51: // $request:body-charset
52: if(aname==REQUEST_BODY_CHARSET_NAME || aname==POST_CHARSET_NAME /*backward*/){
53: if(Charset* body_charset=fform.get_body_charset())
54: return new VString(*new String(body_charset->NAME(), String::L_TAINTED));
1.40 misha 55: else
1.42 misha 56: return VVoid::get();
1.40 misha 57: }
1.50 misha 58:
1.58 moko 59: // $resuest:body-file
60: if(aname==REQUEST_BODY_BODY_NAME || aname==POST_BODY_NAME /*backward*/){
1.50 misha 61: VFile& result=*new VFile;
1.55 moko 62: result.set_binary(true/*tainted*/, (finfo.post_data)?finfo.post_data:"" /*to distinguish from stat-ed file*/, finfo.post_size);
1.50 misha 63: return &result;
64: }
65:
1.40 misha 66: // $request:argv
1.39 misha 67: if(aname==REQUEST_ARGV_ELEMENT_NAME)
1.38 misha 68: return new VHash(fargv);
1.30 paf 69:
1.58 moko 70: //$request:headers
71: if(aname==REQUEST_HEADERS_ELEMENT_NAME){
72: if(!ffields.count())
73: fill();
74: return new VHash(ffields);
75: }
76:
77: // $request:query $request:uri $request:document-root $request:body $request:method
1.30 paf 78: const char* buf;
79: if(aname=="query")
80: buf=finfo.query_string;
81: else if(aname=="uri")
82: buf=finfo.uri;
1.72 ! moko 83: else if(aname=="path")
! 84: buf=path_from_uri(pa_strdup(finfo.uri));
1.30 paf 85: else if(aname==DOCUMENT_ROOT_NAME)
86: buf=finfo.document_root;
1.43 misha 87: else if(aname=="body")
1.30 paf 88: buf=finfo.post_data;
1.58 moko 89: else if(aname=="method")
90: buf=finfo.method;
1.43 misha 91: else
1.30 paf 92: return bark("%s field not found", &aname);
1.12 paf 93:
1.45 misha 94: return new VString(*new String(buf, String::L_TAINTED));
1.1 paf 95: }
96:
1.56 moko 97: const VJunction* VRequest::put_element(const String& aname, Value* avalue) {
1.30 paf 98: // $charset
1.20 paf 99: if(aname==CHARSET_NAME) {
1.63 moko 100: fcharsets.set_source(pa_charsets.get(avalue->as_string()));
1.67 moko 101: return 0;
1.30 paf 102: }
103:
104: // $document-root
105: if(aname==DOCUMENT_ROOT_NAME) {
1.48 misha 106: finfo.document_root=avalue->as_string().taint_cstr(String::L_FILE_SPEC);
1.67 moko 107: return 0;
1.30 paf 108: }
109:
1.56 moko 110: return Value::put_element(aname, avalue);
1.12 paf 111: }
1.58 moko 112:
113: void VRequest::fill(){
114: for(SAPI::Env::Iterator i(fsapi_info); i; i.next() ){
115: char* key=i.key();
116:
117: if(pa_strncasecmp(key, "HTTP_")==0) {
118: for(char* c=key+5; *c; c++)
119: *c=(char)toupper((unsigned char)*c);
120:
121: ffields.put(
122: key+5 /*skip "HTTP_" */,
123: new VString(*new String(i.value(), String::L_TAINTED))
124: );
125: }
126: }
127: }
1.72 ! moko 128:
! 129: const char* VRequest::path_from_uri(char* uri){
! 130: const char *result=uri;
! 131: lsplit(uri,'?');
! 132: if(result && *result)
! 133: result=unescape_chars(result, strlen(result), &pa_UTF8_charset, false /* uri */);
! 134: if(result && *result)
! 135: result=Charset::transcode(result, pa_UTF8_charset, fcharsets.source()).cstr();
! 136: if(result && *result)
! 137: return result;
! 138: return "/";
! 139: }
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pa_vrequest.C CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / types