dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LEMONLDAP::NG : patch on CDA portal, v0.03

Browse Source
This commit is contained in:
Thomas CHEMINEAU 2008-06-08 14:34:33 +00:00
parent af52414675
commit 31d19b3969
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/CDA.pm
View File

@ -3,7 +3,7 @@ package Lemonldap::NG::Portal::CDA;
use strict;
use Lemonldap::NG::Portal::SharedConf qw(:all);
our $VERSION = '0.02';
our $VERSION = '0.03';
our @ISA = ('Lemonldap::NG::Portal::SharedConf');
*EXPORT_OK = *Lemonldap::NG::Portal::SharedConf::EXPORT_OK;
@ -27,8 +27,14 @@ sub existingSession {
sub autoRedirect {
my $self = shift;
my $tmp = $self->{domain};
$self->{urldc} .= "?" . $self->{cookieName} . "=" . $self->{id}
if ( $self->{urldc} and $self->{urldc} !~ m#https?://[^/]*$tmp/#oi );
my $cookieName = $self->{cookieName};
if ( $self->{urldc} and $self->{urldc} !~ m#https?://[^/]*$tmp/#oi
and $self->{id} and $self->{urldc} !~ m#[\?&]?$cookiName=\w+&?#oi )
{
$self->{urldc} .= ( $self->{urldc} =~ /\?{1}/oi ) ? '&' : '?' ;
$self->{urldc} .= $cookieName . "=" . $self->{id} ;
}
return $self->SUPER::autoRedirect(@_);
}