Commit f52b609d authored by Clément OUDOT's avatar Clément OUDOT

Correct errors seen in make test

parent c9f496d7
......@@ -705,7 +705,7 @@ sub setSessionInfo {
$self->{sessionInfo}->{ipAddr} = $ENV{REMOTE_ADDR};
# Extract client IP from X-FORWARDED-FOR header
my $xheader = $ENV{HTTP_X_FORWARDED_FOR};
$xheader =~ s/(.*?)(\,)+.*/$1/;
$xheader =~ s/(.*?)(\,)+.*/$1/ if $xheader;
$self->{sessionInfo}->{xForwardedForAddr} = $xheader || $ENV{REMOTE_ADDR};
$self->{sessionInfo}->{startTime} =
&POSIX::strftime( "%Y%m%d%H%M%S", localtime() );
......
......@@ -241,6 +241,10 @@ sub setSessionInfo {
Lemonldap::NG::Portal::Simple::PE_OK;
}
sub setGroups {
Lemonldap::NG::Portal::Simple::PE_OK;
}
package Lemonldap::NG::Portal::UserDB2;
sub userDBInit {
......@@ -256,6 +260,10 @@ sub setSessionInfo {
Lemonldap::NG::Portal::Simple::PE_OK;
}
sub setGroups {
Lemonldap::NG::Portal::Simple::PE_OK;
}
package Lemonldap::NG::Portal::UserDB3;
sub userDBInit {
......@@ -271,6 +279,10 @@ sub setSessionInfo {
Lemonldap::NG::Portal::Simple::PE_OK;
}
sub setGroups {
Lemonldap::NG::Portal::Simple::PE_OK;
}
package Lemonldap::NG::Portal::UserDB4;
sub userDBInit {
......@@ -285,3 +297,7 @@ sub setSessionInfo {
Lemonldap::NG::Portal::Simple::PE_OK;
}
sub setGroups {
Lemonldap::NG::Portal::Simple::PE_OK;
}
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