1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
package RemoteTestApp1;
use strict;
use warnings;
use Catalyst qw/
Authentication
/;
use base qw/Catalyst/;
unless ($Catalyst::VERSION >= 5.89000) {
__PACKAGE__->engine_class('RemoteTestEngine');
}
__PACKAGE__->config(
'Plugin::Authentication' => {
default_realm => 'remote',
realms => {
remote => {
credential => {
class => 'Remote',
allow_regexp => '^(bob|john|CN=.*)$',
deny_regexp=> 'denied',
cutname_regexp=> 'CN=(.*)/OU=Test',
},
store => {
class => 'Null',
},
},
},
},
);
__PACKAGE__->setup;
if ($Catalyst::VERSION >= 5.89000) {
require RemoteTestEngineRole;
RemoteTestEngineRole->meta->apply(__PACKAGE__->engine);
}
1;
|
