File: Redirect.pm

package info (click to toggle)
libapache-authenhook-perl 2.00-04%2Bpristine-5
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 224 kB
  • ctags: 17
  • sloc: perl: 182; makefile: 12
file content (14 lines) | stat: -rw-r--r-- 231 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
package My::Redirect;

use Apache2::RequestRec ();
use Apache2::SubRequest ();

use Apache2::Const -compile => qw(OK);

use strict;

sub handler {
  shift->internal_redirect('/digest/index.html');
  return Apache2::Const::OK;
}
1;