[catagits/Catalyst-Plugin-Authentication.git] / t / lib / RemoteTestEngine.pm

package RemoteTestEngine;
use base 'Catalyst::Engine::CGI';

our $REMOTE_USER;
our $SSL_CLIENT_S_DN;

sub env {
    my $self = shift;
    my %e = %ENV;
    $e{REMOTE_USER} = $REMOTE_USER;
    $e{SSL_CLIENT_S_DN} = $SSL_CLIENT_S_DN;
    return \%e;    
};

1;
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;