| … | |
… | |
| 87 | # temporary redirect, could be internal, but never is |
87 | # temporary redirect, could be internal, but never is |
| 88 | sub rtemp($) { |
88 | sub rtemp($) { |
| 89 | redirect 302, shift |
89 | redirect 302, shift |
| 90 | } |
90 | } |
| 91 | |
91 | |
|
|
92 | # internal eedirect, TODO |
|
|
93 | sub rint($) { |
|
|
94 | &rtemp |
|
|
95 | } |
|
|
96 | |
| 92 | # serve some path, do not call directly |
97 | # serve some path, do not call directly |
| 93 | sub _rpathname($) { |
98 | sub _rpathname($) { |
| 94 | my $path = shift; |
99 | my $path = shift; |
| 95 | |
100 | |
| 96 | my $finfo = eval { APR::Finfo::stat $path, APR::Const::FINFO_NORM, $req->pool } |
101 | my $finfo = eval { APR::Finfo::stat $path, APR::Const::FINFO_NORM, $req->pool } |
