Commit 52e11ea8 authored by Christophe Maudoux's avatar Christophe Maudoux 🐛

Avoid debug warning

parent 226b64cd
......@@ -20,7 +20,8 @@ use Digest::SHA
#==============================================================================
my $host = $ENV{HTTP_HOST};
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
my $protocol = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
my $protocol = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
$port ||= "";
my $portal_url = "$protocol://auth.$domain$port";
my $client_id = "lemonldap";
my $client_secret = "secret";
......
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