| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | |
| e793be | 1999-10-10 | Per Hedbor | | * $Id: pathinfo.pike,v 1.6 1999/10/10 19:16:37 per Exp $
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | *
* PATH_INFO support for Roxen.
*
* Henrik Grubbström 1998-10-01
*/
#include <module.h>
|
| e793be | 1999-10-10 | Per Hedbor | | #include <stat.h>
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | |
inherit "module";
|
| e793be | 1999-10-10 | Per Hedbor | | constant cvs_version = "$Id: pathinfo.pike,v 1.6 1999/10/10 19:16:37 per Exp $";
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | 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;
}
|
| b5019b | 1999-03-25 | Kadlecsik Jozsi | |
string query = id->not_query;
|
| 7ae17d | 1999-10-04 | Per Hedbor | | string pi = "";
|
| e793be | 1999-10-10 | Per Hedbor | | while( (search( query[1..], "/" ) != -1) && strlen( query ) > 0 )
|
| 7ae17d | 1999-10-04 | Per Hedbor | | {
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;
|
| e793be | 1999-10-10 | Per Hedbor | | #ifdef PATHINFO_DEBUG
roxen_perror("PATHINFO: Trying: %O (%O)\n", query, pi);
#endif
|
| 7ae17d | 1999-10-04 | Per Hedbor | | array st = id->conf->stat_file( query, id );
|
| e793be | 1999-10-10 | Per Hedbor | | if( st && (st[ ST_SIZE ] > 0))
|
| 7ae17d | 1999-10-04 | Per Hedbor | | {
id->not_query = query;
|
| e793be | 1999-10-10 | Per Hedbor | | #ifdef PATHINFO_DEBUG
roxen_perror("PATHINFO: Found: %O:%O\n",
id->not_query, id->misc->path_info);
#endif
|
| 7ae17d | 1999-10-04 | Per Hedbor | | return 1;
}
}
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | return 0;
}
|