Понадобилось реализовать авторизацию через АД. Нашел модуль CGI::Application::Plugin::Authorization::Driver::ActiveDirectory http://search.cpan.org/~hawkmoon/CGI-Ap ... rectory.pm Но в примере крайне скудный конфиг ...
Пытался вызывать вот таким способом:
Код: Выделить всё
#!/usr/bin/perl -w
use base qw(CGI::Application);
use CGI::Application::Plugin::Authorization;
my $gg = __PACKAGE__->authz->config(
DRIVER => [ 'ActiveDirectory',
HOST => '192.168.0.2',
BINDDN => 'test',
BINDPW => 'test',
PRINCIPAL => 'test.local',
],
);
$gg->authorize_user();
print $gg."\n";
Код: Выделить всё
Can't call method "authorize_user" without a package or object reference at ./test.pl line 14.