[BACK]Return to parser3isapi.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / targets / isapi

Diff for /parser3/src/targets/isapi/parser3isapi.C between versions 1.110 and 1.130

version 1.110, 2017/02/08 13:05:46 version 1.130, 2024/11/09 15:38:21
Line 1 Line 1
 /** @file  /** @file
         Parser: IIS extension.          Parser: IIS extension.
   
         Copyright (c) 2000-2017 Art. Lebedev Studio (http://www.artlebedev.com)          Copyright (c) 2000-2024 Art. Lebedev Studio (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */  */
   
 volatile const char * IDENT_PARSER3ISAPI_C="$Id$";  volatile const char * IDENT_PARSER3ISAPI_C="$Id$";
Line 17  volatile const char * IDENT_PARSER3ISAPI Line 17  volatile const char * IDENT_PARSER3ISAPI
 #include "pa_globals.h"  #include "pa_globals.h"
 #include "pa_request.h"  #include "pa_request.h"
 #include "pa_version.h"  #include "pa_version.h"
 #include "pa_socks.h"  
   
 #include <windows.h>  #include <windows.h>
 #include <process.h>  #include <process.h>
Line 84  void SAPI::log(SAPI_Info& SAPI_info, con Line 83  void SAPI::log(SAPI_Info& SAPI_info, con
         DWORD size=vsnprintf(start, MAX_LOG_STRING-strlen(prefix), fmt, args);          DWORD size=vsnprintf(start, MAX_LOG_STRING-strlen(prefix), fmt, args);
         size=remove_crlf(start, start+size);          size=remove_crlf(start, start+size);
   
         SAPI_info.lpECB->ServerSupportFunction(SAPI_info.lpECB->ConnID,           SAPI_info.lpECB->ServerSupportFunction(SAPI_info.lpECB->ConnID, HSE_APPEND_LOG_PARAMETER, buf, &size, 0);
                 HSE_APPEND_LOG_PARAMETER, buf, &size, 0);  
 }  }
   
 /// @todo event log  /// @todo event log
 static void abort(const char* fmt, va_list args) {  void SAPI::die(const char* fmt, ...) {
           va_list args;
           va_start(args, fmt);
         if(FILE *log=fopen("c:\\parser3die.log", "at")) {          if(FILE *log=fopen("c:\\parser3die.log", "at")) {
                 vfprintf(log, fmt, args);                  vfprintf(log, fmt, args);
                 fclose(log);                  fclose(log);
         }          }
         // exit & try to produce core dump          // abnormal exit
         abort();          abort();
 }  
 void SAPI::die(const char* fmt, ...) {  
         va_list args;  
         va_start(args, fmt);  
         ::abort(fmt, args);  
 //      va_end(args);  //      va_end(args);
 }  }
   
 void SAPI::abort(const char* fmt, ...) {  void SAPI::send_error(SAPI_Info& info, const char *exception_cstr, const char *status){
         va_list args;          // capitalized headers passed for preventing malloc during capitalization
         va_start(args, fmt);          add_header_attribute(info, HTTP_STATUS_CAPITALIZED, status);
         ::abort(fmt, args);          add_header_attribute(info, HTTP_CONTENT_TYPE_CAPITALIZED, "text/plain");
 //      va_end(args);          send_header(info);
           send_body(info, exception_cstr, strlen(exception_cstr));
 }  }
   
 char* SAPI::Env::get(SAPI_Info& SAPI_info, const char* name) {  char* SAPI::Env::get(SAPI_Info& SAPI_info, const char* name) {
Line 136  char* SAPI::Env::get(SAPI_Info& SAPI_inf Line 132  char* SAPI::Env::get(SAPI_Info& SAPI_inf
         return 0;          return 0;
 }  }
   
   bool SAPI::Env::set(SAPI_Info&, const char*, const char*) {
           return false;
   }
   
 static int grep_char(const char* s, char c) {  static int grep_char(const char* s, char c) {
         int result=0;          int result=0;
         if(s) {          if(s) {
Line 146  static int grep_char(const char* s, char Line 146  static int grep_char(const char* s, char
         }          }
         return result;          return result;
 }  }
 static const char* mk_env_pair(const char* key, const char* value) {  
         char *result=new(PointerFreeGC) char[strlen(key)+1/*=*/+strlen(value)+1/*0*/];  
         strcpy(result, key); strcat(result, "="); strcat(result, value);  
         return result;  
 }  
 const char* const *SAPI::Env::get(SAPI_Info& info) {  const char* const *SAPI::Env::get(SAPI_Info& info) {
         // we know this buf is writable          // we know this buf is writable
         char* all_http_vars=SAPI::Env::get(info, "ALL_HTTP");          char* all_http_vars=SAPI::Env::get(info, "ALL_HTTP");
Line 163  const char* const *SAPI::Env::get(SAPI_I Line 159  const char* const *SAPI::Env::get(SAPI_I
         for(int i=0; i<IIS51var_count; i++) {          for(int i=0; i<IIS51var_count; i++) {
                 const char* key=IIS51vars[i];                  const char* key=IIS51vars[i];
                 if(const char* value=SAPI::Env::get(info, key))                  if(const char* value=SAPI::Env::get(info, key))
                         *cur++=mk_env_pair(key, value);                          *cur++=pa_strcat(key, "=", value);
         }          }
   
         // HTTP_* vars          // HTTP_* vars
         if(char *s=all_http_vars) {          if(char *s=all_http_vars) {
                 while(char *key=lsplit(&s, '\n'))                  while(char *key=lsplit(&s, '\n'))
                         if(char *value=lsplit(key, ':'))                          if(char *value=lsplit(key, ':'))
                                 *cur++=mk_env_pair(key, value);                                  *cur++=pa_strcat(key, "=", value);
         }          }
                   
         // mark EOE          // mark EOE
         *cur=0;           *cur=0;
   
         return result;          return result;
 }  }
Line 207  size_t SAPI::read_post(SAPI_Info& SAPI_i Line 203  size_t SAPI::read_post(SAPI_Info& SAPI_i
         return total_read;          return total_read;
 }  }
   
 void SAPI::add_header_attribute(SAPI_Info& SAPI_info,   void SAPI::add_header_attribute(SAPI_Info& SAPI_info, const char* dont_store_key, const char* dont_store_value) {
                                 const char* dont_store_key, const char* dont_store_value) {          if(strcasecmp(dont_store_key, "location")==0)
         if(strcasecmp(dont_store_key, "location")==0)   
                 SAPI_info.http_response_code=302;                  SAPI_info.http_response_code=302;
   
         if(strcasecmp(dont_store_key, HTTP_STATUS)==0)           if(strcasecmp(dont_store_key, HTTP_STATUS)==0)
                 SAPI_info.http_response_code=atoi(dont_store_value);                  SAPI_info.http_response_code=atoi(dont_store_value);
         else          else
                 (*SAPI_info.header) << capitalize(dont_store_key) << ": " << pa_strdup(dont_store_value) << "\r\n";                  (*SAPI_info.header) << capitalize(dont_store_key) << ": " << pa_strdup(dont_store_value) << "\r\n";
Line 267  static bool parser_init() { Line 262  static bool parser_init() {
         globals_inited=true;          globals_inited=true;
   
         try {          try {
                 // init socks                  // init libraries
                 pa_socks_init();  
                 // init global variables  
                 pa_globals_init();                  pa_globals_init();
   
                 // successful finish                  // successful finish
                 return true;                  return true;
         } catch(.../*const Exception& e*/) { // global problem           } catch(.../*const Exception& e*/) { // global problem 
                 //const char* body=e.comment();  
                   
                 // unsuccessful finish                  // unsuccessful finish
                 return false;                  return false;
         }          }
 }  }
   
 static void parser_done() {  static void parser_done() {
         // finalize global variables          // finalize libraries
         pa_globals_done();          pa_globals_done();
   
         //   
         pa_socks_done();  
 }  }
   
 /// ISAPI //  /// ISAPI //
 BOOL WINAPI GetExtensionVersion(HSE_VERSION_INFO *pVer) {  BOOL WINAPI GetExtensionVersion(HSE_VERSION_INFO *pVer) {
         pVer->dwExtensionVersion = HSE_VERSION;          pVer->dwExtensionVersion = HSE_VERSION;
         strncpy(pVer->lpszExtensionDesc, "Parser "PARSER_VERSION, HSE_MAX_EXT_DLL_NAME_LEN-1);          pa_strncpy(pVer->lpszExtensionDesc, "Parser " PARSER_VERSION, HSE_MAX_EXT_DLL_NAME_LEN);
         pVer->lpszExtensionDesc[HSE_MAX_EXT_DLL_NAME_LEN-1]=0;  
         return parser_init();          return parser_init();
 }  }
 // dwFlags & HSE_TERM_MUST_UNLOAD means we can't return false  // dwFlags & HSE_TERM_MUST_UNLOAD means we can't return false
Line 320  BOOL WINAPI TerminateExtension( Line 306  BOOL WINAPI TerminateExtension(
 */  */
 void real_parser_handler(SAPI_Info& SAPI_info, bool header_only) {  void real_parser_handler(SAPI_Info& SAPI_info, bool header_only) {
         // collect garbage from prev request          // collect garbage from prev request
 #ifndef PA_DEBUG_DISABLE_GC          pa_gc_collect();
         {  
                 int saved=GC_dont_gc;  
                 GC_dont_gc=0;  
                 GC_gcollect();  
                 GC_dont_gc=saved;  
         }  
 #endif  
                   
         SAPI_info.header=new String;          SAPI_info.header=new String;
         LPEXTENSION_CONTROL_BLOCK lpECB=SAPI_info.lpECB;          LPEXTENSION_CONTROL_BLOCK lpECB=SAPI_info.lpECB;
Line 335  void real_parser_handler(SAPI_Info& SAPI Line 314  void real_parser_handler(SAPI_Info& SAPI
         // Request info          // Request info
         Request_info request_info;  memset(&request_info, 0, sizeof(request_info));          Request_info request_info;  memset(&request_info, 0, sizeof(request_info));
   
         size_t path_translated_buf_size=strlen(lpECB->lpszPathTranslated)+1;          char *filespec_to_process=pa_strdup(lpECB->lpszPathTranslated);
         char *filespec_to_process=pa_strdup(lpECB->lpszPathTranslated, path_translated_buf_size);  
 #ifdef WIN32  #ifdef WIN32
         back_slashes_to_slashes(filespec_to_process);          back_slashes_to_slashes(filespec_to_process);
 #endif  #endif
Line 344  void real_parser_handler(SAPI_Info& SAPI Line 322  void real_parser_handler(SAPI_Info& SAPI
         if(const char* path_info=SAPI::Env::get(SAPI_info, "PATH_INFO")) {          if(const char* path_info=SAPI::Env::get(SAPI_info, "PATH_INFO")) {
                 // IIS                  // IIS
                 size_t len=strlen(filespec_to_process)-strlen(path_info);                  size_t len=strlen(filespec_to_process)-strlen(path_info);
                 char *buf=new(PointerFreeGC) char[len+1];                  char *buf=new(PointerFreeGC) char[len];
                 strncpy(buf, filespec_to_process, len); buf[len]=0;                  pa_strncpy(buf, filespec_to_process, len);
                 request_info.document_root=buf;                  request_info.document_root=buf;
         } else          } else
                 throw Exception(PARSER_RUNTIME,                  throw Exception(PARSER_RUNTIME, 0, "ISAPI: no PATH_INFO defined (in reinventing DOCUMENT_ROOT)");
                         0,  
                         "ISAPI: no PATH_INFO defined (in reinventing DOCUMENT_ROOT)");  
   
         request_info.path_translated=filespec_to_process;          request_info.path_translated=filespec_to_process;
         request_info.method=lpECB->lpszMethod;          request_info.method=lpECB->lpszMethod;
         request_info.query_string=lpECB->lpszQueryString;          request_info.query_string=lpECB->lpszQueryString;
         if(lpECB->lpszQueryString && *lpECB->lpszQueryString) {          request_info.uri=lpECB->lpszQueryString && *lpECB->lpszQueryString ? pa_strcat(lpECB->lpszPathInfo, "?", lpECB->lpszQueryString) : lpECB->lpszPathInfo;
                 char *reconstructed_uri=new(PointerFreeGC) char[  
                         strlen(lpECB->lpszPathInfo)+1/*'?'*/+  
                         strlen(lpECB->lpszQueryString)+1/*0*/];  
                 strcpy(reconstructed_uri, lpECB->lpszPathInfo);  
                 strcat(reconstructed_uri, "?");  
                 strcat(reconstructed_uri, lpECB->lpszQueryString);  
                 request_info.uri=reconstructed_uri;  
         } else  
                 request_info.uri=lpECB->lpszPathInfo;  
           
         request_info.content_type=lpECB->lpszContentType;          request_info.content_type=lpECB->lpszContentType;
         request_info.content_length=lpECB->cbTotalBytes;          request_info.content_length=lpECB->cbTotalBytes;
         request_info.cookie=SAPI::Env::get(SAPI_info, "HTTP_COOKIE");          request_info.cookie=SAPI::Env::get(SAPI_info, "HTTP_COOKIE");
         request_info.mail_received=false;          request_info.mail_received=false;
                   
         // prepare to process request          // prepare to process request
         Request request(SAPI_info,           Request request(SAPI_info, request_info, String::Language(String::L_HTML|String::L_OPTIMIZE_BIT));
                 request_info,  
                 String::Language(String::L_HTML|String::L_OPTIMIZE_BIT));  
   
         // beside by binary          // beside by binary
         static char beside_binary_path[MAX_STRING];          static char beside_binary_path[MAX_STRING];
         strncpy(beside_binary_path, argv0, MAX_STRING-1);  beside_binary_path[MAX_STRING-1]=0; // filespec of my binary          pa_strncpy(beside_binary_path, argv0, MAX_STRING); // filespec of my binary
         if(!(          if(!(rsplit(beside_binary_path, '/') || rsplit(beside_binary_path, '\\'))) { // strip filename
                 rsplit(beside_binary_path, '/') ||   
                 rsplit(beside_binary_path, '\\'))) { // strip filename  
                 // no path, just filename                  // no path, just filename
                 beside_binary_path[0]='.'; beside_binary_path[1]=0;                  beside_binary_path[0]='.'; beside_binary_path[1]=0;
         }                 }
         char config_filespec[MAX_STRING];          char config_filespec[MAX_STRING];
         snprintf(config_filespec, MAX_STRING,           snprintf(config_filespec, MAX_STRING, "%s/%s", beside_binary_path, AUTO_FILE_NAME);
                 "%s/%s",   
                 beside_binary_path, AUTO_FILE_NAME);  
         bool fail_on_config_read_problem=entry_exists(config_filespec);  
   
         // process the request          // process the request
         request.core(          request.core(entry_exists(config_filespec) ? config_filespec : NULL, header_only);
                 config_filespec, fail_on_config_read_problem, // /path/to/first/auto.p  
                 header_only);  
 }  }
   
 #ifdef PA_SUPPRESS_SYSTEM_EXCEPTION  #ifdef PA_SUPPRESS_SYSTEM_EXCEPTION
 static const Exception   static const Exception call_real_parser_handler__do_PEH_return_it(SAPI_Info& SAPI_info, bool header_only) {
 call_real_parser_handler__do_PEH_return_it(  
         SAPI_Info& SAPI_info, bool header_only)   
 {  
         try {          try {
                 real_parser_handler(SAPI_info, header_only);                  real_parser_handler(SAPI_info, header_only);
         } catch(const Exception& e) {          } catch(const Exception& e) {
Line 410  call_real_parser_handler__do_PEH_return_ Line 364  call_real_parser_handler__do_PEH_return_
   
         return Exception();          return Exception();
 }  }
 static void call_real_parser_handler__supress_system_exception(  
         SAPI_Info& SAPI_info, bool header_only)   static void call_real_parser_handler__supress_system_exception(SAPI_Info& SAPI_info, bool header_only) {
 {  
         Exception parser_exception;          Exception parser_exception;
         LPEXCEPTION_POINTERS system_exception=0;          LPEXCEPTION_POINTERS system_exception=0;
   
         __try {          __try {
                 parser_exception=call_real_parser_handler__do_PEH_return_it(                  parser_exception=call_real_parser_handler__do_PEH_return_it(SAPI_info, header_only);
                         SAPI_info, header_only);          } __except ( (system_exception=GetExceptionInformation()), EXCEPTION_EXECUTE_HANDLER) {
         } __except (  
                 (system_exception=GetExceptionInformation()),   
                 EXCEPTION_EXECUTE_HANDLER)   
         {  
   
                 if(system_exception)                  if(system_exception)
                         if(_EXCEPTION_RECORD *er=system_exception->ExceptionRecord)                          if(_EXCEPTION_RECORD *er=system_exception->ExceptionRecord)
                                 throw Exception("system",                                  throw Exception("system", 0, "0x%08X at 0x%08X", er->ExceptionCode,  er->ExceptionAddress);
                                         0,  
                                         "0x%08X at 0x%08X", er->ExceptionCode,  er->ExceptionAddress);  
                         else                          else
                                 throw Exception("system",                                   throw Exception("system", 0, "<no exception record>");
                                         0,   
                                         "<no exception record>");  
                 else                  else
                         throw Exception("system",                           throw Exception("system", 0, "<no exception information>");
                                 0,   
                                 "<no exception information>");  
         }          }
   
         if(parser_exception)          if(parser_exception)
Line 461  DWORD WINAPI HttpExtensionProc(LPEXTENSI Line 403  DWORD WINAPI HttpExtensionProc(LPEXTENSI
 #endif  #endif
                         SAPI_info, header_only);                          SAPI_info, header_only);
                 // successful finish                  // successful finish
         } catch(const Exception& e) { // global problem          } catch(const Exception& e) { // exception in unhandled exception
                 // don't allocate anything on pool here:  
                 //   possible pool' exception not catch-ed now  
                         //   and there could be out-of-memory exception  
                 const char* body=e.comment();  
                 // log it                  // log it
                 SAPI::log(SAPI_info, "exception in request exception handler: %s", body);                  SAPI::log(SAPI_info, "%s", e.comment());
   
                 //  
                 int content_length=strlen(body);  
   
                 // prepare header // not using SAPI func wich allocates on pool  
                 char header_buf[MAX_STRING];  
                 int header_len=snprintf(header_buf, MAX_STRING,  
                         HTTP_CONTENT_TYPE_CAPITALIZED ": text/plain\r\n"  
                         HTTP_CONTENT_LENGTH_CAPITALIZED ": %u\r\n"  
 //                      "expires: Fri, 23 Mar 2001 09:32:23 GMT\r\n"  
                         "\r\n",  
                         content_length);  
   
                 HSE_SEND_HEADER_EX_INFO header_info;                  HSE_SEND_HEADER_EX_INFO header_info;
                 header_info.pszStatus="200 OK";                  header_info.pszStatus="200 OK";
                 header_info.cchStatus=strlen(header_info.pszStatus);                  header_info.cchStatus=strlen(header_info.pszStatus);
                 header_info.pszHeader=header_buf;                  header_info.pszHeader=HTTP_CONTENT_TYPE_CAPITALIZED ": text/plain\r\n\r\n";
                 header_info.cchHeader=header_len;                  header_info.cchHeader=strlen(header_info.pszHeader);
                 header_info.fKeepConn=true;                  header_info.fKeepConn=true;
                                   
                 // send header                  // send header
                 lpECB->dwHttpStatusCode=200;                  lpECB->dwHttpStatusCode=200;
                 lpECB->ServerSupportFunction(lpECB->ConnID,                   lpECB->ServerSupportFunction(lpECB->ConnID, HSE_REQ_SEND_RESPONSE_HEADER_EX, &header_info, NULL, NULL);
                         HSE_REQ_SEND_RESPONSE_HEADER_EX, &header_info, NULL, NULL);  
   
                 // send body                  // send body
                 if(!header_only)                  if(!header_only)
                         SAPI::send_body(SAPI_info, body, content_length);                          SAPI::send_body(SAPI_info, e.comment(), strlen(e.comment()));
   
                 // unsuccessful finish                  // unsuccessful finish
         }          }
 /*  
                 const char* body="test";  
   
                 //  
                 int content_length=strlen(body);  
   
                 // prepare header // not using SAPI func wich allocates on pool  
                 char header_buf[MAX_STRING];  
                 int header_len=snprintf(header_buf, MAX_STRING,  
                         HTTP_CONTENT_TYPE_CAPITALIZED ": text/plain\r\n"  
                         HTTP_CONTENT_LENGTH_CAPITALIZED ": %u\r\n"  
                         "expires: Fri, 23 Mar 2001 09:32:23 GMT\r\n"  
                         "\r\n",  
                         content_length);  
                 HSE_SEND_HEADER_EX_INFO header_info;  
                 header_info.pszStatus="200 OK";  
                 header_info.cchStatus=strlen(header_info.pszStatus);  
                 header_info.pszHeader=header_buf;  
                 header_info.cchHeader=header_len;  
                 header_info.fKeepConn=true;  
                   
         // send header  
                 lpECB->dwHttpStatusCode=200;  
                 lpECB->ServerSupportFunction(lpECB->ConnID,   
                         HSE_REQ_SEND_RESPONSE_HEADER_EX, &header_info, NULL, NULL);  
   
                 // send body  
         DWORD num_bytes=content_length;  
         lpECB->WriteClient(lpECB->ConnID,   
                 (void *)body, &num_bytes, HSE_IO_SYNC);  
 */  
         return HSE_STATUS_SUCCESS_AND_KEEP_CONN;          return HSE_STATUS_SUCCESS_AND_KEEP_CONN;
 }  }
   
Removed from v.1.110  
changed lines
  Added in v.1.130

E-mail: