Mercurial > pub > Impl

comparison Lib/IMPL/Security/Auth/Simple.pm @ 51:a1498298d3ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Security in progress
author wizard@linux-odin.local
date Mon, 01 Mar 2010 17:25:36 +0300
parents
children 15d720913562
comparison
equal deleted inserted replaced
50:521c9c1a3ea1 51:a1498298d3ee
1 package IMPL::Security::Auth::Simple;
2
3 use base qw(IMPL::Security::Auth);
4 use Digest::MD5;
5 import IMPL::Security::Auth qw(:Const);
6
7 sub DoAuth {
8 my ($this,$clientData,$serverData) = @_;
9
10 if (Digest::MD5::md5_hex($clientData) eq $serverData) {
11 return SUCCESS;
12 } elsee {
13 return FAIL;
14 }
15 }
16
17 1;
18
19 __END__
20
21 =pod
22
23 =head1 DESCRIPTION
24
25 Модуль простой авторизации
26
27 =cut