| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | |
#include <module.h>
|
| e793be | 1999-10-10 | Per Hedbor | | #include <stat.h>
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | |
inherit "module";
|
| 29c8dd | 1999-12-28 | Martin Nilsson | | constant cvs_version = "$Id: pathinfo.pike,v 1.8 1999/12/28 03:46:41 nilsson Exp $";
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | constant thread_safe = 1;
|
| 29c8dd | 1999-12-28 | Martin Nilsson | | #ifdef PATHINFO_DEBUG
# define PATHINFO_WERR(X) werror("PATHINFO: "+X+"\n");
#else
# define PATHINFO_WERR(X)
#endif
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | array register_module()
{
return ({ MODULE_LAST, "PATH_INFO support",
"Support for PATH_INFO style URLs.",
0, 1 });
}
mapping|int last_resort(object id)
{
|
| 29c8dd | 1999-12-28 | Martin Nilsson | | PATHINFO_WERR(sprintf("Checking %O...", id->not_query));
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | if (id->misc->path_info) {
|
| 29c8dd | 1999-12-28 | Martin Nilsson | | PATHINFO_WERR(sprintf("Been here, done that."));
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | 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;
|
| 29c8dd | 1999-12-28 | Martin Nilsson | | PATHINFO_WERR(sprintf("Trying: %O (%O)", query, pi));
|
| 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;
|
| 29c8dd | 1999-12-28 | Martin Nilsson | | PATHINFO_WERR(sprintf("Found: %O:%O",
id->not_query, id->misc->path_info));
|
| 7ae17d | 1999-10-04 | Per Hedbor | | return 1;
}
}
|
| 5a31bd | 1998-10-02 | Henrik Grubbström (Grubba) | | return 0;
}
|