Mercurial > pub > Impl

comparison Lib/IMPL/Security/Auth.pm @ 87:6d3bca490556

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes in the security moodules
author wizard
date Mon, 19 Apr 2010 23:20:46 +0400
parents 077357224bec
children 4267a2ac3d46
comparison
equal deleted inserted replaced
86:52eeec77504b 87:6d3bca490556
3 use Digest::MD5 qw(md5_hex); 3 use Digest::MD5 qw(md5_hex);
4 4
5 use constant { 5 use constant {
6 AUTH_SUCCESS => 1, 6 AUTH_SUCCESS => 1,
7 AUTH_INCOMPLETE => 2, 7 AUTH_INCOMPLETE => 2,
8 AUT_FAIL => 3 8 AUTH_FAIL => 3
9 }; 9 };
10 10
11 use base qw(Exporter); 11 use base qw(Exporter);
12 12
13 our @EXPORT_OK = qw(&AUTH_SUCCESS &AUTH_INCOMPLETE &AUTH_FAIL &GenSSID); 13 our @EXPORT_OK = qw(&AUTH_SUCCESS &AUTH_INCOMPLETE &AUTH_FAIL &GenSSID);
28 die new IMPL::NotImplementedException; 28 die new IMPL::NotImplementedException;
29 } 29 }
30 30
31 sub isTrusted { 31 sub isTrusted {
32 0; 32 0;
33 }
34
35 sub Create {
36 my ($self,%args) = @_;
37
38 return $self->new($self->CreateSecData(%args));
33 } 39 }
34 40
35 1; 41 1;
36 42
37 __END__ 43 __END__
111 117
112 =item C<[static] CreateSecData(%args)> 118 =item C<[static] CreateSecData(%args)>
113 119
114 Создает данные безопасности, на основе параметров. Параметры зависят от пакета аутентификации. 120 Создает данные безопасности, на основе параметров. Параметры зависят от пакета аутентификации.
115 121
122 =item C<[static] Create(%args)>
123
124 Создает объект аутентификации, на основе параметров. Параметры зависят от пакета аутентификации.
125 Внутри вызывает метод C<CreateSecData(%args)>.
126
116 =item C<[static] SecDataArgs()> 127 =item C<[static] SecDataArgs()>
117 128
118 Возвращает хеш с описанием параметров для функции C<CreateSecData>. Ключами являются 129 Возвращает хеш с описанием параметров для функции C<CreateSecData>. Ключами являются
119 имена параметров, значениями - типы. 130 имена параметров, значениями - типы.
120 131