Commit 4a8c99c7 authored by Xavier Guimard's avatar Xavier Guimard

LEMONLDAP::NG : new: port is now checked in HTTP redirections.

parent f2b60434
...@@ -2,8 +2,9 @@ lemonldap-ng (0.8.1.2) unstable; urgency=low ...@@ -2,8 +2,9 @@ lemonldap-ng (0.8.1.2) unstable; urgency=low
* Little bug fix if whatToTrace parameter is not defined and display it in * Little bug fix if whatToTrace parameter is not defined and display it in
Manager interface Manager interface
* New: port is now checked in portal redirection
-- Xavier Guimard <x.guimard@free.fr> Sat, 21 Apr 2007 15:05:19 +0200 -- Xavier Guimard <x.guimard@free.fr> Mon, 23 Apr 2007 21:20:24 +0200
lemonldap-ng (0.8.1.1) unstable; urgency=low lemonldap-ng (0.8.1.1) unstable; urgency=low
......
...@@ -332,9 +332,9 @@ sub defaultValuesInit { ...@@ -332,9 +332,9 @@ sub defaultValuesInit {
my ( $class, $args ) = @_; my ( $class, $args ) = @_;
# Other values # Other values
$cookieName = $args->{cookieName} || 'lemonldap'; $cookieName = $args->{cookieName} || 'lemonldap';
$cookieSecured = $args->{cookieSecured} || 0; $cookieSecured = $args->{cookieSecured} || 0;
$whatToTrace = $args->{whatToTrace} || '$uid'; $whatToTrace = $args->{whatToTrace} || '$uid';
$whatToTrace =~ s/\$//g; $whatToTrace =~ s/\$//g;
$https = $args->{https} unless defined($https); $https = $args->{https} unless defined($https);
$https = 1 unless defined($https); $https = 1 unless defined($https);
...@@ -429,12 +429,18 @@ sub hideCookie { ...@@ -429,12 +429,18 @@ sub hideCookie {
# Redirect non-authenticated users to the portal # Redirect non-authenticated users to the portal
sub goToPortal() { sub goToPortal() {
my ( $class, $url, $arg ) = @_; my ( $class, $url, $arg ) = @_;
my $port = $apacheRequest->get_server_port();
$port =
( $https && $port == 443 ) ? ''
: ( !$https && $port == 80 ) ? ''
: ':' . $apacheRequest->get_server_port();
my $urlc_init = my $urlc_init =
encode_base64( "http" encode_base64( "http"
. ( $https ? "s" : "" ) . "://" . ( $https ? "s" : "" ) . "://"
. $apacheRequest->get_server_name() . $apacheRequest->get_server_name()
. $port
. $url ); . $url );
$urlc_init =~ s/[\n\s]//g; $urlc_init =~ s/[\n\s]//sg;
$class->lmLog( $class->lmLog(
"Redirect " "Redirect "
. $apacheRequest->connection->remote_ip . $apacheRequest->connection->remote_ip
......
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