From 5c6e3307bd608613e7b7e413c730e108391794a1 Mon Sep 17 00:00:00 2001
From: Xavier Guimard <x.guimard@free.fr>
Date: Thu, 8 Feb 2018 21:25:02 +0100
Subject: [PATCH] Better debug for FastCGI (#1369)

---
 fastcgi-server/sbin/llng-fastcgi-server | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/fastcgi-server/sbin/llng-fastcgi-server b/fastcgi-server/sbin/llng-fastcgi-server
index 934c94738..6c5d96f70 100644
--- a/fastcgi-server/sbin/llng-fastcgi-server
+++ b/fastcgi-server/sbin/llng-fastcgi-server
@@ -10,10 +10,9 @@ use Lemonldap::NG::Handler::Main::Reload;
 our $VERSION = '2.0.0';
 
 our (
-    $foreground, $engine,              $nproc,
-    $pidFile,    $socket,              $user,
-    $listen,     $group,               $customFunctionsFile,
-    %plackOptions
+    $foreground,          $engine, $nproc,  $pidFile,
+    $socket,              $user,   $listen, $group,
+    $customFunctionsFile, %plackOptions
 );
 my %_apps;
 
@@ -92,6 +91,9 @@ my %builder = (
             my $script = $_[0]->{SCRIPT_FILENAME};
             return $_apps{$script}->(@_) if ( $_apps{$script} );
             $_apps{$script} = do $script;
+            unless ( $_apps{$script} and ref $_apps{$script} ) {
+                die "Unable to load $_[0]->{SCRIPT_FILENAME}";
+            }
             return $_apps{$script}->(@_);
           }
     },
@@ -118,12 +120,12 @@ Lemonldap::NG::Handler::Main->onReload(
 
 my $server = Plack::Runner->new();
 $server->parse_options(
-    '-s'           => $engine,
-    '-E'           => 'deployment',
-    '--pid'        => $pidFile,
-    '--nproc'      => $nproc,
-    '--socket'     => $socket,
-    ( $listen ? ('--listen', $listen) : ()),
+    '-s'       => $engine,
+    '-E'       => 'deployment',
+    '--pid'    => $pidFile,
+    '--nproc'  => $nproc,
+    '--socket' => $socket,
+    ( $listen ? ( '--listen', $listen ) : () ),
     '--proc-title' => 'llng-fastcgi-server',
     ( $foreground ? () : '--daemonize' ),
     '--no-default-middleware',
-- 
GitLab