PAM - Invoke perl code at PAM phases

  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;
  }

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 2010 - Jonathan Steinert

Jonathan Steinert

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