lemonldap-ng/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBCAS.pm

## @file
# CAS Issuer file

## @class
# CAS Issuer class
package Lemonldap::NG::Portal::IssuerDBCAS;

use strict;
use Lemonldap::NG::Portal::Simple;

our $VERSION = '0.01';

## @method void issuerDBInit()
# Nothing to do
# @return Lemonldap::NG::Portal error code
sub issuerDBInit {
    my $self = shift;
    PE_OK;
}

## @apmethod int issuerForUnAuthUser()
# Manage CAS request for unauthenticated user
# @return Lemonldap::NG::Portal error code
sub issuerForUnAuthUser {
    my $self = shift;

    # CAS URLs
    my $cas_login_url           = $self->{portal} . '/cas/login';
    my $cas_logout_url          = $self->{portal} . '/cas/logout';
    my $cas_validate_url        = $self->{portal} . '/cas/validate';
    my $cas_serviceValidate_url = $self->{portal} . '/cas/serviceValidate';
    my $cas_proxyValidate_url   = $self->{portal} . '/cas/proxyValidate';
    my $cas_proxy_url           = $self->{portal} . '/cas/proxy';

    PE_OK;
}

## @apmethod int issuerForAuthUser()
# Manage CAS request for unauthenticated user
# @return Lemonldap::NG::Portal error code
sub issuerForAuthUser {
    my $self   = shift;

    # CAS URLs
    my $cas_login_url           = $self->{portal} . '/cas/login';
    my $cas_logout_url          = $self->{portal} . '/cas/logout';
    my $cas_validate_url        = $self->{portal} . '/cas/validate';
    my $cas_serviceValidate_url = $self->{portal} . '/cas/serviceValidate';
    my $cas_proxyValidate_url   = $self->{portal} . '/cas/proxyValidate';
    my $cas_proxy_url           = $self->{portal} . '/cas/proxy';

    PE_OK;
}

## @apmethod int issuerLogout()
# Do nothing
# @return Lemonldap::NG::Portal error code
sub issuerLogout {
    my $self = shift;
    PE_OK;
}

1;

__END__

=head1 NAME

=encoding utf8

Lemonldap::NG::Portal::IssuerDBCAS - CAS IssuerDB for LemonLDAP::NG

=head1 DESCRIPTION

CAS Issuer implementation in LemonLDAP::NG

=head1 SEE ALSO

L<Lemonldap::NG::Portal>
http://www.jasig.org/cas/protocol

=head1 AUTHOR

Clement OUDOT, E<lt>clement@oodo.netE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2010 by Clement OUDOT

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.

=cut