Commit 942f4615 authored by Clément OUDOT's avatar Clément OUDOT

Improve test page (#1415)

parent d5e75cc6
......@@ -14,8 +14,11 @@ my $name = $cgi->param("name") || "LemonLDAP::NG sample protected application";
my $color = $cgi->param("color") || "#ddd";
# Local parameters
my $portal_url = "http://auth.__DNSDOMAIN__";
my $manager_url = "http://manager.__DNSDOMAIN__";
my $host = $ENV{HTTP_HOST};
my ( $domain ) = ( $host =~ /\w+\.(.*)/ );
my $protocol = $ENV{HTTPS} ? "https" : "http";
my $portal_url = "$protocol://auth.$domain";
my $manager_url = "$protocol://manager.$domain";
# CSS
my $css = <<EOT;
......
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