PAM - Invoke perl code at PAM phases


PAM documentation Contained in the PAM distribution.

Index


Code Index:

NAME

Top

PAM - Invoke perl code at PAM phases

SYNOPSIS

Top

  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

Top

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

Top

AUTHOR

Top

Jonathan Steinert

LICENSE

Top

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


PAM documentation Contained in the PAM distribution.
package PAM;

require 5.008001;
use parent qw(DynaLoader);

our $VERSION = '0.01';

sub dl_load_flags {0x01}

__PACKAGE__->bootstrap($VERSION);

$VERSION = eval $VERSION;

1;