Commit | Line | Data |
b94c4996 |
1 | package RemoteTestEngine; |
a10b2f95 |
2 | BEGIN { |
3 | require Catalyst; |
4 | if ($Catalyst::VERSION >= 5.89000) { |
5 | require Catalyst::Engine; |
6 | @ISA = qw(Catalyst::Engine); |
7 | } else { |
8 | require Catalyst::Engine::CGI; |
9 | @ISA = qw(Catalyst::Engine::CGI); |
10 | } |
11 | } |
b94c4996 |
12 | |
13 | our $REMOTE_USER; |
14 | our $SSL_CLIENT_S_DN; |
15 | |
16 | sub env { |
17 | my $self = shift; |
a10b2f95 |
18 | my %e; |
19 | if ($Catalyst::VERSION >= 5.89000) { |
20 | %e = %{ $self->SUPER::env() }; |
21 | } else { |
22 | %e = %ENV; |
23 | } |
24 | |
b94c4996 |
25 | $e{REMOTE_USER} = $REMOTE_USER; |
26 | $e{SSL_CLIENT_S_DN} = $SSL_CLIENT_S_DN; |
27 | return \%e; |
28 | }; |
29 | |
30 | 1; |