#!/usr/bin/env perl
use
FindBin;
use
Mojolicious::Lite -signatures;
plugin
'GSSAPI'
;
get
'/'
=>
sub
(
$c
) {
my
$user
=
$c
->gssapi_auth or
return
;
$c
->render(
text
=>
'User '
.
$user
.
' authenticated. Use ldapsearch for (userprincipal='
.
$user
.
') to get more information'
);
};
app->start;