nacho       02/04/18 12:46:31

  Added:       jk/native2/server/isapi jk_isapi_plugin.c
  Log:
  * Work in progess.. doesnt compile
  
  Revision  Changes    Path
  1.1                  
jakarta-tomcat-connectors/jk/native2/server/isapi/jk_isapi_plugin.c
  
  Index: jk_isapi_plugin.c
  ===================================================================
  /* ========================================================================= *
   *                                                                           *
   *                 The Apache Software License,  Version 1.1                 *
   *                                                                           *
   *          Copyright (c) 1999-2001 The Apache Software Foundation.          *
   *                           All rights reserved.                            *
   *                                                                           *
   * ========================================================================= *
   *                                                                           *
   * Redistribution and use in source and binary forms,  with or without modi- *
   * fication, are permitted provided that the following conditions are met:   *
   *                                                                           *
   * 1. Redistributions of source code  must retain the above copyright notice *
   *    notice, this list of conditions and the following disclaimer.          *
   *                                                                           *
   * 2. Redistributions  in binary  form  must  reproduce the  above copyright *
   *    notice,  this list of conditions  and the following  disclaimer in the *
   *    documentation and/or other materials provided with the distribution.   *
   *                                                                           *
   * 3. The end-user documentation  included with the redistribution,  if any, *
   *    must include the following acknowlegement:                             *
   *                                                                           *
   *       "This product includes  software developed  by the Apache  Software *
   *        Foundation <http://www.apache.org/>."                              *
   *                                                                           *
   *    Alternately, this acknowlegement may appear in the software itself, if *
   *    and wherever such third-party acknowlegements normally appear.         *
   *                                                                           *
   * 4. The names  "The  Jakarta  Project",  "Jk",  and  "Apache  Software     *
   *    Foundation"  must not be used  to endorse or promote  products derived *
   *    from this  software without  prior  written  permission.  For  written *
   *    permission, please contact <[EMAIL PROTECTED]>.                        *
   *                                                                           *
   * 5. Products derived from this software may not be called "Apache" nor may *
   *    "Apache" appear in their names without prior written permission of the *
   *    Apache Software Foundation.                                            *
   *                                                                           *
   * THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED WARRANTIES *
   * INCLUDING, BUT NOT LIMITED TO,  THE IMPLIED WARRANTIES OF MERCHANTABILITY *
   * AND FITNESS FOR  A PARTICULAR PURPOSE  ARE DISCLAIMED.  IN NO EVENT SHALL *
   * THE APACHE  SOFTWARE  FOUNDATION OR  ITS CONTRIBUTORS  BE LIABLE  FOR ANY *
   * DIRECT,  INDIRECT,   INCIDENTAL,  SPECIAL,  EXEMPLARY,  OR  CONSEQUENTIAL *
   * DAMAGES (INCLUDING,  BUT NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE GOODS *
   * OR SERVICES;  LOSS OF USE,  DATA,  OR PROFITS;  OR BUSINESS INTERRUPTION) *
   * HOWEVER CAUSED AND  ON ANY  THEORY  OF  LIABILITY,  WHETHER IN  CONTRACT, *
   * STRICT LIABILITY, OR TORT  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN *
   * ANY  WAY  OUT OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF  ADVISED  OF THE *
   * POSSIBILITY OF SUCH DAMAGE.                                               *
   *                                                                           *
   * ========================================================================= *
   *                                                                           *
   * This software  consists of voluntary  contributions made  by many indivi- *
   * duals on behalf of the  Apache Software Foundation.  For more information *
   * on the Apache Software Foundation, please see <http://www.apache.org/>.   *
   *                                                                           *
   * ========================================================================= */
  
  /***************************************************************************
   * Description: ISAPI plugin for IIS/PWS                                   *
   * Author:      Gal Shachor <[EMAIL PROTECTED]>                           *
   * Author:      Larry Isaacs <[EMAIL PROTECTED]>                           *
   * Author:      Ignacio J. Ortega <[EMAIL PROTECTED]>                       *
   * Version:     $Revision: 1.1 $                                           *
   ***************************************************************************/
  
  // This define is needed to include wincrypt,h, needed to get client certificates
  #define _WIN32_WINNT 0x0400
  
  #include <httpext.h>
  #include <httpfilt.h>
  #include <wininet.h>
  
  #include "jk_global.h"
  //#include "jk_util.h"
  #include "jk_map.h"
  #include "jk_pool.h"
  #include "jk_env.h"
  #include "jk_service.h"
  #include "jk_worker.h"
  
  #include "iis.h"
  //#include "jk_uri_worker_map.h"
  
  #define jk_log(a,b,c)
  
  #define VERSION_STRING "Jakarta/ISAPI/2.0Dev"
  
  #define DEFAULT_WORKER_NAME ("ajp13")
  /*
   * We use special headers to pass values from the filter to the 
   * extension. These values are:
   *
   * 1. The real URI before redirection took place
   * 2. The name of the worker to be used.
   * 3. The contents of the Translate header, if any
   *
   */
  #define URI_HEADER_NAME         ("TOMCATURI:")
  #define QUERY_HEADER_NAME       ("TOMCATQUERY:")
  #define WORKER_HEADER_NAME      ("TOMCATWORKER:")
  #define TOMCAT_TRANSLATE_HEADER_NAME ("TOMCATTRANSLATE:")
  #define CONTENT_LENGTH          ("CONTENT_LENGTH:")
  
  #define HTTP_URI_HEADER_NAME     ("HTTP_TOMCATURI")
  #define HTTP_QUERY_HEADER_NAME   ("HTTP_TOMCATQUERY")
  #define HTTP_WORKER_HEADER_NAME  ("HTTP_TOMCATWORKER")
  
  #define REGISTRY_LOCATION       ("Software\\Apache Software Foundation\\Jakarta 
