--- parser3/src/targets/isapi/parser3isapi.C 2001/03/22 15:30:49 1.1 +++ parser3/src/targets/isapi/parser3isapi.C 2001/03/22 21:33:39 1.6 @@ -6,25 +6,29 @@ #include #include -#include -#include #include "pa_globals.h" #include "pa_request.h" #include "pa_version.h" #define MAX_STATUS_LENGTH sizeof("xxxx LONGEST STATUS DESCRIPTION") -#define ISAPI_SERVER_VAR_BUF_SIZE 0x400 //@{ /// service func decl + +struct Service_func_context { + LPEXTENSION_CONTROL_BLOCK lpECB; + String *header; + DWORD http_response_code; +}; + static const char *get_env(Pool& pool, const char *name) { - LPEXTENSION_CONTROL_BLOCK lpECB=static_cast(pool.context()); + Service_func_context& ctx=*static_cast(pool.context()); char *variable_buf=(char *)pool.malloc(MAX_STRING); DWORD variable_len = MAX_STRING-1; - if(lpECB->GetServerVariable(lpECB->ConnID, const_cast(name), + if(ctx.lpECB->GetServerVariable(ctx.lpECB->ConnID, const_cast(name), variable_buf, &variable_len)) { variable_buf[variable_len]=0; return variable_buf; @@ -32,7 +36,7 @@ static const char *get_env(Pool& pool, c variable_buf=(char *)pool.malloc(variable_len+1); - if(lpECB->GetServerVariable(lpECB->ConnID, const_cast(name), + if(ctx.lpECB->GetServerVariable(ctx.lpECB->ConnID, const_cast(name), variable_buf, &variable_len)) { variable_buf[variable_len]=0; return variable_buf; @@ -42,25 +46,26 @@ static const char *get_env(Pool& pool, c } static uint read_post(Pool& pool, char *buf, uint max_bytes) { - LPEXTENSION_CONTROL_BLOCK lpECB=static_cast(pool.context()); + Service_func_context& ctx=*static_cast(pool.context()); - // todo: timeout DWORD read_from_buf=0; DWORD read_from_input=0; DWORD total_read=0; - read_from_buf=min(lpECB->cbAvailable, max_bytes); - memcpy(buf, lpECB->lpbData, read_from_buf); + read_from_buf=min(ctx.lpECB->cbAvailable, max_bytes); + memcpy(buf, ctx.lpECB->lpbData, read_from_buf); total_read+=read_from_buf; if(read_from_bufcbTotalBytes) { + read_from_bufcbTotalBytes) { DWORD cbRead=0, cbSize; - read_from_input=min(max_bytes-read_from_buf, lpECB->cbTotalBytes-read_from_buf); + read_from_input=min(max_bytes-read_from_buf, + ctx.lpECB->cbTotalBytes-read_from_buf); while(cbRead < read_from_input) { cbSize=read_from_input - cbRead; - if(!lpECB->ReadClient(lpECB->ConnID, buf+read_from_buf+cbRead, &cbSize) || + if(!ctx.lpECB->ReadClient(ctx.lpECB->ConnID, + buf+read_from_buf+cbRead, &cbSize) || cbSize==0) break; cbRead+=cbSize; @@ -71,59 +76,65 @@ static uint read_post(Pool& pool, char * } static void add_header_attribute(Pool& pool, const char *key, const char *value) { - LPEXTENSION_CONTROL_BLOCK lpECB=static_cast(pool.context()); - String *header=static_cast(pool.tag()); - if(!header) - pool.set_tag(header=new(pool) String(pool)); - - header->APPEND_CONST(key); - header->APPEND_CONST(": "); - header->APPEND_CONST(value); - header->APPEND_CONST("\r\n"); + Service_func_context& ctx=*static_cast(pool.context()); + + if(strcasecmp(key, "location")==0) + ctx.http_response_code=302; + + if(strcasecmp(key, "status")==0) + ctx.http_response_code=atoi(value); + else { + ctx.header->APPEND_CONST(key); + ctx.header->APPEND_CONST(": "); + ctx.header->APPEND_CONST(value); + ctx.header->APPEND_CONST("\n"); + } } +/// @todo intelligent cache-control static void send_header(Pool& pool) { - LPEXTENSION_CONTROL_BLOCK lpECB=static_cast(pool.context()); - String *header=static_cast(pool.tag()); - if(!header) // never - return; + Service_func_context& ctx=*static_cast(pool.context()); - header->APPEND_CONST("\r\n"); + ctx.header->APPEND_CONST( + "Connection: keep-alive\n" + "Cache-Control: no-cache\n" + "\n"); HSE_SEND_HEADER_EX_INFO header_info; - int http_response_code=200; // todo: dig from headers - char status_buf[MAX_STATUS_LENGTH]; - switch(http_response_code) { + switch(ctx.http_response_code) { case 200: header_info.pszStatus="200 OK"; break; case 302: header_info.pszStatus="302 Moved Temporarily"; break; - case 401: + /*case 401: header_info.pszStatus="401 Authorization Required"; - break; + break;*/ default: - snprintf(status_buf, MAX_STATUS_LENGTH, "%d Undescribed", http_response_code); + snprintf(status_buf, MAX_STATUS_LENGTH, + "%d Undescribed", ctx.http_response_code); header_info.pszStatus=status_buf; break; } header_info.cchStatus=strlen(header_info.pszStatus); - header_info.pszHeader=header->cstr(); - header_info.cchHeader=header->size(); + header_info.pszHeader=ctx.header->cstr(); + header_info.cchHeader=ctx.header->size(); + header_info.fKeepConn=true; - lpECB->dwHttpStatusCode=http_response_code; + ctx.lpECB->dwHttpStatusCode=ctx.http_response_code; - lpECB->ServerSupportFunction(lpECB->ConnID, HSE_REQ_SEND_RESPONSE_HEADER_EX, - &header_info, NULL, NULL); + ctx.lpECB->ServerSupportFunction(ctx.lpECB->ConnID, + HSE_REQ_SEND_RESPONSE_HEADER_EX, &header_info, NULL, NULL); } static void send_body(Pool& pool, const char *buf, size_t size) { - LPEXTENSION_CONTROL_BLOCK lpECB=static_cast(pool.context()); + Service_func_context& ctx=*static_cast(pool.context()); DWORD num_bytes=size; - lpECB->WriteClient(lpECB->ConnID, const_cast(buf), &num_bytes, HSE_IO_SYNC); + ctx.lpECB->WriteClient(ctx.lpECB->ConnID, + const_cast(buf), &num_bytes, HSE_IO_SYNC); } //@} @@ -164,105 +175,99 @@ BOOL WINAPI GetExtensionVersion(HSE_VERS return TRUE; } -static BOOL exception_handler(LPEXCEPTION_POINTERS *e,LPEXCEPTION_POINTERS ep) { - *e=ep; - return TRUE; -} +/** + ISAPI // main workhorse -/// ISAPI // main workhorse + @todo + think of a better way than @c APPL_PHYSICAL_PATH + of obtaining the @c DOCUMENT_ROOT + because this only gets "the place where last IIS Application was set" + and if someone would redefine Application settings below the / + all ^table:load[/test] would open not /test but /below/test +*/ DWORD WINAPI HttpExtensionProc(LPEXTENSION_CONTROL_BLOCK lpECB) { Pool pool; - pool.set_context(lpECB); - // TODO r->no_cache=1; - + bool header_only=strcasecmp(lpECB->lpszMethod, "HEAD")==0; PTRY { // global try // must be first in PTRY{}PCATCH - LPEXCEPTION_POINTERS e; - __try { - - const char *filespec_to_process=lpECB->lpszPathTranslated; - - // Request info - Request::Info request_info; + + Service_func_context ctx={ + lpECB, + new(pool) String(pool), + 200 + }; + pool.set_context(&ctx); + + // Request info + Request::Info request_info; + + char document_root_buf[MAX_STRING]; + DWORD document_root_len; + if (lpECB->GetServerVariable(lpECB->ConnID, "APPL_PHYSICAL_PATH", + document_root_buf, &document_root_len)) { + document_root_buf[document_root_len]=0; + request_info.document_root=document_root_buf; + } else + PTHROW(0, 0, + 0, + "no server variable APPL_PHYSICAL_PATH (error #%lu)", + GetLastError()); // never + + request_info.path_translated=lpECB->lpszPathTranslated; + request_info.method=lpECB->lpszMethod; + request_info.query_string=lpECB->lpszQueryString; + char reconstructed_uri[MAX_STRING]; + if(lpECB->lpszQueryString && *lpECB->lpszQueryString) { + strncpy(reconstructed_uri, lpECB->lpszPathInfo, + MAX_STRING-1/*'?'*/-strlen(lpECB->lpszQueryString)); + strcat(reconstructed_uri, "?"); + strcat(reconstructed_uri, lpECB->lpszPathInfo); + request_info.uri=reconstructed_uri; + } else + request_info.uri=lpECB->lpszPathInfo; + + request_info.content_type=lpECB->lpszContentType; + request_info.content_length=lpECB->cbTotalBytes; + // cookie + request_info.cookie=0; + char cookie_buf[MAX_STRING]; + { + DWORD cookie_len = MAX_STRING-1; - const char *document_root=0; // todo: get from somewhere? - if(!document_root) { - static char fake_document_root[MAX_STRING]; - strncpy(fake_document_root, filespec_to_process, MAX_STRING); - rsplit(fake_document_root, '/'); rsplit(fake_document_root, '\\');// strip filename - document_root=fake_document_root; - } - request_info.document_root=document_root; - request_info.path_translated=filespec_to_process; - request_info.method=lpECB->lpszMethod; - request_info.query_string=lpECB->lpszQueryString; - request_info.uri=lpECB->lpszPathInfo;//todo: check for ?zzz included? - request_info.content_type=lpECB->lpszContentType; - request_info.content_length=lpECB->cbTotalBytes; - {// cookie - char variable_buf[ISAPI_SERVER_VAR_BUF_SIZE]; - DWORD variable_len = ISAPI_SERVER_VAR_BUF_SIZE-1; + if (lpECB->GetServerVariable(lpECB->ConnID, "HTTP_COOKIE", cookie_buf, &cookie_len)) { + cookie_buf[cookie_len]=0; + request_info.cookie=cookie_buf; + } else if (GetLastError()==ERROR_INSUFFICIENT_BUFFER) { + char *tmp_cookie_buf=(char *)pool.malloc(cookie_len+1); - if (lpECB->GetServerVariable(lpECB->ConnID, "HTTP_COOKIE", variable_buf, &variable_len)) { - variable_buf[variable_len]=0; - request_info.cookie=variable_buf; - } else if (GetLastError()==ERROR_INSUFFICIENT_BUFFER) { - char *tmp_variable_buf=(char *)pool.malloc(variable_len+1); - - if (lpECB->GetServerVariable(lpECB->ConnID, "HTTP_COOKIE", tmp_variable_buf, &variable_len)) { - tmp_variable_buf[variable_len] = 0; - request_info.cookie=tmp_variable_buf; - } else { - request_info.cookie=0; - } + if (lpECB->GetServerVariable(lpECB->ConnID, "HTTP_COOKIE", tmp_cookie_buf, &cookie_len)) { + tmp_cookie_buf[cookie_len]=0; + request_info.cookie=tmp_cookie_buf; } } - - // prepare to process request - Request request(pool, - request_info, - String::UL_HTML_TYPO - ); - - - // some root-controlled location - char *root_auto_path; - // c:\windows - root_auto_path=(char *)pool.malloc(MAX_STRING); - GetWindowsDirectory(root_auto_path, MAX_STRING); - strcat(root_auto_path, "/"); - - // process the request - request.core( - root_auto_path, true, // /path/to/admin/auto.p - 0/*parser_site_auto_path*/, false, // /path/to/site/auto.p - header_only); - - // successful finish - - // must be last in PTRY{}PCATCH - } __except(exception_handler(&e, GetExceptionInformation())) { - // converting C++ exception into Parser exception - - if(_exception_code()==EXCEPTION_STACK_OVERFLOW) - PTHROW(0, 0, - 0, - "Stack overflow"); - else if(_exception_code()==EXCEPTION_ACCESS_VIOLATION) - PTHROW(0, 0, - 0, - "Access violation at %p", - e->ExceptionRecord->ExceptionAddress); - else - PTHROW(0, 0, - 0, - "Exception %#X at %p", - e->ExceptionRecord->ExceptionCode, - e->ExceptionRecord->ExceptionAddress); } - // no further code here + + // prepare to process request + Request request(pool, + request_info, + String::UL_HTML_TYPO + ); + + // some root-controlled location + char *root_auto_path; + // c:\windows + root_auto_path=(char *)pool.malloc(MAX_STRING); + GetWindowsDirectory(root_auto_path, MAX_STRING); + + // process the request + request.core( + root_auto_path, false/*may be abcent*/, // /path/to/admin/auto.p + 0/*parser_site_auto_path*/, false, // /path/to/site/auto.p + header_only); + + // successful finish } PCATCH(e) { // global problem const char *body=e.comment(); int content_length=strlen(body); @@ -270,7 +275,7 @@ DWORD WINAPI HttpExtensionProc(LPEXTENSI // prepare header (*service_funcs.add_header_attribute)(pool, "content-type", "text/plain"); char content_length_cstr[MAX_NUMBER]; - snprintf(content_length_cstr, MAX_NUMBER, "%d", content_length); + snprintf(content_length_cstr, MAX_NUMBER, "%lu", content_length); (*service_funcs.add_header_attribute)(pool, "content-length", content_length_cstr); @@ -286,7 +291,7 @@ DWORD WINAPI HttpExtensionProc(LPEXTENSI } PEND_CATCH - return HSE_STATUS_SUCCESS; + return HSE_STATUS_SUCCESS_AND_KEEP_CONN; }