74 lines
2.0 KiB
Perl
74 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use HTML::Template;
|
|
use Lemonldap::NG::Portal::AuthLA;
|
|
|
|
# Local parameter to set the installation directory
|
|
|
|
my $portal = Lemonldap::NG::Portal::AuthLA->new(
|
|
{
|
|
# Liberty Parameters
|
|
laSp => {
|
|
certificate => "__DIR__/ressources/lemonsp-key-public.pem",
|
|
metadata => "__DIR__/ressources/lemonsp-metadata.xml",
|
|
privkey => "__DIR__/ressources/lemonsp-key-private.pem",
|
|
secretkey => "__DIR__/ressources/lemonsp-key-private.pem",
|
|
},
|
|
laIdpsFile => "__DIR__/idps.xml",
|
|
laDebug => 0,
|
|
laLdapLoginAttribute => "uid",
|
|
|
|
# Liberty Storage Options are now generic CGI::Session options
|
|
laStorage => "File",
|
|
laStorageOptions => { Directory => "__DIR__/var/assertion", },
|
|
|
|
# Parameters that permit to access lemonldap::NG::Handler local cache
|
|
localStorage => 'Cache::FileCache',
|
|
localStorageOptions => {},
|
|
}
|
|
);
|
|
|
|
if ( $portal->process() ) {
|
|
|
|
print $portal->header('text/html; charset=utf8');
|
|
my $template = HTML::Template->new( filename => "__DIR__/tpl/menu.tpl" );
|
|
|
|
my @sites = ();
|
|
foreach ( $portal->getProtectedSites ) {
|
|
my %row_data;
|
|
$row_data{SITE_NAME} = $_;
|
|
push( @sites, \%row_data );
|
|
}
|
|
@sites = sort { $a cmp $b } @sites;
|
|
$template->param( AUTH_SITES => \@sites );
|
|
|
|
print $template->output;
|
|
|
|
}
|
|
else {
|
|
|
|
# Retrieve IDP list.
|
|
|
|
my @idps = ();
|
|
foreach ( $portal->getIdpIDs ) {
|
|
my %row_data;
|
|
$row_data{IDPNAME} = $_;
|
|
push( @idps, \%row_data );
|
|
}
|
|
@idps = sort { $a cmp $b } @idps;
|
|
|
|
# Print template
|
|
|
|
print $portal->header;
|
|
my $template = HTML::Template->new( filename => "__DIR__/tpl/auth.tpl" );
|
|
$template->param( AUTH_ERROR => $portal->error );
|
|
$template->param( AUTH_URL => $portal->param('url') );
|
|
$template->param( AUTH_IDPS => \@idps );
|
|
print $template->output;
|
|
|
|
}
|
|
|