view Lib/Security.pm @ 24:7f00786f8210

Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents 03e58a454b20
children 1c3c3e63a314
line wrap: on
line source

use strict;
package Security;

use constant {
    AUTH_FAILED =>      0,
    AUTH_SUCCESS =>     1,
    AUTH_INCOMPLETE =>  2,
    AUTH_NOAUTH =>      3
};

my $CurrentSession;

sub CurrentSession {
    my ($class,$newSession) = @_;
    
    $CurrentSession = $newSession if @_>=2;
    return $CurrentSession;
}

package Security::AuthResult;
use Common;
our @ISA = qw(Object);

BEGIN {
    DeclareProperty State => ACCESS_READ;
    DeclareProperty Session => ACCESS_READ;
    DeclareProperty ClientSecData => ACCESS_READ;
    DeclareProperty AuthMod => ACCESS_READ;
}

sub isSuccess {
    my ($this) = @_;
    return $this->{$State} == Security::AUTH_SUCCESS;
}


1;