# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
+use List::MoreUtils qw/ any /;
use LWP::Simple;
use XML::Simple;
use Config;
$apacheVersion = `httpd -v 2> /dev/null` unless $apacheVersion;
my $zebraVersion = `zebraidx -V`;
+# Check running PSGI env
+if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) {
+ $template->param(
+ is_psgi => 1,
+ psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" :
+ ($ENV{ MOD_PERL }) ? "mod_perl ($ENV{MOD_PERL})" :
+ 'Unknown'
+ );
+}
+
# Additional system information for warnings
my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities');
my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities');
</td></tr>
<tr><th scope="row">MySQL version: </th><td>[% mysqlVersion |html %]</td></tr>
<tr><th scope="row">Apache version: </th><td>[% apacheVersion |html %]</td></tr>
+ [% IF (is_psgi) %]
+ <tr><th scope="row">PSGI: </th><td>[% psgi_server |html %]</td></tr>
+ [% END %]
<tr><th scope="row">Zebra version: </th><td>[% zebraVersion |html %]</td></tr>
[% IF (errZebraConnection == 10000) %]
<tr><th scope="row"><b>Error</b> </th><td>Zebra server seems not to be available. Is it started?</td></tr>