[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.89 and 1.136

version 1.89, 2004/04/01 11:43:54 version 1.136, 2026/04/25 13:38:46
Line 1 Line 1
 /** @file  /** @file
         Parser: IIS extension.          Parser: IIS extension.
   
         Copyright (c) 2000,2001-2004 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2000-2026 Art. Lebedev Studio (https://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */  */
   
 static const char * const IDENT_PARSER3ISAPI_C="$Date$";  volatile const char * IDENT_PARSER3ISAPI_C="$Id$";
   
 #ifndef _MSC_VER  #ifndef _MSC_VER
 #       error compile ISAPI module with MSVC [no urge for now to make it autoconf-ed (PAF)]  #       error compile ISAPI module with MSVC [no urge for now to make it autoconf-ed (PAF)]
Line 17  static const char * const IDENT_PARSER3I Line 17  static const char * const IDENT_PARSER3I
 #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>
   
 #include <httpext.h>  #include <httpext.h>
   
   // defines
   
   #if defined(_MSC_VER) && !defined(_DEBUG)
   #       define PA_SUPPRESS_SYSTEM_EXCEPTION
   #endif
   
   
 #define MAX_STATUS_LENGTH sizeof("xxxx LONGEST STATUS DESCRIPTION")  #define MAX_STATUS_LENGTH sizeof("xxxx LONGEST STATUS DESCRIPTION")
   
 // consts  // consts
Line 34  const char* IIS51vars[]={ Line 40  const char* IIS51vars[]={
         "CERT_COOKIE", "CERT_FLAGS", "CERT_ISSUER", "CERT_KEYSIZE", "CERT_SECRETKEYSIZE",          "CERT_COOKIE", "CERT_FLAGS", "CERT_ISSUER", "CERT_KEYSIZE", "CERT_SECRETKEYSIZE",
         "CERT_SERIALNUMBER", "CERT_SERVER_ISSUER", "CERT_SERVER_SUBJECT", "CERT_SUBJECT",          "CERT_SERIALNUMBER", "CERT_SERVER_ISSUER", "CERT_SERVER_SUBJECT", "CERT_SUBJECT",
         "CONTENT_LENGTH", "CONTENT_TYPE",          "CONTENT_LENGTH", "CONTENT_TYPE",
         "LOGON_USER",          "GATEWAY_INTERFACE",
         "HTTPS", "HTTPS_KEYSIZE", "HTTPS_SECRETKEYSIZE", "HTTPS_SERVER_ISSUER", "HTTPS_SERVER_SUBJECT",          "HTTPS", "HTTPS_KEYSIZE", "HTTPS_SECRETKEYSIZE", "HTTPS_SERVER_ISSUER", "HTTPS_SERVER_SUBJECT",
         "INSTANCE_ID",  "INSTANCE_META_PATH",          "INSTANCE_ID",  "INSTANCE_META_PATH",
           "LOCAL_ADDR", "LOGON_USER",
         "PATH_INFO",    "PATH_TRANSLATED",          "PATH_INFO",    "PATH_TRANSLATED",
         "QUERY_STRING",          "QUERY_STRING",
         "REMOTE_ADDR", "REMOTE_HOST", "REMOTE_USER", "REQUEST_METHOD",          "REMOTE_ADDR", "REMOTE_HOST", "REMOTE_PORT", "REMOTE_USER", "REQUEST_METHOD",
         "SCRIPT_NAME",          "SCRIPT_NAME",
         "SERVER_NAME", "SERVER_PORT", "SERVER_PORT_SECURE", "SERVER_PROTOCOL", "SERVER_SOFTWARE",          "SERVER_NAME", "SERVER_PORT", "SERVER_PORT_SECURE", "SERVER_PROTOCOL", "SERVER_SOFTWARE",
         "URL",          "URL",
Line 49  const int IIS51var_count=sizeof(IIS51var Line 56  const int IIS51var_count=sizeof(IIS51var
 // globals  // globals
   
 char argv0[MAX_STRING]="";  char argv0[MAX_STRING]="";
   const char* parser3_mode="isapi"; // $status:mode
   const char *parser3_log_filespec(){ return ""; } // $status:log-filename
   
 // SAPI  // SAPI
   
Line 69  public: Line 78  public:
 void SAPI::log(SAPI_Info& SAPI_info, const char* fmt, ...) {  void SAPI::log(SAPI_Info& SAPI_info, const char* fmt, ...) {
         va_list args;          va_list args;
         va_start(args,fmt);          va_start(args,fmt);
         char buf[MAX_STRING];          char buf[MAX_LOG_STRING];
         const char* prefix="PARSER_ERROR:";          const char* prefix="PARSER_ERROR:";
         strcpy(buf, prefix);          strcpy(buf, prefix);
         char *start=buf+strlen(prefix);          char *start=buf+strlen(prefix);
         DWORD size=vsnprintf(start, MAX_STRING-strlen(prefix), fmt, args);          DWORD size=vsnprintf(start, MAX_LOG_STRING-strlen(prefix), fmt, args);
         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();
 }  //      va_end(args);
 void SAPI::die(const char* fmt, ...) {  
         va_list args;  
         va_start(args, fmt);  
         ::abort(fmt, args);  
         va_end(args);  
 }  }
   
 void SAPI::abort(const char* fmt, ...) {  void SAPI::send_error(SAPI_Info& SAPI_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(SAPI_info, HTTP_STATUS_CAPITALIZED, status);
         ::abort(fmt, args);          add_header_attribute(SAPI_info, HTTP_CONTENT_TYPE_CAPITALIZED, "text/plain");
         va_end(args);          send_headers(SAPI_info);
           send_body(SAPI_info, exception_cstr, strlen(exception_cstr));
 }  }
   
 char* SAPI::get_env(SAPI_Info& SAPI_info, const char* name) {  char* SAPI::Env::get(SAPI_Info& SAPI_info, const char* name) {
         char *variable_buf=new(PointerFreeGC) char[MAX_STRING];          char *variable_buf=new(PointerFreeGC) char[MAX_STRING];
         DWORD variable_len = MAX_STRING-1;          DWORD variable_len = MAX_STRING-1;
   
Line 128  char* SAPI::get_env(SAPI_Info& SAPI_info Line 134  char* SAPI::get_env(SAPI_Info& SAPI_info
         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 138  static int grep_char(const char* s, char Line 148  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*/];  const char* const *SAPI::Env::get(SAPI_Info& info) {
         strcpy(result, key); strcat(result, "="); strcat(result, value);  
         return result;  
 }  
 const char* const *SAPI::environment(SAPI_Info& info) {  
         // we know this buf is writable          // we know this buf is writable
         char* all_http_vars=SAPI::get_env(info, "ALL_HTTP");          char* all_http_vars=SAPI::Env::get(info, "ALL_HTTP");
         const int http_var_count=grep_char(all_http_vars, '\n')+1/*\n for theoretical(never saw) this \0*/;          const int http_var_count=grep_char(all_http_vars, '\n')+1/*\n for theoretical(never saw) this \0*/;
           
         const char* *result=new const char*[IIS51var_count+http_var_count+1/*0*/];          const char* *result=new(PointerFreeGC) const char*[IIS51var_count+http_var_count+1/*0*/];
         const char* *cur=result;          const char* *cur=result;
   
         // IIS5.1 vars          // IIS5.1 vars
         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::get_env(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 199  size_t SAPI::read_post(SAPI_Info& SAPI_i Line 205  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, "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) << pa_strdup(dont_store_key) << ": " << pa_strdup(dont_store_value) << "\r\n";                  (*SAPI_info.header) << capitalize(dont_store_key) << ": " << pa_strdup(dont_store_value) << "\r\n";
 }  }
   
 /// @todo intelligent cache-control  /// @todo intelligent cache-control
 void SAPI::send_header(SAPI_Info& SAPI_info) {  void SAPI::send_headers(SAPI_Info& SAPI_info) {
         HSE_SEND_HEADER_EX_INFO header_info;          HSE_SEND_HEADER_EX_INFO header_info;
   
         char status_buf[MAX_STATUS_LENGTH];          char status_buf[MAX_STATUS_LENGTH];
Line 243  void SAPI::send_header(SAPI_Info& SAPI_i Line 248  void SAPI::send_header(SAPI_Info& SAPI_i
                 HSE_REQ_SEND_RESPONSE_HEADER_EX, &header_info, NULL, NULL);                  HSE_REQ_SEND_RESPONSE_HEADER_EX, &header_info, NULL, NULL);
 }  }
   
 void SAPI::send_body(SAPI_Info& SAPI_info, const void *buf, size_t size) {  void SAPI::clear_headers(SAPI_Info& SAPI_info) {
           SAPI_info.header=new String;
   }
   
   size_t SAPI::send_body(SAPI_Info& SAPI_info, const void *buf, size_t size) {
         DWORD num_bytes=size;          DWORD num_bytes=size;
         SAPI_info.lpECB->WriteClient(SAPI_info.lpECB->ConnID,           if(!SAPI_info.lpECB->WriteClient(SAPI_info.lpECB->ConnID, 
                 const_cast<void *>(buf), &num_bytes, HSE_IO_SYNC);                  const_cast<void *>(buf), &num_bytes, HSE_IO_SYNC))
                   return 0;
           return (size_t)num_bytes;
 }  }
   
   
Line 257  static bool parser_init() { Line 268  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 308  BOOL WINAPI TerminateExtension( Line 310  BOOL WINAPI TerminateExtension(
         @test          @test
                 PARSER_VERSION from outside                  PARSER_VERSION from outside
 */  */
   
 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 326  void real_parser_handler(SAPI_Info& SAPI Line 320  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
   
         if(const char* path_info=SAPI::get_env(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::get_env(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),  
                 true /* status_allowed */);  
   
         // 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
   static const Exception call_real_parser_handler__do_PEH_return_it(SAPI_Info& SAPI_info, bool header_only) {
           try {
                   real_parser_handler(SAPI_info, header_only);
           } catch(const Exception& e) {
                   return e;
           }
   
           return Exception();
 }  }
   
 void call_real_parser_handler__do_SEH(SAPI_Info& SAPI_info, bool header_only) {  static void call_real_parser_handler__supress_system_exception(SAPI_Info& SAPI_info, bool header_only) {
 #if _MSC_VER & !defined(_DEBUG)          Exception parser_exception;
         LPEXCEPTION_POINTERS system_exception=0;          LPEXCEPTION_POINTERS system_exception=0;
   
         __try {          __try {
 #endif                  parser_exception=call_real_parser_handler__do_PEH_return_it(SAPI_info, header_only);
                 real_parser_handler(SAPI_info, header_only);          } __except ( (system_exception=GetExceptionInformation()), EXCEPTION_EXECUTE_HANDLER) {
                   
 #if _MSC_VER & !defined(_DEBUG)  
         } __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(0,                                  throw Exception("system", 0, "0x%08X at 0x%08X", er->ExceptionCode,  er->ExceptionAddress);
                                 0,  
                                 "Exception 0x%08X at 0x%08X", er->ExceptionCode,  er->ExceptionAddress);  
                         else  
                                 throw Exception(0, 0, "Exception <no exception record>");  
                         else                          else
                                 throw Exception(0, 0, "Exception <no exception information>");                                  throw Exception("system", 0, "<no exception record>");
                   else
                           throw Exception("system", 0, "<no exception information>");
         }          }
 #endif  
           if(parser_exception)
                   throw Exception(parser_exception);
 }  }
   #endif
   
 DWORD WINAPI HttpExtensionProc(LPEXTENSION_CONTROL_BLOCK lpECB) {  DWORD WINAPI HttpExtensionProc(LPEXTENSION_CONTROL_BLOCK lpECB) {
         //_asm int 3;          //_asm int 3;
Line 424  DWORD WINAPI HttpExtensionProc(LPEXTENSI Line 402  DWORD WINAPI HttpExtensionProc(LPEXTENSI
   
         bool header_only=strcasecmp(lpECB->lpszMethod, "HEAD")==0;          bool header_only=strcasecmp(lpECB->lpszMethod, "HEAD")==0;
         try { // global try          try { // global try
                 call_real_parser_handler__do_SEH(SAPI_info, header_only);  #ifdef PA_SUPPRESS_SYSTEM_EXCEPTION
                   call_real_parser_handler__supress_system_exception(
   #else
                   real_parser_handler(
   #endif
                           SAPI_info, header_only);
                 // successful finish                  // successful finish
         } catch(const Exception& e) { // global problem          } catch(const Exception& e) { // just in case
                 // 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,  
                         "content-type: text/plain\r\n"  
                         "content-length: %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="500 Internal Server Error";
                 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=500;
                 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,  
                         "content-type: text/plain\r\n"  
                         "content-length: %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.89  
changed lines
  Added in v.1.136

E-mail: