|
Lines 20-29
Link Here
|
| 20 |
# You should have received a copy of the GNU General Public License |
20 |
# You should have received a copy of the GNU General Public License |
| 21 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
21 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 22 |
|
22 |
|
| 23 |
use strict; |
23 |
use Modern::Perl; |
| 24 |
use warnings; |
|
|
| 25 |
|
24 |
|
| 26 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
|
|
26 |
use List::MoreUtils qw/ any /; |
| 27 |
use LWP::Simple; |
27 |
use LWP::Simple; |
| 28 |
use XML::Simple; |
28 |
use XML::Simple; |
| 29 |
use Config; |
29 |
use Config; |
|
Lines 65-70
$apacheVersion = `httpd2 -v 2> /dev/null` unless $apacheVersion;
Link Here
|
| 65 |
$apacheVersion = `httpd -v 2> /dev/null` unless $apacheVersion; |
65 |
$apacheVersion = `httpd -v 2> /dev/null` unless $apacheVersion; |
| 66 |
my $zebraVersion = `zebraidx -V`; |
66 |
my $zebraVersion = `zebraidx -V`; |
| 67 |
|
67 |
|
|
|
68 |
# Check running PSGI env |
| 69 |
if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) { |
| 70 |
$template->param( |
| 71 |
is_psgi => 1, |
| 72 |
psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" : |
| 73 |
($ENV{ MOD_PERL }) ? "mod_perl ($ENV{MOD_PERL})" : |
| 74 |
'Unknown' |
| 75 |
); |
| 76 |
} |
| 77 |
|
| 68 |
# Additional system information for warnings |
78 |
# Additional system information for warnings |
| 69 |
my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities'); |
79 |
my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities'); |
| 70 |
my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities'); |
80 |
my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities'); |