src/server/safs/pcheck.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
 *
 * THE BSD LICENSE
 *
 * Redistribution and use in source and binary forms, with or without 
 * modification, are permitted provided that the following conditions are met:
 *
 * Redistributions of source code must retain the above copyright notice, this
 * list of conditions and the following disclaimer. 
 * 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. 
 *
 * Neither the name of the  nor the names of its contributors may be
 * used to endorse or promote products derived from this software without 
 * specific prior written permission. 
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS 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 COPYRIGHT OWNER 
 * OR 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.
 */

/*
 * open web server code from safs/pcheck.cpp
 */

#include "pcheck.h"

#include "../util/pblock.h"

/* --------------------------- pcheck_find_path --------------------------- */


/*
 * Takes a given path, and figures out if there is any path_info attached.
 * If no explicit path_info was provided by nametrans, and the file doesn't 
 * exist as specified, it tries to find it by groping through the filesystem.
 * 
 * This type of implicit path_info cannot be attached to directories. Such
 * a request will be flagged as not found.
 * 
 * pb unused.
 */

static char* find_param(char *uri, char *param)
{
    // Find ;parameters on the end of uri
    if (param > uri) {
        if (*param == FILE_PATHSEP) {
            --param;
        }
        while (param > uri && *param != FILE_PATHSEP && *param != ';') {
            --param;
        }
        if (*param == ';') {
            return param;
        }
    }

    return NULL;
}

static PRBool set_path_info(Request *rq, char *uri, int path_info_depth)
{
    // Find trailing path components in uri, e.g. the "/baz;qux/quux" in
    // "/cgi-bin/foo.pl;bar/baz;qux/quux" (here path_info_depth would be 2)
    char *path_info = &uri[strlen(uri)];
    while (path_info > uri && path_info_depth) {
        --path_info;
        if (*path_info == FILE_PATHSEP) {
            --path_info_depth;
        }
    }

    if (*path_info) {
        pblock_nvinsert("path-info", path_info, rq->vars);
        return PR_TRUE;
    }

    return PR_FALSE;
}

int pcheck_find_path(pblock *pb, Session *sn, Request *rq) 
{
    char *path = pblock_findkeyval (pb_key_path, rq -> vars);
    char *path_info   = pblock_findkeyval (pb_key_path_info  , rq -> vars);
    char *script_name = pblock_findkeyval (pb_key_script_name, rq -> vars);
    //NSFCFileInfo *finfo = NULL;
    struct stat *finfo;

    rq->directive_is_cacheable = 1;

    if (path_info != NULL || script_name != NULL || path == NULL)
	return REQ_NOACTION;// ruslan: bail out right away for performance (no need to go into file cache)

    if (!*path)
        return REQ_NOACTION;

    /*
    if ((INTrequest_info_path(path, rq, NULL) == PR_SUCCESS))
        return REQ_NOACTION;
    */

    rq->directive_is_cacheable = 0;

    path_info = &path[strlen(path) - 1];

    char *forward = pblock_findkeyval(pb_key_find_pathinfo_forward, rq->vars);
    char *base = NULL;
    if (forward) {
        base   = pblock_findval("ntrans-base"  , rq -> vars);
        if (!base) forward = NULL;
    }

    int path_info_depth = 0;
    
    if(!forward) {
        while (1) {
            /* Change all occurrences of '/' to FILE_PATHSEP for WIN32 */
            for(  ; path_info != path; --path_info)
                if (*path_info == FILE_PATHSEP)
                    break;
            for(  ; path_info != path; --path_info) {
                ++path_info_depth;
                if (*(path_info - 1) != FILE_PATHSEP)
                    break;
            }

            if (path_info == path)
                break;

            *path_info = '\0';
            //if ((INTrequest_info_path(path, rq, &finfo) == PR_SUCCESS) && finfo) {
            if((finfo = request_stat_path(path, rq)) != NULL) {
                //if (finfo->pr.type != PR_FILE_FILE) {
                if(S_ISDIR(finfo->st_mode)) {
                    *path_info = FILE_PATHSEP;
                    if (set_path_info(rq, pblock_findkeyval(pb_key_uri, rq->reqpb), 0)) {
                        free(finfo);
                        return REQ_PROCEED;
                    }
                    break;
                } else {
                    set_path_info(rq, pblock_findkeyval(pb_key_uri, rq->reqpb), path_info_depth);
                    free(finfo);
                    return REQ_PROCEED;
                }
            } else {
                *path_info-- = FILE_PATHSEP;
            }
        }
        /* This was changed to support virtual documents */
        return REQ_NOACTION;
    } else {
        int baselen = strlen(base);
        if (strncmp(path, base, baselen))
            return REQ_NOACTION;

        path_info = &path[baselen];
        if (*path_info == '/')
            path_info++;

        while (1) {
            for(  ; *path_info; ++path_info)
                if (*path_info == FILE_PATHSEP)
                    break;

            if (!*path_info) {
                if (set_path_info(rq, pblock_findkeyval(pb_key_uri, rq->reqpb), 0)) {
                    return REQ_PROCEED;
                }
                break;
            }

            *path_info = '\0';
            //if ((INTrequest_info_path(path, rq, &finfo) == PR_SUCCESS) && finfo) {
            if((finfo = request_stat_path(path, rq)) != NULL) {
                //if (finfo->pr.type != PR_FILE_FILE) {
                if(S_ISDIR(finfo->st_mode)) {
                    *path_info++ = FILE_PATHSEP;
                } else {
                    char *uri = pblock_findkeyval(pb_key_uri, rq->reqpb);
                    *path_info = FILE_PATHSEP;
    #ifdef XP_WIN32
                    char *unmpath = pblock_findval("unmuri", rq->vars);
                    if (unmpath) {
                        char *nm = &path_info[strlen(path_info)-1];
                        char *unm = &unmpath[strlen(unmpath)-1];
                        while(nm != path_info && unm != unmpath) {
                            if (*nm != *unm) {
                                if (*unm == '\\' && *nm == '/')
                                    *nm = *unm;
                                else
                                    PR_ASSERT(0);
                            }
                            nm--;
                            unm--;
                        }
                        uri = unmpath;
                    }
    #endif
                    char *t = path_info;
                    for(; *t; ++t)
                        if (*t == FILE_PATHSEP)
                            ++path_info_depth;
                    *path_info = '\0';
                    set_path_info(rq, uri, path_info_depth);
                    free(finfo);
                    return REQ_PROCEED;
                }
                free(finfo);
            }
            else {
               *path_info = FILE_PATHSEP;
                break;
            }
        }

        /* This was changed to support virtual documents */
        return REQ_NOACTION;
    }
}