lemonldap-ng/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm

31 lines
879 B
Perl
Raw Normal View History

2016-03-30 21:51:12 +02:00
##@class Lemonldap::NG::Portal::Main::Run
# Serve request part of Lemonldap::NG portal
#
# Methods:
# - handler(): verify that portal configuration is the same that the
# underlying handler configuration before launching
# Lemonldap::NG::Common::PSGI::Router::handler() (which parse
# routes)
2016-03-29 23:09:55 +02:00
package Lemonldap::NG::Portal::Main::Run;
use strict;
use Mouse;
2016-03-30 21:51:12 +02:00
our $VERSION = '2.0.0';
sub handler {
my($self,$req) = shift;
unless ( $self->conf->{cfgNum} and $self->conf->{cfgNum} eq HANDLER->lmConf->{cfgNum} ) {
$self->reloadConf()
}
bless $req, Lemonldap::NG::Portal::Main::Request;
return $self->SUPER::handler($req);
}
2016-03-29 23:09:55 +02:00
# TODO in run
# - mustRedirect
2016-03-30 07:47:38 +02:00
# - store AuthnLevel in session (setSessionInfo)
# $self->{sessionInfo}->{authenticationLevel} = $self->_authentication->AuthnLevel
2016-03-29 23:09:55 +02:00
1;