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.