NAME

PAM - Invoke perl code at PAM phases

SYNOPSIS

package Example::PAM;

use PAM::Constants qw(PAM_SUCCESS);
use PAM::Handle;

sub open_session {
  my $class = shift;
  my ($pamh, $flags, @ARGS) = @_;
  my $user = $pamh->get_user($prompt);
  
  return PAM_SUCCESS;
}

DESCRIPTION

This Perl and PAM module allow you to invoke a perl interpreter and call package methods during pam phases. It also includes bindings for most of the pam functions and constants.

COPYRIGHT

Copyright 2010 - Jonathan Steinert

AUTHOR

Jonathan Steinert

LICENSE

This module is licensed under the same terms as Perl itself.