blob: 5b518f85810bcfac7bf8f6af9c1259ad918ab71d [file] [log] [blame]
/* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#define INCL_DOS
#define INCL_DOSERRORS
#include <os2.h>
#include "httpd.h"
#include "http_log.h"
API_EXPORT(char *)ap_os_case_canonical_filename(pool *pPool, const char *szFile)
{
char *buf;
char buf2[CCHMAXPATH];
int rc, len;
char *pos;
/* Remove trailing slash unless it's a root directory */
len = strlen(szFile);
buf = ap_pstrndup(pPool, szFile, len);
if (len > 3 && buf[len-1] == '/')
buf[--len] = 0;
if (buf[0] == '/' && buf[1] == '/') {
/* A UNC path */
if (strchr(buf+2, '/') == NULL) { /* Allow // or //server */
return ap_pstrdup(pPool, buf);
}
}
rc = DosQueryPathInfo(buf, FIL_QUERYFULLNAME, buf2, sizeof(buf2));
if (rc) {
if ( rc != ERROR_INVALID_NAME ) {
ap_log_error(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, NULL, "OS/2 error %d for file %s", rc, szFile);
}
return ap_pstrdup(pPool, szFile);
}
/* Switch backslashes to forward */
for (pos=buf2; *pos; pos++)
if (*pos == '\\')
*pos = '/';
return ap_pstrdup(pPool, buf2);
}
static void fix_component(char *path, char *lastcomp)
{
FILEFINDBUF3 fb3;
HDIR hDir = HDIR_CREATE;
ULONG numNames = 1;
ULONG rc = DosFindFirst( (UCHAR *)path, &hDir, FILE_NORMAL|FILE_DIRECTORY, &fb3, sizeof(fb3), &numNames, FIL_STANDARD );
if (rc == 0)
strcpy(lastcomp, fb3.achName);
DosFindClose(hDir);
}
char *ap_os_systemcase_canonical_filename(pool *pPool, const char *szFile)
{
char *szCanonicalFile = ap_os_case_canonical_filename(pPool, szFile);
int startslash = 2, slashnum=0;
char *pos, *prevslash = NULL;
if (szCanonicalFile[0] == '/' && szCanonicalFile[1] == '/') /* a UNC name */
startslash = 5;
for (pos = szCanonicalFile; *pos; pos++) {
if (*pos == '/') {
slashnum++;
if (slashnum >= startslash) {
*pos = 0;
fix_component(szCanonicalFile, prevslash+1);
*pos = '/';
}
prevslash = pos;
}
}
if (slashnum >= startslash) {
fix_component(szCanonicalFile, prevslash+1);
}
return szCanonicalFile;
}
API_EXPORT(char *)ap_os_canonical_filename(pool *pPool, const char *szFile)
{
char *szCanonicalFile = ap_os_systemcase_canonical_filename(pPool, szFile);
strlwr(szCanonicalFile);
return szCanonicalFile;
}
int ap_os_kill(pid_t pid, int sig)
{
/* SIGTERM's don't work too well in OS/2 (only affects other EMX programs).
CGIs may not be, esp. REXX scripts, so use a native call instead */
int rc;
if ( sig == SIGTERM ) {
rc = DosSendSignalException( pid, XCPT_SIGNAL_BREAK );
if ( rc ) {
errno = ESRCH;
rc = -1;
}
} else {
rc = kill(pid, sig);
}
return rc;
}
char *ap_os_error_message(int err)
{
static char result[200];
char message[HUGE_STRING_LEN];
ULONG len;
char *pos;
int c;
if (DosGetMessage(NULL, 0, message, HUGE_STRING_LEN, err, "OSO001.MSG", &len) == 0) {
len--;
message[len] = 0;
pos = result;
if (len >= sizeof(result))
len = sizeof(result-1);
for (c=0; c<len; c++) {
while (ap_isspace(message[c]) && ap_isspace(message[c+1])) /* skip multiple whitespace */
c++;
*(pos++) = ap_isspace(message[c]) ? ' ' : message[c];
}
*pos = 0;
} else {
sprintf(result, "OS/2 error %d", err);
}
return result;
}