|
|
|
|
|
|
|
|
#include <module.h> |
|
inherit "module"; |
|
constant cvs_version = "$Id: pathinfo.pike,v 1.4 1999/10/04 15:00:28 per Exp $"; |
constant thread_safe = 1; |
|
|
|
array register_module() |
{ |
return ({ MODULE_LAST, "PATH_INFO support", |
"Support for PATH_INFO style URLs.", |
0, 1 }); |
} |
|
mapping|int last_resort(object id) |
{ |
#ifdef PATHINFO_DEBUG |
roxen_perror(sprintf("PATHINFO: Checking %O...\n", id->not_query)); |
#endif /* PATHINFO_DEBUG */ |
if (id->misc->path_info) { |
|
#ifdef PATHINFO_DEBUG |
roxen_perror(sprintf("PATHINFO: Been here, done that.\n")); |
#endif /* PATHINFO_DEBUG */ |
return 0; |
} |
|
string query = id->not_query; |
#if 0 |
array(int) offsets = Array.map(query/"/", sizeof); |
|
int sum = 0; |
int i; |
for (i=0; i < sizeof(offsets); i++) { |
sum = (offsets[i] += sum) + 1; |
} |
|
int lo = (offsets[0] != 0); |
int hi = sizeof(offsets) - 1; |
|
while(lo <= hi) { |
int probe = (lo + hi)/2; |
string file = query[..offsets[probe]-1]; |
|
#ifdef PATHINFO_DEBUG |
roxen_perror(sprintf("PATHINFO: Trying %O...\n", file)); |
#endif /* PATHINFO_DEBUG */ |
|
|
array st = id->conf->stat_file(file, id); |
if (st) { |
if (st[1] >= 0) { |
|
id->misc->path_info = query[offsets[probe]..]; |
id->not_query = file; |
#ifdef PATHINFO_DEBUG |
roxen_perror(sprintf("PATHINFO: Found: %O:%O\n", |
id->not_query, id->misc->path_info)); |
#endif /* PATHINFO_DEBUG */ |
return 1; |
} |
#ifdef PATHINFO_DEBUG |
roxen_perror(sprintf("PATHINFO: Directory: %O\n", file)); |
#endif /* PATHINFO_DEBUG */ |
|
id->misc->path_info = query[offsets[probe]+1..]; |
id->not_query = file+"/"; |
return 1; |
lo = probe + 1; |
} else { |
hi = probe - 1; |
} |
} |
#else /* Slower, but it works... */ |
string pi = ""; |
while( (search( query, "/" ) != -1) && strlen( query ) > 0 ) |
{ |
query = reverse(query); |
string add_path_info; |
sscanf( query, "%[^/]/%s", add_path_info, query ); |
query = reverse( query ); |
if( strlen( pi ) ) |
pi = "/"+reverse( add_path_info )+pi; |
else |
pi = "/"+add_path_info; |
id->misc->path_info = pi; |
array st = id->conf->stat_file( query, id ); |
if( st ) |
{ |
id->not_query = query; |
return 1; |
} |
} |
#endif |
return 0; |
} |
|
|