Roxen.git/ server/ base_server/ configuration.pike

1997-10-20

1997-10-20 15:17:00 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a476718d0aed0c623fe7ad207a7ef623d49e839f (62 lines) (+34/-28) ^{[ Show | Annotate ]}
  Branch: 5.2

find_dir_stat() now returns a mapping(string:array(mixed)).

Rev: server/base_server/configuration.pike:1.83
Rev: server/base_server/module.pike:1.25
Rev: server/protocols/ftp.pike:1.66

1: - string cvs_version = "$Id: configuration.pike,v 1.82 1997/10/12 21:08:42 grubba Exp $"; + string cvs_version = "$Id: configuration.pike,v 1.83 1997/10/20 15:16:59 grubba Exp $";   #include <module.h>   #include <roxen.h>   /* A configuration.. */
1170:    {    loc = tmp[0];    -  if(!search(file, loc)) -  { +  if(!search(file, loc)) { +  /* file == loc + subpath */   #ifdef MODULE_LEVEL_SECURITY    if(check_security(tmp[1], id)) continue;   #endif    if(d=function_object(tmp[1])->find_dir(file[strlen(loc)..], id))    dir |= d; -  } else { -  if(search(loc, file)==0 && loc[strlen(file)-1]=='/' -  && (loc[0]==loc[-1]) && loc[-1]=='/' && -  sizeof(function_object(tmp[1])->find_dir("", id)||({}))) -  { +  } else if((search(loc, file)==0) && (loc[strlen(file)-1]=='/') && +  (loc[0]==loc[-1]) && (loc[-1]=='/') && +  (sizeof(function_object(tmp[1])->find_dir("", id) || ({})))) { +  /* loc == file + "/" + subpath + "/" +  * and find_dir() returns a non-empty directory. +  */    loc=loc[strlen(file)..];    sscanf(loc, "%s/", loc);    dir += ({ loc });    }    } -  } +     if(sizeof(dir))    return dir;   }
1258:    }   }    - public array(array(mixed)) find_dir_stat(string file, object id) + public mapping(string:array(mixed)) find_dir_stat(string file, object id)   {    string loc; -  array(array(mixed)) dir = ({ }); -  array(mixed) d, tmp; +  mapping(string:array(mixed)) dir = ([]); +  mixed d, tmp;       file=replace(file, "//", "/");   
1313:    {    loc = tmp[0];    +  /* Note that only new entries are added. */    if(!search(file, loc))    { -  +  /* file == loc + subpath */   #ifdef MODULE_LEVEL_SECURITY    if(check_security(tmp[1], id)) continue;   #endif
1322:    string f = file[strlen(loc)..];    if (c->find_dir_stat) {    if (d = c->find_dir_stat(f, id)) { -  dir |= d; +  dir = d | dir;    }    } else if(d = c->find_dir(f, id)) { -  dir |= map(d, lambda(string f, string base, object c, object id) { -  return(({ f, c->stat_file(base + f, id) })); -  }, f, c, id); +  dir = mkmapping(d, map(d, lambda(string f, string base, +  object c, object id) { +  return(c->stat_file(base + f, id)); +  }, f, c, id)) | dir;    } -  } else { -  if(search(loc, file)==0 && loc[strlen(file)-1]=='/' -  && (loc[0]==loc[-1]) && loc[-1]=='/' && -  sizeof(function_object(tmp[1])->find_dir("", id)||({}))) -  { +  } else if(search(loc, file)==0 && loc[strlen(file)-1]=='/' && +  (loc[0]==loc[-1]) && loc[-1]=='/' && +  sizeof(function_object(tmp[1])->find_dir("", id)||({}))) { +  /* loc == file + "/" + subpath + "/" +  * and find_dir() returns a non-empty directory. +  */    loc=loc[strlen(file)..];    sscanf(loc, "%s/", loc); -  dir += ({ ({ loc, ({ 0775, -3, 0, 0, 0, 0, 0, 0, 0, 0, 0 }) }) }); +  if (!dir[loc]) { +  dir[loc] = ({ 0775, -3, 0, 0, 0, 0, 0, 0, 0, 0, 0 });    }    }    }