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

Improve test page (#1415)

Browse Source
This commit is contained in:
Clément OUDOT 2018-05-04 16:27:41 +02:00
parent d5e75cc6d5
commit 942f46156c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
_example/test/index.pl
View File

@ -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;