1 package RemoteTestApp1;
8 __PACKAGE__->engine_class('RemoteTestEngine');
10 'Plugin::Authentication' => {
11 default_realm => 'remote',
16 allow_regexp => '^(bob|john|CN=.*)$',
17 deny_regexp=> 'denied',
18 cutname_regexp=> 'CN=(.*)/OU=Test',
29 my ( $self, $c ) = @_;
30 if ($c->authenticate()) {
31 $c->res->body('User:' . $c->user->{username});
34 $c->res->body('FAIL');
40 my ( $self, $c ) = @_;