t/lib/RemoteTestEngine.pm

   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;