28/10/2008
Role Based Access Control
6
Authentication
Example
use Authen::Simple::Passwd;
my $passwd = Authen::Simple::Passwd
->new(path => '/etc/passwd');
->new(path => '/etc/passwd');
if ( $passwd->authenticate( $username, $password
) ) {
# successfull
authentication
}