Roxen.git / server / modules / filesystems / filesystem.pike

version» Context lines:

Roxen.git/server/modules/filesystems/filesystem.pike:1:   // This is a roxen module. Copyright © 1996 - 1998, Idonex AB.      // This is a virtual "file-system".   // It will be located somewhere in the name-space of the server.   // Also inherited by some of the other filesystems.      inherit "module";   inherit "roxenlib";   inherit "socket";    - constant cvs_version= "$Id: filesystem.pike,v 1.47 1998/10/18 22:14:40 grubba Exp $"; + constant cvs_version= "$Id: filesystem.pike,v 1.48 1999/01/13 23:25:25 grubba Exp $";   constant thread_safe=1;         #include <module.h>   #include <roxen.h>   #include <stat.h>      #if DEBUG_LEVEL > 20   # ifndef FILESYSTEM_DEBUG   # define FILESYSTEM_DEBUG
Roxen.git/server/modules/filesystems/filesystem.pike:347:    * FIXME: The proper way to do this would probably be to set path info    * here, and have the redirect be done by the extension modules,    * or by the protocol module if there isn't any extension module.    * /grubba 1998-08-26    */    return 0;    /* Do not try redirect on top level directory */    if(sizeof(id->not_query) < 2)    return 0;    redirects++; -  TRACE_LEAVE("Redirecting to \"" + -  id->not_query[..sizeof(id->not_query)-2] + -  "\""); -  return http_redirect(id->not_query[..sizeof(id->not_query)-2], id); +  +  // Note: Keep the query part. +  /* FIXME: Should probably keep prestates etc too. +  * /grubba 1999-01-14 +  */ +  string new_query = id->not_query[..sizeof(id->not_query)-2] + +  (id->query?("?" + id->query):""); +  TRACE_LEAVE("Redirecting to \"" + new_query + "\""); +  return http_redirect(new_query, id);    }       if(!id->misc->internal_get && QUERY(.files)    && (tmp = (id->not_query/"/")[-1])    && tmp[0] == '.') {    TRACE_LEAVE("Is .-file");    return 0;    }   #ifndef THREADS    object privs;