package Lemonldap::Handlers::MemsessionCAS;
use strict;
use Apache::Session::Memorycached;
our ( @ISA, $VERSION, @EXPORTS );
$VERSION = '3.1.0';
our $VERSION_LEMONLDAP = "3.1.0";
our $VERSION_INTERNAL  = "3.1.0";

sub get {
    my $class  = shift;
    my %_param = @_;

    my $id = $_param{'id'};
    return 0 unless $id;
    my $config = $_param{'config'};

    my $SERVERS = $config->{SERVERS};
    $SERVERS->{timeout} = '30';
    my %session;
    my %_principal;
    my %__principal;
    my %_session;
    tie %session, 'Apache::Session::Memorycached', $id, $SERVERS;
    if ( !$session{service} )
    {    ##  the cookie is present but i can't  retrieve session
        ##  three causes : Too many connection are served.
        ##                the server of session was restarted
        ##                It's time out
        untie %session;

        # I say it's time out

    }
    else {
        if ( $session{USED} eq 'TRUE' ) {
            $session{VALID} = 'FALSE';

        }
        else {
            $session{VALID} = 'TRUE';

        }
        $session{USED} = 'TRUE';
        %_session = %session;
        untie %session;
        delete $SERVERS->{timeout};
        tie %_principal, 'Apache::Session::Memorycached', $_session{principal},
          $SERVERS;
        %__principal = %_principal;
        untie %_principal;

    }
    my $self = \%_session;
    bless $self, $class;
    my $self2 = \%__principal;
    bless $self2, $class;

    return ( $self, $self2 );
}
1;

=pod

=for html <center> <H1> Lemonldap::Handlers::Memsession </H1></center> 


=head1 NAME

    Lemonldap::Handlers::Memsession  - Plugin  for Lemonldap sso system

=head1 DESCRIPTION

 Memsession is the default session backend manager  of lemonldap  websso framework .
 This module uses memcached  in order to store information.
 
 see http://lemonldap.sf.net for more infos .

=head2 Overlay

If you wat use your own session backend  method you must use SESSIONSTOREPLUGIN parameter like this :
  in httpd.conf : perlsetvar lemonldappluginbackend MyModule 

 Your module must accept  2 parameters : config (all the hash of config ) and id (collect in the cookie )
 Your module must provide the 'get' method  and return a reference on hash of session.

=head1 SEE ALSO

Lemonldap(3), Lemonldap::Portal::Standard

http://lemonldap.sourceforge.net/

"Writing Apache Modules with Perl and C" by Lincoln Stein E<amp> Doug
MacEachern - O'REILLY

=over 1

=item Eric German, E<lt>germanlinux@yahoo.frE<gt>

=item Isabelle Serre, E<lt>isabelle.serre@justice.gouv.frE<gt>

=back

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2004 by Eric German E<amp> Isabelle Serre

Lemonldap originaly written by Eric german who decided to publish him in 2003
under the terms of the GNU General Public License version 2.

=over 1

=item This package is under the GNU General Public License, Version 2.

=item The primary copyright holder is Eric German.

=item Portions are copyrighted under the same license as Perl itself.

=item Portions are copyrighted by Doug MacEachern and Lincoln Stein.
This library is under the GNU General Public License, Version 2.

=item Portage under Apache2 is made with help of : Ali Pouya and 
Shervin Ahmadi (MINEFI/DGI) 

=back

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; version 2 dated June, 1991.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  A copy of the GNU General Public License is available in the source tree;
  if not, write to the Free Software Foundation, Inc.,
  59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

=cut