lemonldap-ng/lemonldap-ng-portal/t/SamlHookPlugin.pm

36 lines
680 B
Perl
Raw Normal View History

2020-11-05 11:57:44 +01:00
package t::SamlHookPlugin;
use Mouse;
extends 'Lemonldap::NG::Portal::Main::Plugin';
2022-03-17 17:08:32 +01:00
use constant hook => {
samlGotAuthnRequest => 'gotRequest',
samlGenerateAuthnRequest => 'genRequest',
samlGotAuthnResponse => 'gotResponse',
};
2020-11-05 11:57:44 +01:00
sub gotRequest {
2022-03-17 17:08:32 +01:00
my ( $self, $req, $login ) = @_;
2020-11-05 11:57:44 +01:00
2022-03-17 17:08:32 +01:00
$req->pdata->{gotRequestHookCalled} = 1;
return 0;
}
sub genRequest {
my ( $self, $req, $idp, $login ) = @_;
$req->pdata->{genRequestHookCalled} = 1;
return 0;
}
sub gotResponse {
my ( $self, $req, $idp, $login ) = @_;
$req->sessionInfo->{gotResponseHookCalled} = 1;
$req->pdata->{gotResponseHookCalled} = 1;
return 0;
2020-11-05 11:57:44 +01:00
}
1;