Commit f84b7ecc authored by Xavier Guimard's avatar Xavier Guimard

LEMONLDAP::NG : $startDate and $date are not available for rules.

parent 5271359a
Revision history for Perl extension Lemonldap::NG::Handler.
0.77 Wed Mar 14 7:18:48 2007
0.77 Wed Mar 22 7:18:48 2007
- logout system
- $date is now available in rules
0.76 Fri Mar 9 7:14:42 2007
- Little bug correction
......
......@@ -2,7 +2,7 @@ package Lemonldap::NG::Handler;
print STDERR
"See Lemonldap::NG::Handler(3) to know which Lemonldap::NG::Handler::* module to use.";
our $VERSION = "0.76";
our $VERSION = "0.77";
1;
......
......@@ -5,6 +5,7 @@ use strict;
use MIME::Base64;
use Exporter 'import';
use Safe;
require POSIX;
our $VERSION = '0.75';
......@@ -314,6 +315,7 @@ sub conditionSub {
if ( $cond =~ /^accept$/i );
return sub { 0 }
if ( $cond =~ /^deny$/i );
$cond =~ s/\$date/&POSIX::strftime("%Y%m%d%H%M%S",localtime())/e;
$cond =~ s/\$(\w+)/\$datas->{$1}/g;
my $sub;
$sub = $safe->reval("sub {return ( $cond )}");
......
......@@ -13,7 +13,7 @@ use LWP::UserAgent;
our @ISA = qw(Lemonldap::NG::Manager::Base);
our $VERSION = '0.6';
our $VERSION = '0.61';
sub new {
my ( $class, $args ) = @_;
......
......@@ -5,7 +5,7 @@ use Storable qw(thaw freeze);
use MIME::Base64;
use Lemonldap::NG::Manager::Conf::Constants;
our $VERSION = 0.43;
our $VERSION = 0.44;
our @ISA;
sub new {
......@@ -28,7 +28,7 @@ sub new {
unless $self->{type} =~ /^Lemonldap/;
eval "require $self->{type}";
die($@) if ($@);
push @ISA, $self->{type};
unshift @ISA, $self->{type};
return 0 unless $self->prereq;
$self->{mdone}++;
}
......@@ -149,6 +149,9 @@ more.
=back
WARNING: You have to use the same storage type on all Lemonldap::NG parts in
the same server.
=item * B<getConf>: returns a hash reference to the configuration. it takes
a hash reference as first argument containing 2 optional parameters:
......
Revision history for Perl extension Lemonldap::NG::Portal.
0.7 Thu Mar 22 23:00:34 2007
- $startTime variable
- Liberty Alliance service provider Skeleton
0.65 Wed Mar 15 7:38:40 2007
- New feature: single logout
- bug corrections:
......
......@@ -10,6 +10,7 @@ use warnings;
use MIME::Base64;
use CGI;
use CGI::Cookie;
require POSIX;
use Lemonldap::NG::Portal::_i18n;
our $VERSION = '0.7';
......@@ -302,6 +303,7 @@ sub search {
sub setSessionInfo {
my ($self) = @_;
$self->{sessionInfo}->{dn} = $self->{dn};
$self->{sessionInfo}->{startTime} = &POSIX::strftime("%Y%m%d%H%M%S",localtime());
unless ( $self->{exportedVars} ) {
foreach (qw(uid cn mail)) {
$self->{sessionInfo}->{$_} = join( '; ', $self->{entry}->get_value($_) ) || "";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment