Return to pa_vrequest.C CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vrequest.C, revision 1.70

1.2       paf         1: /** @file
1.5       paf         2:        Parser: @b request class.
1.2       paf         3: 
1.70    ! moko        4:        Copyright (c) 2001-2023 Art. Lebedev Studio (http://www.artlebedev.com)
        !             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.70    ! moko       18: volatile const char * IDENT_PA_VREQUEST_C="$Id: pa_vrequest.C,v 1.69 2021/11/09 15:04: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;
                     83:        else if(aname==DOCUMENT_ROOT_NAME)
                     84:                buf=finfo.document_root;
1.43      misha      85:        else if(aname=="body")
1.30      paf        86:                buf=finfo.post_data;
1.58      moko       87:        else if(aname=="method")
                     88:                buf=finfo.method;
1.43      misha      89:        else
1.30      paf        90:                return bark("%s field not found", &aname);
1.12      paf        91: 
1.45      misha      92:        return new VString(*new String(buf, String::L_TAINTED));
1.1       paf        93: }
                     94: 
1.56      moko       95: const VJunction* VRequest::put_element(const String& aname, Value* avalue) {
1.30      paf        96:        // $charset
1.20      paf        97:        if(aname==CHARSET_NAME) {
1.63      moko       98:                fcharsets.set_source(pa_charsets.get(avalue->as_string()));
1.67      moko       99:                return 0;
1.30      paf       100:        } 
                    101: 
                    102:        // $document-root
                    103:        if(aname==DOCUMENT_ROOT_NAME) {
1.48      misha     104:                finfo.document_root=avalue->as_string().taint_cstr(String::L_FILE_SPEC);
1.67      moko      105:                return 0;
1.30      paf       106:        } 
                    107: 
1.56      moko      108:        return Value::put_element(aname, avalue);
1.12      paf       109: }
1.58      moko      110: 
                    111: void VRequest::fill(){
                    112:        for(SAPI::Env::Iterator i(fsapi_info); i; i.next() ){
                    113:                char* key=i.key();
                    114: 
                    115:                if(pa_strncasecmp(key, "HTTP_")==0) {
                    116:                        for(char* c=key+5; *c; c++)
                    117:                                *c=(char)toupper((unsigned char)*c);
                    118: 
                    119:                        ffields.put(
                    120:                                key+5 /*skip "HTTP_" */,
                    121:                                new VString(*new String(i.value(), String::L_TAINTED))
                    122:                        );
                    123:                }
                    124:        }
                    125: }