Isapi Redirector\\1.0")
  #define EXTENSION_URI_TAG       ("extension_uri")
  
  #define URI_SELECT_TAG          ("uri_select")
  
  #define URI_SELECT_PARSED_VERB      ("parsed")
  #define URI_SELECT_UNPARSED_VERB    ("unparsed")
  #define URI_SELECT_ESCAPED_VERB     ("escaped")
  
  #define BAD_REQUEST           -1
  #define BAD_PATH              -2
  #define MAX_SERVERNAME                        128
  
  
  #define GET_SERVER_VARIABLE_VALUE(name, place) {    \
      (place) = NULL;                                   \
      huge_buf_sz = sizeof(huge_buf);                 \
      if (get_server_value(private_data->lpEcb,        \
                          (name),                     \
                          huge_buf,                   \
                          huge_buf_sz,                \
                          "")) {                      \
          (place) = jk_pool_strdup(&private_data->p, huge_buf);   \
      }   \
  }\
  
  #define GET_SERVER_VARIABLE_VALUE_INT(name, place, def) {   \
      huge_buf_sz = sizeof(huge_buf);                 \
      if (get_server_value(private_data->lpEcb,        \
                          (name),                     \
                          huge_buf,                   \
                          huge_buf_sz,                \
                          "")) {                      \
          (place) = atoi(huge_buf);                   \
          if (0 == (place)) {                          \
              (place) = def;                          \
          }                                           \
      } else {    \
          (place) = def;  \
      }           \
  }\
  
  static char  ini_file_name[MAX_PATH];
  static int   using_ini_file = JK_FALSE;
  static int   is_inited = JK_FALSE;
  static int     is_mapread     = JK_FALSE;
  static int   iis5 = -1;
  
  static jk_workerEnv_t *workerEnv;
  static jk_logger_t *logger = NULL; 
  static char *SERVER_NAME = "SERVER_NAME";
  static char *SERVER_SOFTWARE = "SERVER_SOFTWARE";
  
  
  static char extension_uri[INTERNET_MAX_URL_LENGTH] = 
