Apache2-AuthCookieLDAP

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

my $build = Module::Build->new(
    module_name => 'Apache2::AuthCookieLDAP',
    license     => 'perl',
    requires    => {
        'mod_perl2'           => 1.999022,
        'Apache2::AuthCookie' => 3.19,
        'Apache2::Connection' => 0,
        'Apache2::Const'      => 0,
        'Apache2::RequestRec' => 0,
        'Apache2::ServerUtil' => 0,
        'Crypt::CBC'          => 2.13,
        'Digest::MD5'         => 0,
        'Net::LDAP'           => 0.54,
    },
    create_makefile_pl => 'traditional'
)->create_build_script();

exit 0;

META.json  view on Meta::CPAN

            "Module::Build" : "0.40"
         }
      },
      "runtime" : {
         "requires" : {
            "Apache2::AuthCookie" : "3.19",
            "Apache2::Connection" : 0,
            "Apache2::Const" : 0,
            "Apache2::RequestRec" : 0,
            "Apache2::ServerUtil" : 0,
            "Crypt::CBC" : "2.13",
            "Digest::MD5" : 0,
            "Net::LDAP" : "0.54",
            "mod_perl2" : "1.999022"
         }
      }
   },
   "provides" : {
      "Apache2::AuthCookieLDAP" : {
         "file" : "lib/Apache2/AuthCookieLDAP.pm",
         "version" : "1.15"

META.yml  view on Meta::CPAN

provides:
  Apache2::AuthCookieLDAP:
    file: lib/Apache2/AuthCookieLDAP.pm
    version: 1.15
requires:
  Apache2::AuthCookie: 3.19
  Apache2::Connection: 0
  Apache2::Const: 0
  Apache2::RequestRec: 0
  Apache2::ServerUtil: 0
  Crypt::CBC: 2.13
  Digest::MD5: 0
  Net::LDAP: 0.54
  mod_perl2: 1.999022
resources:
  license: http://dev.perl.org/licenses/
version: 1.15

Makefile.PL  view on Meta::CPAN

  'PL_FILES' => {},
  'INSTALLDIRS' => 'site',
  'NAME' => 'Apache2::AuthCookieLDAP',
  'EXE_FILES' => [],
  'VERSION_FROM' => 'lib/Apache2/AuthCookieLDAP.pm',
  'PREREQ_PM' => {
                   'Apache2::Const' => 0,
                   'Apache2::AuthCookie' => '3.19',
                   'Apache2::RequestRec' => 0,
                   'mod_perl2' => '1.999022',
                   'Crypt::CBC' => '2.13',
                   'Digest::MD5' => 0,
                   'Apache2::ServerUtil' => 0,
                   'Net::LDAP' => '0.54',
                   'Apache2::Connection' => 0
                 }
)
;

lib/Apache2/AuthCookieLDAP.pm  view on Meta::CPAN

use Apache2::Connection;
use Apache2::RequestRec;
use Apache2::Log;
use Apache2::Const -compile => qw(:log);
use APR::Const -compile     => qw(:error ENOTIME SUCCESS);

use English qw(-no_match_vars);

use Digest::MD5 qw(md5_hex);
use Crypt::CBC;
use Crypt::DES;

use Net::LDAP;

use constant CIPHER_TYPES => qw(DES IDEA Blowfish Blowfish_PP);
use constant LOG_LEVELS   => {
    emerg  => Apache2::Const::LOG_EMERG,
    alert  => Apache2::Const::LOG_ALERT,
    crit   => Apache2::Const::LOG_CRIT,
    err    => Apache2::Const::LOG_ERR,

lib/Apache2/AuthCookieLDAP.pm  view on Meta::CPAN

    my ( $self, $r ) = @_;

    my $auth_name  = $r->auth_name;
    my $cipher     = $self->config( $r, C_CIPHER );
    my $cipher_key = $auth_name . ':' . lc($cipher);

    unless ( exists $ciphers{$cipher_key} ) {
        my $secret_key = $self->config( $r, C_SECRET_KEY );
        foreach my $cipher_type (CIPHER_TYPES) {
            next unless lc($cipher_type) eq $cipher;
            $ciphers{$cipher_key} = Crypt::CBC->new(
                -key    => $secret_key,
                -cipher => $cipher_type
            );
        }
    }
    exists $ciphers{$cipher_key}
      ? return $ciphers{$cipher_key}
      : $self->fatal( $r, "Wrong cipher $cipher" );
    return NULL;
}