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;
|
||
|
|