"/jakarta/isapi_redirector2.dll";
  static char log_file[MAX_PATH * 2];
  static int  log_level = JK_LOG_EMERG_LEVEL;
  static char worker_file[MAX_PATH * 2];
  static char worker_mount_file[MAX_PATH * 2];
  
  #define URI_SELECT_OPT_PARSED       0
  #define URI_SELECT_OPT_UNPARSED     1
  #define URI_SELECT_OPT_ESCAPED      2
  
  static int uri_select_option = URI_SELECT_OPT_PARSED;
  
  
  static int init_ws_service(jk_env_t *env,isapi_private_data_t *private_data,
                             jk_ws_service_t *s,
                             char **worker_name);
  
  
  static int init_jk(char *serverName);
  
  static int initialize_extension(void);
  
  static int read_registry_init_data(void);
  
  static int get_registry_config_parameter(HKEY hkey,
                                           const char *tag, 
                                           char *b,
                                           DWORD sz);
  
  
  static int get_server_value(LPEXTENSION_CONTROL_BLOCK lpEcb,
                              char *name,
                              char  *buf,
                              DWORD bufsz,
                              char  *def_val);
  
  static int base64_encode_cert_len(int len);
  
  static int base64_encode_cert(char *encoded,
                                const unsigned char *string,
                                int len);
  
  
  static char x2c(const char *what)
  {
      register char digit;
  
      digit = ((what[0] >= 'A') ? ((what[0] & 0xdf) - 'A') + 10 : (what[0] - '0'));
      digit *= 16;
      digit += (what[1] >= 'A' ? ((what[1] & 0xdf) - 'A') + 10 : (what[1] - '0'));
      return (digit);
  }
  
  static int unescape_url(char *url)
  {
      register int x, y, badesc, badpath;
  
      badesc = 0;
      badpath = 0;
      for (x = 0, y = 0; url[y]; ++x, ++y) {
          if (url[y] != '%')
              url[x] = url[y];
          else {
              if (!isxdigit(url[y + 1]) || !isxdigit(url[y + 2])) {
                  badesc = 1;
                  url[x] = '%';
              }
              else {
                  url[x] = x2c(&url[y + 1]);
                  y += 2;
                  if (url[x] == '/' || url[x] == '\0')
                      badpath = 1;
              }
          }
      }
      url[x] = '\0';
      if (badesc)
              return BAD_REQUEST;
      else if (badpath)
              return BAD_PATH;
      else
              return 0;
  }
  
  static void getparents(char *name)
  {
      int l, w;
  
      /* Four paseses, as per RFC 1808 */
      /* a) remove ./ path segments */
  
      for (l = 0, w = 0; name[l] != '\0';) {
          if (name[l] == '.' && name[l + 1] == '/' && (l == 0 || name[l - 1] == '/'))
              l += 2;
          else
              name[w++] = name[l++];
      }
  
      /* b) remove trailing . path, segment */
      if (w == 1 && name[0] == '.')
          w--;
      else if (w > 1 && name[w - 1] == '.' && name[w - 2] == '/')
          w--;
      name[w] = '\0';
  
      /* c) remove all xx/../ segments. (including leading ../ and /../) */
      l = 0;
  
      while (name[l] != '\0') {
          if (name[l] == '.' && name[l + 1] == '.' && name[l + 2] == '/' &&
              (l == 0 || name[l - 1] == '/')) {
              register int m = l + 3, n;
  
              l = l - 2;
              if (l >= 0) {
                  while (l >= 0 && name[l] != '/')
                      l--;
                  l++;
              }
              else
                  l = 0;
              n = l;
              while ((name[n] = name[m]))
                  (++n, ++m);
          }
          else
              ++l;
      }
  
      /* d) remove trailing xx/.. segment. */
      if (l == 2 && name[0] == '.' && name[1] == '.')
          name[0] = '\0';
      else if (l > 2 && name[l - 1] == '.' && name[l - 2] == '.' && name[l - 3] == 
'/') {
          l = l - 4;
          if (l >= 0) {
              while (l >= 0 && name[l] != '/')
                  l--;
              l++;
          }
          else
              l = 0;
          name[l] = '\0';
      }
  }
  
  /* Apache code to escape a URL */
  
  #define T_OS_ESCAPE_PATH      (4)
  
  static const unsigned char test_char_table[256] = {
      0,14,14,14,14,14,14,14,14,14,15,14,14,14,14,14,14,14,14,14,
      14,14,14,14,14,14,14,14,14,14,14,14,14,0,7,6,1,6,1,1,
      9,9,1,0,8,0,0,10,0,0,0,0,0,0,0,0,0,0,8,15,
      15,8,15,15,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0,0,0,15,15,15,7,0,7,0,0,0,
      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
      0,0,0,15,7,15,1,14,6,6,6,6,6,6,6,6,6,6,6,6,
      6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
      6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
      6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
      6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
      6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
      6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 
  };
  
  #define TEST_CHAR(c, f)       (test_char_table[(unsigned)(c)] & (f))
  
  static const char c2x_table[] = "0123456789abcdef";
  
  static unsigned char *c2x(unsigned what, unsigned char *where)
  {
      *where++ = '%';
      *where++ = c2x_table[what >> 4];
      *where++ = c2x_table[what & 0xf];
      return where;
  }
  
  static int escape_url(const char *path, char *dest, int destsize)
  {
      const unsigned char *s = (const unsigned char *)path;
      unsigned char *d = (unsigned char *)dest;
      unsigned char *e = dest + destsize - 1;
      unsigned char *ee = dest + destsize - 3;
      unsigned c;
  
      while ((c = *s)) {
        if (TEST_CHAR(c, T_OS_ESCAPE_PATH)) {
              if (d >= ee )
                  return JK_FALSE;
            d = c2x(c, d);
        }
        else {
              if (d >= e )
                  return JK_FALSE;
            *d++ = c;
        }
        ++s;
      }
      *d = '\0';
      return JK_TRUE;
  }
  
  static int uri_is_web_inf(char *uri)
  {
      char *c = uri;
      while(*c) {
          *c = tolower(*c);
          c++;
      }                    
      if(strstr(uri, "web-inf")) {
          return JK_TRUE;
      }
      if(strstr(uri, "meta-inf")) {
          return JK_TRUE;
      }
  
      return JK_FALSE;
  }
  
  
  BOOL WINAPI GetFilterVersion(PHTTP_FILTER_VERSION pVer)
  {
      ULONG http_filter_revision = HTTP_FILTER_REVISION;
  
      pVer->dwFilterVersion = pVer->dwServerFilterVersion;
                          
      if (pVer->dwFilterVersion > http_filter_revision) {
          pVer->dwFilterVersion = http_filter_revision;
      }
  
      pVer->dwFlags = SF_NOTIFY_ORDER_HIGH        | 
                      SF_NOTIFY_SECURE_PORT       | 
                      SF_NOTIFY_NONSECURE_PORT    |
                      SF_NOTIFY_PREPROC_HEADERS   |
                      SF_NOTIFY_AUTH_COMPLETE;
                      
      strcpy(pVer->lpszFilterDesc, VERSION_STRING);
  
      if (!is_inited) {
          return initialize_extension();
      }
  
      return TRUE;
  }
  
  DWORD WINAPI HttpFilterProc(PHTTP_FILTER_CONTEXT pfc,
                              DWORD dwNotificationType, 
                              LPVOID pvNotification)
  {
      /* Initialise jk */
      if (is_inited && !is_mapread) {
          char serverName[MAX_SERVERNAME];
          DWORD dwLen = sizeof(serverName);
  
          if (pfc->GetServerVariable(pfc, SERVER_NAME, serverName, &dwLen)){
              if (dwLen > 0) serverName[dwLen-1] = '\0';
              if (init_jk(serverName))
                  is_mapread = JK_TRUE;
          }
          /* If we can't read the map we become dormant */
          if (!is_mapread)
              is_inited = JK_FALSE;
      }
  
      if (is_inited && (iis5 < 0) ) {
          char serverSoftware[256];
          DWORD dwLen = sizeof(serverSoftware);
                iis5=0;
          if (pfc->GetServerVariable(pfc,SERVER_SOFTWARE, serverSoftware, &dwLen)){
                        iis5=(atof(serverSoftware + 14) >= 5.0);
                        if (iis5) {
                                jk_log(logger, JK_LOG_INFO,"Detected IIS >= 5.0\n");
                        } else {
                                jk_log(logger, JK_LOG_INFO,"Detected IIS < 5.0\n");
                        }
          }
      }
  
      if (is_inited &&
           (((SF_NOTIFY_PREPROC_HEADERS == dwNotificationType) && !iis5) ||
                  ((SF_NOTIFY_AUTH_COMPLETE   == dwNotificationType) &&  iis5)
                  )
                )
        { 
          char uri[INTERNET_MAX_URL_LENGTH]; 
          char snuri[INTERNET_MAX_URL_LENGTH]="/";
          char Host[INTERNET_MAX_URL_LENGTH];
          char Translate[INTERNET_MAX_URL_LENGTH];
                BOOL (WINAPI * GetHeader) 
                        (struct _HTTP_FILTER_CONTEXT * pfc, LPSTR lpszName, LPVOID 
lpvBuffer, LPDWORD lpdwSize );
                BOOL (WINAPI * SetHeader) 
                        (struct _HTTP_FILTER_CONTEXT * pfc, LPSTR lpszName, LPSTR 
lpszValue );
                BOOL (WINAPI * AddHeader) 
                        (struct _HTTP_FILTER_CONTEXT * pfc, LPSTR lpszName,LPSTR 
lpszValue );
          char *query;
          DWORD sz = sizeof(uri);
          DWORD szHost = sizeof(Host);
          DWORD szTranslate = sizeof(Translate);
  
                if (iis5) {
                        
GetHeader=((PHTTP_FILTER_AUTH_COMPLETE_INFO)pvNotification)->GetHeader;
                        
SetHeader=((PHTTP_FILTER_AUTH_COMPLETE_INFO)pvNotification)->SetHeader;
                        
AddHeader=((PHTTP_FILTER_AUTH_COMPLETE_INFO)pvNotification)->AddHeader;
                } else {
                        
GetHeader=((PHTTP_FILTER_PREPROC_HEADERS)pvNotification)->GetHeader;
                        
SetHeader=((PHTTP_FILTER_PREPROC_HEADERS)pvNotification)->SetHeader;
                        
AddHeader=((PHTTP_FILTER_PREPROC_HEADERS)pvNotification)->AddHeader;
                }
  
  
          jk_log(logger, JK_LOG_DEBUG, 
                 "HttpFilterProc started\n");
  
  
          /*
           * Just in case somebody set these headers in the request!
           */
          SetHeader(pfc, URI_HEADER_NAME, NULL);
          SetHeader(pfc, QUERY_HEADER_NAME, NULL);
          SetHeader(pfc, WORKER_HEADER_NAME, NULL);
          SetHeader(pfc, TOMCAT_TRANSLATE_HEADER_NAME, NULL);
          
          if (!GetHeader(pfc, "url", (LPVOID)uri, (LPDWORD)&sz)) {
              jk_log(logger, JK_LOG_ERROR, 
                     "HttpFilterProc error while getting the url\n");
              return SF_STATUS_REQ_ERROR;
          }
  
          if (strlen(uri)) {
              int rc;
              char *worker=0;
              query = strchr(uri, '?');
              if (query) {
                  *query++ = '\0';
              }
  
              rc = unescape_url(uri);
              if (rc == BAD_REQUEST) {
                  jk_log(logger, JK_LOG_ERROR, 
                         "HttpFilterProc [%s] contains one or more invalid escape 
sequences.\n", 
                         uri);
                  write_error_response(pfc,"400 Bad Request",
                          "<HTML><BODY><H1>Request contains invalid 
encoding</H1></BODY></HTML>");
                  return SF_STATUS_REQ_FINISHED;
              }
              else if(rc == BAD_PATH) {
                  jk_log(logger, JK_LOG_EMERG, 
                         "HttpFilterProc [%s] contains forbidden escape sequences.\n", 
                         uri);
                  write_error_response(pfc,"403 Forbidden",
                          "<HTML><BODY><H1>Access is Forbidden</H1></BODY></HTML>");
                  return SF_STATUS_REQ_FINISHED;
              }
              getparents(uri);
  
              if(GetHeader(pfc, "Host:", (LPVOID)Host, (LPDWORD)&szHost)) {
                  strcat(snuri,Host);
                  strcat(snuri,uri);
                  jk_log(logger, JK_LOG_DEBUG, 
                         "In HttpFilterProc Virtual Host redirection of %s\n", 
                         snuri);
  //                worker = map_uri_to_worker(uw_map, snuri, logger);                
              }
              if (!worker) {
                  jk_log(logger, JK_LOG_DEBUG, 
                         "In HttpFilterProc test Default redirection of %s\n", 
                         uri);
  //                worker = map_uri_to_worker(uw_map, uri, logger);
              }
  
              if (worker) {
                  char *forwardURI;
  
                  /* This is a servlet, should redirect ... */
                  jk_log(logger, JK_LOG_DEBUG, 
                         "HttpFilterProc [%s] is a servlet url - should redirect to 
%s\n", 
                         uri, worker);
                  
                  /* get URI we should forward */
                  if (uri_select_option == URI_SELECT_OPT_UNPARSED) {
                      /* get original unparsed URI */
                      GetHeader(pfc, "url", (LPVOID)uri, (LPDWORD)&sz);
                      /* restore terminator for uri portion */
                      if (query)
                          *(query - 1) = '\0';
                      jk_log(logger, JK_LOG_DEBUG, 
                             "HttpFilterProc fowarding original URI [%s]\n",uri);
                      forwardURI = uri;
                  } else if (uri_select_option == URI_SELECT_OPT_ESCAPED) {
                      if (!escape_url(uri,snuri,INTERNET_MAX_URL_LENGTH)) {
                          jk_log(logger, JK_LOG_ERROR, 
                                 "HttpFilterProc [%s] re-encoding request exceeds 
maximum buffer size.\n", 
                                 uri);
                          write_error_response(pfc,"400 Bad Request",
                                  "<HTML><BODY><H1>Request contains too many 
characters that need to be encoded.</H1></BODY></HTML>");
                          return SF_STATUS_REQ_FINISHED;
                      }
                      jk_log(logger, JK_LOG_DEBUG, 
                             "HttpFilterProc fowarding escaped URI [%s]\n",snuri);
                      forwardURI = snuri;
                  } else {
                      forwardURI = uri;
                  }
  
                  if(!AddHeader(pfc, URI_HEADER_NAME, forwardURI) || 
                     ( (query != NULL && strlen(query) > 0)
                             ? !AddHeader(pfc, QUERY_HEADER_NAME, query) : FALSE ) || 
                     !AddHeader(pfc, WORKER_HEADER_NAME, worker) ||
                     !SetHeader(pfc, "url", extension_uri)) {
                      jk_log(logger, JK_LOG_ERROR, 
                             "HttpFilterProc error while adding request headers\n");
                      return SF_STATUS_REQ_ERROR;
                  }
                                
                  /* Move Translate: header to a temporary header so
                   * that the extension proc will be called.
                   * This allows the servlet to handle 'Translate: f'.
                   */
                  if(GetHeader(pfc, "Translate:", (LPVOID)Translate, 
(LPDWORD)&szTranslate) &&
                      Translate != NULL && szTranslate > 0) {
                      if (!AddHeader(pfc, TOMCAT_TRANSLATE_HEADER_NAME, Translate)) {
                          jk_log(logger, JK_LOG_ERROR, 
                            "HttpFilterProc error while adding Tomcat-Translate 
headers\n");
                          return SF_STATUS_REQ_ERROR;
                      }
                  SetHeader(pfc, "Translate:", NULL);
                  }
              } else {
                  jk_log(logger, JK_LOG_DEBUG, 
                         "HttpFilterProc [%s] is not a servlet url\n", 
                         uri);
              }
  
              /*
               * Check if somebody is feading us with his own TOMCAT data headers.
               * We reject such postings !
               */
              jk_log(logger, JK_LOG_DEBUG, 
                     "HttpFilterProc check if [%s] is points to the web-inf 
directory\n", 
                     uri);
  
              if(uri_is_web_inf(uri)) {
                  jk_log(logger, JK_LOG_EMERG, 
                         "HttpFilterProc [%s] points to the web-inf or meta-inf 
directory.\nSomebody try to hack into the site!!!\n", 
                         uri);
  
                  write_error_response(pfc,"403 Forbidden",
                          "<HTML><BODY><H1>Access is Forbidden</H1></BODY></HTML>");
                  return SF_STATUS_REQ_FINISHED;
              }
          }
      }
      return SF_STATUS_REQ_NEXT_NOTIFICATION;
  }
  
  
  BOOL WINAPI GetExtensionVersion(HSE_VERSION_INFO  *pVer)
  {
      pVer->dwExtensionVersion = MAKELONG( HSE_VERSION_MINOR,
                                           HSE_VERSION_MAJOR );
  
      strcpy(pVer->lpszExtensionDesc, VERSION_STRING);
  
  
      if (!is_inited) {
          return initialize_extension();
      }
  
      return TRUE;
  }
  
  DWORD WINAPI HttpExtensionProc(LPEXTENSION_CONTROL_BLOCK  lpEcb)
  {   
      DWORD rc = HSE_STATUS_ERROR;
        struct jk_env *env;
      lpEcb->dwHttpStatusCode = HTTP_STATUS_SERVER_ERROR;
  
      jk_log(logger, JK_LOG_DEBUG, 
             "HttpExtensionProc started\n");
  
        /* Initialise jk */
        if (is_inited && !is_mapread) {
                char serverName[MAX_SERVERNAME];
                DWORD dwLen = sizeof(serverName);
                if (lpEcb->GetServerVariable(lpEcb->ConnID, SERVER_NAME, serverName, 
&dwLen)){
                        if (dwLen > 0) serverName[dwLen-1] = '\0';
                        if (init_jk(serverName))
                                is_mapread = JK_TRUE;
                }
                if (!is_mapread)
                        is_inited = JK_FALSE;
        }
  
        if (is_inited) {
          isapi_private_data_t private_data;
          jk_ws_service_t s;
          jk_pool_atom_t buf[SMALL_POOL_SIZE];
          char *worker_name;
  
  //        jk_init_ws_service(&s);
  //        jk_open_pool(&private_data.p, buf, sizeof(buf));
  
          private_data.request_started = JK_FALSE;
          private_data.bytes_read_so_far = 0;
          private_data.lpEcb = lpEcb;
  
          s.ws_private = &private_data;
          s.pool = &private_data.p;
  /*
          if (init_ws_service(env,&private_data, &s, &worker_name)) {
              jk_worker_t *worker = wc_get_worker_for_name(worker_name, logger);
  
              jk_log(logger, JK_LOG_DEBUG, 
                     "HttpExtensionProc %s a worker for name %s\n", 
                     worker ? "got" : "could not get",
                     worker_name);
  
              if (worker) {
                  jk_endpoint_t *e = NULL;
                  if 
(e=(jk_endpoint_t*)worker->endpointCache->get(env,worker->endpointCache)) {
                      int recover = JK_FALSE;
                      if (e->service(e, &s, logger, &recover)) {
                          rc = HSE_STATUS_SUCCESS_AND_KEEP_CONN;
                          lpEcb->dwHttpStatusCode = HTTP_STATUS_OK;
                          jk_log(logger, JK_LOG_DEBUG, 
                                 "HttpExtensionProc service() returned OK\n");
                      } else {
                          jk_log(logger, JK_LOG_ERROR, 
                                 "HttpExtensionProc error, service() failed\n");
                      }
                      e->done(&e, logger);
                  }
              } else {
                  jk_log(logger, JK_LOG_ERROR, 
                         "HttpExtensionProc error, could not get a worker for name 
%s\n",
                         worker_name);
              }
          }
          jk_close_pool(&private_data.p);     
  */
      } else {
          jk_log(logger, JK_LOG_ERROR, 
                 "HttpExtensionProc error, not initialized\n");
      }
      return rc;
  }
  
      
  
  BOOL WINAPI TerminateExtension(DWORD dwFlags) 
  {
      return TerminateFilter(dwFlags);
  }
  
  BOOL WINAPI TerminateFilter(DWORD dwFlags) 
  {
      if (is_inited) {
          is_inited = JK_FALSE;
  
  /*
                if (is_mapread) {
                        uri_worker_map_free(&uw_map, logger);
                        is_mapread = JK_FALSE;
                }
          wc_close(logger);
          if (logger) {
              jk_close_file_logger(&logger);
          }
  */
      }
      
      return TRUE;
  }
  
  
  BOOL WINAPI DllMain(HINSTANCE hInst,        // Instance Handle of the DLL
                      ULONG ulReason,         // Reason why NT called this DLL
                      LPVOID lpReserved)      // Reserved parameter for future use
  {
      BOOL fReturn = TRUE;
      char drive[_MAX_DRIVE];
      char dir[_MAX_DIR];
      char fname[_MAX_FNAME];
      char file_name[_MAX_PATH];
  
      switch (ulReason) {
          case DLL_PROCESS_DETACH:
              __try {
                  TerminateFilter(HSE_TERM_MUST_UNLOAD);
              } __except(1) {
              }
          break;
  
          default:
          break;
      } 
      if (GetModuleFileName( hInst, file_name, sizeof(file_name))) {
          _splitpath( file_name, drive, dir, fname, NULL );
          _makepath( ini_file_name, drive, dir, fname, ".properties" );
      } else {
          fReturn = JK_FALSE;
      }
  
      return fReturn;
  }
  
  static int init_jk(char *serverName)
  {
      int rc = JK_FALSE;  
      jk_map_t *map;
  
      if (!jk_open_file_logger(&logger, log_file, log_level)) {
          logger = NULL;
      }
      /* Logging the initialization type: registry or properties file in virtual dir
      */
      if (using_ini_file) {
          jk_log(logger, JK_LOG_DEBUG, "Using ini file %s.\n", ini_file_name);
      } else {
          jk_log(logger, JK_LOG_DEBUG, "Using registry.\n");
      }
      jk_log(logger, JK_LOG_DEBUG, "Using log file %s.\n", log_file);
      jk_log(logger, JK_LOG_DEBUG, "Using log level %d.\n", log_level);
      jk_log(logger, JK_LOG_DEBUG, "Using extension uri %s.\n", extension_uri);
      jk_log(logger, JK_LOG_DEBUG, "Using worker file %s.\n", worker_file);
      jk_log(logger, JK_LOG_DEBUG, "Using worker mount file %s.\n", worker_mount_file);
      jk_log(logger, JK_LOG_DEBUG, "Using uri select %d.\n", uri_select_option);
  /*
      if (map_alloc(&map)) {
          if (map_read_properties(map, worker_mount_file)) {
              jk_map_t *map2;
              if (map_alloc(&map2)) {
                  int sz,i;
                  void* old;
  
                  sz = map_size(map);
                  for(i = 0; i < sz ; i++) {
                      char *name = map_name_at(map, i);
                      if ('/' == *name) {
                          map_put(map2, name, map_value_at(map, i), &old);
                      } else {
                          jk_log(logger, JK_LOG_DEBUG,
                                 "Ignoring worker mount file entry %s=%s.\n",
                                 name, map_value_at(map, i));
                      }
                  }
  
                  if (uri_worker_map_alloc(&uw_map, map2, logger)) {
                      rc = JK_TRUE;
                  }
  
                  map_free(&map2);
              }
          } else {
              jk_log(logger, JK_LOG_EMERG, 
                      "Unable to read worker mount file %s.\n", 
                      worker_mount_file);
          }
          map_free(&map);
      }
      if (rc) {
          rc = JK_FALSE;
          if (map_alloc(&map)) {
              if (map_read_properties(map, worker_file)) {
  
                  worker_env.uri_to_worker = uw_map;
                  worker_env.server_name = serverName;
  
                  if (wc_open(map, &worker_env, logger)) {
                      rc = JK_TRUE;
                  }
              } else {
                  jk_log(logger, JK_LOG_EMERG, 
                          "Unable to read worker file %s.\n", 
                          worker_file);
              }
              map_free(&map);
          }
      }
  */
  
      return rc;
  }
  
  static int initialize_extension(void)
  {
  
      if (read_registry_init_data()) {
          is_inited = JK_TRUE;
      }
      return is_inited;
  }
  
  int parse_uri_select(const char *uri_select)
  {
      if(0 == strcasecmp(uri_select, URI_SELECT_PARSED_VERB)) {
          return URI_SELECT_OPT_PARSED;
      }
  
      if(0 == strcasecmp(uri_select, URI_SELECT_UNPARSED_VERB)) {
          return URI_SELECT_OPT_UNPARSED;
      }
  
      if(0 == strcasecmp(uri_select, URI_SELECT_ESCAPED_VERB)) {
          return URI_SELECT_OPT_ESCAPED;
      }
  
      return -1;
  }
  
  static int read_registry_init_data(void)
  {
      char tmpbuf[INTERNET_MAX_URL_LENGTH];
      HKEY hkey;
      long rc;
      int  ok = JK_TRUE;
      char *tmp;
      jk_map_t *map;
  
      if (map_alloc(&map)) {
          if (map_read_properties(map, ini_file_name)) {
              using_ini_file = JK_TRUE;
                }
      }
      if (using_ini_file) {
          tmp = map_get_string(map, JK_LOG_FILE_TAG, NULL);
          if (tmp) {
              strcpy(log_file, tmp);
          } else {
              ok = JK_FALSE;
          }
          tmp = map_get_string(map, JK_LOG_LEVEL_TAG, NULL);
          if (tmp) {
              log_level = jk_parse_log_level(tmp);
          } else {
              ok = JK_FALSE;
          }
          tmp = map_get_string(map, EXTENSION_URI_TAG, NULL);
          if (tmp) {
              strcpy(extension_uri, tmp);
          } else {
              ok = JK_FALSE;
          }
          tmp = map_get_string(map, JK_WORKER_FILE_TAG, NULL);
          if (tmp) {
              strcpy(worker_file, tmp);
          } else {
              ok = JK_FALSE;
          }
          tmp = map_get_string(map, JK_MOUNT_FILE_TAG, NULL);
          if (tmp) {
              strcpy(worker_mount_file, tmp);
          } else {
              ok = JK_FALSE;
          }
          tmp = map_get_string(map, URI_SELECT_TAG, NULL);
          if (tmp) {
              int opt = parse_uri_select(tmp);
              if (opt >= 0) {
                  uri_select_option = opt;
              } else {
                  ok = JK_FALSE;
              }
          }
      
      } else {
          rc = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
                            REGISTRY_LOCATION,
                            (DWORD)0,
                            KEY_READ,
                            &hkey);
          if(ERROR_SUCCESS != rc) {
              return JK_FALSE;
          } 
  
          if(get_registry_config_parameter(hkey,
                                           JK_LOG_FILE_TAG, 
                                           tmpbuf,
                                           sizeof(log_file))) {
              strcpy(log_file, tmpbuf);
          } else {
              ok = JK_FALSE;
          }
      
          if(get_registry_config_parameter(hkey,
                                           JK_LOG_LEVEL_TAG,
                                           tmpbuf,
                                           sizeof(tmpbuf))) {
              log_level = jk_parse_log_level(tmpbuf);
          } else {
              ok = JK_FALSE;
          }
  
          if(get_registry_config_parameter(hkey,
                                           EXTENSION_URI_TAG,
                                           tmpbuf,
                                           sizeof(extension_uri))) {
              strcpy(extension_uri, tmpbuf);
          } else {
              ok = JK_FALSE;
          }
  
          if(get_registry_config_parameter(hkey,
                                           JK_WORKER_FILE_TAG,
                                           tmpbuf,
                                           sizeof(worker_file))) {
              strcpy(worker_file, tmpbuf);
          } else {
              ok = JK_FALSE;
          }
  
          if(get_registry_config_parameter(hkey,
                                           JK_MOUNT_FILE_TAG,
                                           tmpbuf,
                                           sizeof(worker_mount_file))) {
              strcpy(worker_mount_file, tmpbuf);
          } else {
              ok = JK_FALSE;
          }
  
          if(get_registry_config_parameter(hkey,
                                           URI_SELECT_TAG, 
                                           tmpbuf,
                                           sizeof(tmpbuf))) {
              int opt = parse_uri_select(tmpbuf);
              if (opt >= 0) {
                  uri_select_option = opt;
              } else {
                  ok = JK_FALSE;
              }
          }
  
          RegCloseKey(hkey);
      }    
      return ok;
  } 
  
  static int get_registry_config_parameter(HKEY hkey,
                                           const char *tag, 
                                           char *b,
                                           DWORD sz)
  {   
      DWORD type = 0;
      LONG  lrc;
  
      lrc = RegQueryValueEx(hkey,     
                            tag,      
                            (LPDWORD)0,
                            &type,    
                            (LPBYTE)b,
                            &sz); 
      if ((ERROR_SUCCESS != lrc) || (type != REG_SZ)) {
          return JK_FALSE;        
      }
      
      b[sz] = '\0';
  
      return JK_TRUE;     
  }
  
  
  
  /** Basic initialization for jk2.
   */
  static void jk2_create_workerEnv(apr_pool_t *p, server_rec *s) {
      jk_env_t *env;
      jk_logger_t *l;
      jk_pool_t *globalPool;
      jk_bean_t *jkb;
      
      /** First create a pool. Compile time option
       */
  #ifdef NO_APACHE_POOL
      jk2_pool_create( NULL, &globalPool, NULL, 2048 );
  #else
      jk2_pool_apr_create( NULL, &globalPool, NULL, p );
  #endif
  
      /** Create the global environment. This will register the default
          factories
      */
      env=jk2_env_getEnv( NULL, globalPool );
  
      /* Optional. Register more factories ( or replace existing ones ) */
      /* Init the environment. */
      
      /* Create the logger */
  #ifdef NO_APACHE_LOGGER
      jkb=env->createBean2( env, env->globalPool, "logger.file", "");
      env->alias( env, "logger.file:", "logger");
      l = jkb->object;
  #else
      env->registerFactory( env, "logger.apache2",    jk2_logger_apache2_factory );
      jkb=env->createBean2( env, env->globalPool, "logger.apache2", "");
      env->alias( env, "logger.apache2:", "logger");
      l = jkb->object;
      l->logger_private=s;
  #endif
      
      env->l=l;
      
      /* We should make it relative to JK_HOME or absolute path.
         ap_server_root_relative(cmd->pool,opt); */
      
      /* Create the workerEnv */
      jkb=env->createBean2( env, env->globalPool,"workerEnv", "");
      workerEnv= jkb->object;
      env->alias( env, "workerEnv:" , "workerEnv");
      
      if( workerEnv==NULL ) {
          env->l->jkLog(env, env->l, JK_LOG_ERROR, "Error creating workerEnv\n");
          return;
      }
  
      workerEnv->initData->add( env, workerEnv->initData, "serverRoot",
                                workerEnv->pool->pstrdup( env, workerEnv->pool, 
ap_server_root));
      env->l->jkLog(env, env->l, JK_LOG_ERROR, "Set serverRoot %s\n", ap_server_root);
      
      /* Local initialization */
      workerEnv->_private = s;
  }
  
  static void *jk2_create_config(apr_pool_t *p, server_rec *s)
  {
      jk_uriEnv_t *newUri;
      jk_bean_t *jkb;
  
      if(  workerEnv==NULL ) {
          jk2_create_workerEnv(p, s );
      }
      if( s->is_virtual == 1 ) {
          /* Virtual host */
          fprintf( stderr, "Create config for virtual host\n");
      } else {
          /* Default host */
          fprintf( stderr, "Create config for main host\n");        
      }
  
      jkb = workerEnv->globalEnv->createBean2( workerEnv->globalEnv,
                                               workerEnv->pool,
                                               "uri", NULL );
     newUri=jkb->object;
     
     newUri->workerEnv=workerEnv;
      
     return newUri;
  }
  
  
  

--
To unsubscribe, e-mail:   <mailto:[EMAIL PROTECTED]>
For additional commands, e-mail: <mailto:[EMAIL PROTECTED]>

Reply via email to