36 lines
680 B
Perl
36 lines
680 B
Perl
package t::SamlHookPlugin;
|
|
|
|
use Mouse;
|
|
extends 'Lemonldap::NG::Portal::Main::Plugin';
|
|
|
|
use constant hook => {
|
|
samlGotAuthnRequest => 'gotRequest',
|
|
samlGenerateAuthnRequest => 'genRequest',
|
|
samlGotAuthnResponse => 'gotResponse',
|
|
};
|
|
|
|
sub gotRequest {
|
|
my ( $self, $req, $login ) = @_;
|
|
|
|
$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;
|
|
}
|
|
|
|
1;
|
|
|