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