/usr/share/perl5/Jifty/Plugin/Authentication/Ldap/Dispatcher.pm is in libjifty-plugin-authentication-ldap-perl 1.01-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | use strict;
use warnings;
package Jifty::Plugin::Authentication::Ldap::Dispatcher;
use Jifty::Dispatcher -base;
# Put any plugin-specific dispatcher rules here.
# whitelist safe actions to avoid cross-site scripting
before '*' => run { Jifty->api->allow('LDAPLogout') };
# Log out
before 'ldaplogout' => run {
Jifty->web->request->add_action(
class => 'LDAPLogout',
moniker => 'ldaplogout',
);
};
on ldaplogout => run {
redirect '/';
};
# Login
on 'ldaplogin' => run {
set 'action' =>
Jifty->web->new_action(
class => 'LDAPLogin',
moniker => 'ldaploginbox'
);
set 'next' => Jifty->web->request->continuation
|| Jifty::Continuation->new(
request => Jifty::Request->new( path => "/" ) );
};
1;
|