[Perl] Использование модуля
Добавлено: 2010-08-30 11:07:35
Приветствую!
Понадобилось реализовать авторизацию через АД. Нашел модуль CGI::Application::Plugin::Authorization::Driver::ActiveDirectory http://search.cpan.org/~hawkmoon/CGI-Ap ... rectory.pm Но в примере крайне скудный конфиг ...
Пытался вызывать вот таким способом:
На что получил ответ:
Может кто нибудь дать пример кода использования данного модуля .. или хотя бы направление в котором копать, как его запустить. Заранее благодарен за ответы.
Понадобилось реализовать авторизацию через АД. Нашел модуль 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.