Mercurial > pub > Impl

comparison Lib/IMPL/Security/Auth/Simple.pm @ 71:d92d5ddaf524

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
docs
author wizard
date Thu, 25 Mar 2010 13:05:18 +0300
parents 739f1288ca84
children eac47fa4f262
comparison
equal deleted inserted replaced
70:2dfb0b0ad12f 71:d92d5ddaf524
1 package IMPL::Security::Auth::Simple; 1 package IMPL::Security::Auth::Simple;
2 use strict;
2 3
3 use base qw(IMPL::Security::Auth); 4 use base qw(IMPL::Security::Auth);
4 use Digest::MD5; 5 use Digest::MD5;
5 6
6 use IMPL::Class::Property; 7 use IMPL::Class::Property;
34 } else { 35 } else {
35 return (FAIL,undef); 36 return (FAIL,undef);
36 } 37 }
37 } 38 }
38 39
40 sub CreateSecData {
41 my ($self,%args) = @_;
42
43 die new IMPL::InvalidArgumentException("The parameter is required",'password') unless $args{password};
44
45 return md5_hex($args{password});
46 }
47
48 sub SecDataArgs {
49
50
51 }
52
39 1; 53 1;
40 54
41 __END__ 55 __END__
42 56
43 =pod 57 =pod
44 58
59 =head1 NAME
60
61 C<IMPL::Security::Auth::Simple> Модуль простой авторизации.
62
45 =head1 DESCRIPTION 63 =head1 DESCRIPTION
46 64
47 Модуль простой авторизации 65
66
48 67
49 =cut 68 =cut