22 lines
300 B
Perl
22 lines
300 B
Perl
package t::SamlHookPlugin;
|
|
|
|
use Mouse;
|
|
extends 'Lemonldap::NG::Portal::Main::Plugin';
|
|
|
|
use constant hook => { samlGotAuthnRequest => 'gotRequest', };
|
|
|
|
sub init {
|
|
my ($self) = @_;
|
|
return 1;
|
|
}
|
|
|
|
sub gotRequest {
|
|
my ( $self, $res, $login ) = @_;
|
|
|
|
# Return a weird
|
|
return -999;
|
|
}
|
|
|
|
1;
|
|
|