view release on metacpan or  search on metacpan

Generic.pm  view on Meta::CPAN

 the generateAuthCookie() method is a hash, those values will be
 available to your CGI scripts as environment variables whose
 names are the keys of the hash prefixed with the cookie name (as
 set by generic_auth_cookie_name) and an underscore.

=head1 METHODS

=cut

use strict;
use Crypt::CBC;
use Crypt::Rijndael;
use MIME::Base64 ();
use Storable ();
use Digest::SHA1 ();

{   package Apache::Authen::Generic;

    use vars qw($VERSION);
    
    BEGIN {

Generic.pm  view on Meta::CPAN

        return $key;
    }

    sub getCipherObj {
        my ($self, $req, $key) = @_;
        my $obj = $$self{_cipher_obj};
        return $obj if $obj;
        
        my $cipher = $self->getCipher($req);
        $key = $self->getCipherKey($req) if $key eq '';
        $obj = Crypt::CBC->new({ cipher => $cipher, key => $key });
        $$self{_cipher_obj} = $obj;
        return $obj;
    }

    sub getDigestObject {
        my ($self, $req, $key) = @_;
        my $obj = $$self{_digest_obj};
        return $obj if $obj;
        # $key = $self->getCipherKey($req) if $key eq '';

Makefile.PL  view on Meta::CPAN

                  NAME => 'Apache::Authen::Generic',
                  DISTNAME => 'Apache-Authen-Generic',
                  VERSION_FROM => 'Generic.pm',
                  ABSTRACT => 'Apache Authentication Module',
                  AUTHOR => 'DON OWENS <don@owensnet.com>',
                  PM => { 'Generic.pm' => '$(INST_LIBDIR)/Generic.pm',
                        },
                  dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz' },
                  DIR => [],
                  EXE_FILES => [],
                  PREREQ_PM => { 'Crypt::CBC' => '2.08', # 1.25 is known not to work
                                 'Crypt::Rijndael' => 0,
                                 'MIME::Base64' => 0,
                                 'Digest::SHA1' => 0, mod_perl => 0,
                               },
                  );


}

exit 0;