granicus.if.org Git - apache/blob - os/os2/util_os2.c

   1 /* ====================================================================
   2  * The Apache Software License, Version 1.1
   3  *
   4  * Copyright (c) 2000 The Apache Software Foundation.  All rights
   5  * reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  *
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  *
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in
  16  *    the documentation and/or other materials provided with the
  17  *    distribution.
  18  *
  19  * 3. The end-user documentation included with the redistribution,
  20  *    if any, must include the following acknowledgment:
  21  *       "This product includes software developed by the
  22  *        Apache Software Foundation (http://www.apache.org/)."
  23  *    Alternately, this acknowledgment may appear in the software itself,
  24  *    if and wherever such third-party acknowledgments normally appear.
  25  *
  26  * 4. The names "Apache" and "Apache Software Foundation" must
  27  *    not be used to endorse or promote products derived from this
  28  *    software without prior written permission. For written
  29  *    permission, please contact apache@apache.org.
  30  *
  31  * 5. Products derived from this software may not be called "Apache",
  32  *    nor may "Apache" appear in their name, without prior written
  33  *    permission of the Apache Software Foundation.
  34  *
  35  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
  36  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  37  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  38  * DISCLAIMED.  IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
  39  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  40  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  41  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
  42  * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  43  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  44  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
  45  * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  46  * SUCH DAMAGE.
  47  * ====================================================================
  48  *
  49  * This software consists of voluntary contributions made by many
  50  * individuals on behalf of the Apache Software Foundation.  For more
  51  * information on the Apache Software Foundation, please see
  52  * <http://www.apache.org/>.
  53  *
  54  * Portions of this software are based upon public domain software
  55  * originally written at the National Center for Supercomputing Applications,
  56  * University of Illinois, Urbana-Champaign.
  57  */
  58
  59 #define INCL_DOS
  60 #define INCL_DOSERRORS
  61 #include <os2.h>
  62 #include "ap_config.h"
  63 #include "httpd.h"
  64 #include "http_log.h"
  65 #include "os.h"
  66 #include <sys/time.h>
  67 #include <sys/signal.h>
  68 #include <ctype.h>
  69 #include <string.h>
  70
  71
  72 AP_DECLARE(char *)ap_os_case_canonical_filename(apr_pool_t *pPool, const char *szFile)
  73 {
  74     char buf[HUGE_STRING_LEN];
  75     char buf2[HUGE_STRING_LEN];
  76     int rc, len;
  77     char *pos;
  78
  79 /* Remove trailing slash unless it's a root directory */
  80     strcpy(buf, szFile);
  81     len = strlen(buf);
  82
  83     if (len > 3 && buf[len-1] == '/')
  84         buf[--len] = 0;
  85
  86     rc = DosQueryPathInfo(buf, FIL_QUERYFULLNAME, buf2, HUGE_STRING_LEN);
  87
  88     if (rc) {
  89         if (rc != ERROR_INVALID_NAME) {
  90             ap_log_error(APLOG_MARK, APLOG_ERR, APR_OS2_STATUS(rc), NULL, "for file [%s]", szFile);
  91         }
  92         apr_cpystrn(buf2, buf, sizeof(buf2));
  93     }
  94
  95 /* Switch backslashes to forward */
  96     for (pos=buf2; *pos; pos++)
  97         if (*pos == '\\')
  98             *pos = '/';
  99
 100     return apr_pstrdup(pPool, buf2);
 101 }
 102
 103
 104
 105 static void fix_component(char *path, char *lastcomp)
 106 {
 107     FILEFINDBUF3 fb3;
 108     HDIR hDir = HDIR_CREATE;
 109     ULONG numNames = 1;
 110     ULONG rc = DosFindFirst( (UCHAR *)path, &hDir, FILE_NORMAL|FILE_DIRECTORY, &fb3, sizeof(fb3), &numNames, FIL_STANDARD );
 111
 112     if (rc == 0)
 113         strcpy(lastcomp, fb3.achName);
 114
 115     DosFindClose(hDir);
 116 }
 117
 118
 119
 120 char *ap_os_systemcase_canonical_filename(apr_pool_t *pPool, const char *szFile)
 121 {
 122     char *szCanonicalFile = ap_os_case_canonical_filename(pPool, szFile);
 123     int startslash = 2, slashnum=0;
 124     char *pos, *prevslash = NULL;
 125
 126     if (szCanonicalFile[0] == '/' && szCanonicalFile[1] == '/') /* a UNC name */
 127         startslash = 5;
 128
 129     for (pos = szCanonicalFile; *pos; pos++) {
 130         if (*pos == '/') {
 131             slashnum++;
 132             if (slashnum >= startslash) {
 133                 *pos = 0;
 134                 fix_component(szCanonicalFile, prevslash+1);
 135                 *pos = '/';
 136             }
 137             prevslash = pos;
 138         }
 139     }
 140
 141     if (slashnum >= startslash) {
 142         fix_component(szCanonicalFile, prevslash+1);
 143     }
 144
 145     return szCanonicalFile;
 146 }
 147
 148
 149
 150 char *ap_os_canonical_filename(apr_pool_t *pPool, const char *szFile)
 151 {
 152     char *szCanonicalFile;
 153     const unsigned char *pos = szFile;
 154
 155     /* Find any 8 bit characters */
 156     while (*pos && *pos < 128) {
 157         pos++;
 158     }
 159
 160     /* Only use the very expensive ap_os_systemcase_canonical_filename() if
 161      * the file name contains non-english characters as they are the only type
 162      * that can't be made canonical with a simple strlwr()
 163      */
 164     if (*pos < 128) {
 165         szCanonicalFile = ap_os_case_canonical_filename(pPool, szFile);
 166     } else {
 167         szCanonicalFile = ap_os_systemcase_canonical_filename(pPool, szFile);
 168     }
 169
 170     strlwr(szCanonicalFile);
 171     return szCanonicalFile;
 172 }
 173
 174 AP_DECLARE(apr_status_t) ap_os_create_privileged_process(
 175     const request_rec *r,
 176     apr_proc_t *newproc, const char *progname,
 177     const char * const *args,
 178     const char * const *env,
 179     apr_procattr_t *attr, apr_pool_t *p)
 180 {
 181     return apr_create_process(newproc, progname, args, env, attr, p);
 182 }