Commit | Line | Data |
b94c4996 |
1 | package RemoteTestEngine; |
2 | use base 'Catalyst::Engine::CGI'; |
3 | |
4 | our $REMOTE_USER; |
5 | our $SSL_CLIENT_S_DN; |
6 | |
7 | sub env { |
8 | my $self = shift; |
9 | my %e = %ENV; |
10 | $e{REMOTE_USER} = $REMOTE_USER; |
11 | $e{SSL_CLIENT_S_DN} = $SSL_CLIENT_S_DN; |
12 | return \%e; |
13 | }; |
14 | |
15 | 1; |