2016-04-01 12:46:12 +02:00
|
|
|
#!/usr/bin/env perl
|
2013-10-21 23:24:03 +02:00
|
|
|
|
2016-04-10 09:20:54 +02:00
|
|
|
# TODO: remove this
|
|
|
|
BEGIN {
|
|
|
|
$pwd = `pwd`;
|
|
|
|
chomp $pwd;
|
|
|
|
eval qq{
|
2016-04-14 20:42:59 +02:00
|
|
|
use lib "$pwd/../../../lemonldap-ng-common/blib/lib";
|
|
|
|
use lib "$pwd/../../../lemonldap-ng-handler/blib/lib";
|
|
|
|
use lib "$pwd/../../../lemonldap-ng-portal/blib/lib";
|
|
|
|
use lib "$pwd/../../../lemonldap-ng-manager/blib/lib";
|
2016-04-10 09:20:54 +02:00
|
|
|
};
|
|
|
|
die $@ if ($@);
|
|
|
|
}
|
2016-04-01 12:46:12 +02:00
|
|
|
use Plack::Handler::FCGI;
|
|
|
|
use Lemonldap::NG::Portal::Main;
|
2013-10-21 23:24:03 +02:00
|
|
|
|
2016-04-01 12:46:12 +02:00
|
|
|
# Roll your own
|
|
|
|
my $server = Plack::Handler::FCGI->new();
|
|
|
|
$server->run( Lemonldap::NG::Portal::Main->run( {} ) );
|