LEMONLDAP::NG : New module Sessions.pm to manage sessions

modules/lemonldap-ng-manager/Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Lemonldap::NG::Manager.
 
+0.87  Tue nov 4 17:28:45 2008
+	- New module Sessions.pm and example
+
 0.86  Mon aug 25 22:02:23 2008
 	- UTF8 in _i18n.pm
 	- change in default values

modules/lemonldap-ng-manager/example/sessions.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+
+use Lemonldap::NG::Manager::Sessions;
+
+our $cgi = Lemonldap::NG::Manager::Sessions->new({
+        localStorage        => "Cache::FileCache",
+        localStorageOptions => {
+            'namespace'          => 'MyNamespace',
+            'default_expires_in' => 600,
+            'directory_umask'    => '007',
+            'cache_root'         => '/tmp',
+            'cache_depth'        => 5,
+        },
+        configStorage => $Lemonldap::NG::Conf::configStorage,
+        https         => 1,
+        jqueryUri     => 'jquery.js',
+        imagePath     => 'images/',
+});
+
+$cgi->process();

modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager.pm

@@ -17,7 +17,7 @@ use MIME::Base64;
 
 our @ISA = qw(Lemonldap::NG::Manager::Base);
 
-our $VERSION = '0.86';
+our $VERSION = '0.87';
 
 sub new {
     my ( $class, $args ) = @_;

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

@@ -340,6 +340,8 @@ sub controlExistingSession {
     my $self    = shift;
     my %cookies = fetch CGI::Cookie;
 
+    # Store IP address
+    $self->{sessionInfo}->{ipAddr} = $ENV{REMOTE_ADDR};
     # Test if Lemonldap::NG cookie is available
     if ( $cookies{ $self->{cookieName} }
         and my $id = $cookies{ $self->{cookieName} }->value )