Lines 51-68
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
51 |
} |
51 |
} |
52 |
); |
52 |
); |
53 |
|
53 |
|
54 |
my $kohaVersion = Koha::version(); |
|
|
55 |
my $osVersion = `uname -a`; |
56 |
my $perl_path = $^X; |
54 |
my $perl_path = $^X; |
57 |
if ($^O ne 'VMS') { |
55 |
if ($^O ne 'VMS') { |
58 |
$perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i; |
56 |
$perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i; |
59 |
} |
57 |
} |
60 |
my $perlVersion = $]; |
58 |
|
61 |
my $mysqlVersion = `mysql -V`; |
|
|
62 |
# Get Apache version |
63 |
my $apacheVersion = (`apache2ctl -v`)[0]; |
64 |
$apacheVersion = `httpd2 -v 2> /dev/null` unless $apacheVersion; |
65 |
$apacheVersion = `httpd -v 2> /dev/null` unless $apacheVersion; |
66 |
my $zebraVersion = `zebraidx -V`; |
59 |
my $zebraVersion = `zebraidx -V`; |
67 |
|
60 |
|
68 |
# Check running PSGI env |
61 |
# Check running PSGI env |
Lines 255-268
if ( C4::Context->preference('WebBasedSelfCheck')
Link Here
|
255 |
|
248 |
|
256 |
} |
249 |
} |
257 |
|
250 |
|
|
|
251 |
my %versions = C4::Context::get_versions(); |
252 |
|
258 |
$template->param( |
253 |
$template->param( |
259 |
kohaVersion => $kohaVersion, |
254 |
kohaVersion => $versions{'kohaVersion'}, |
260 |
osVersion => $osVersion, |
255 |
osVersion => $versions{'osVersion'}, |
261 |
perlPath => $perl_path, |
256 |
perlPath => $perl_path, |
262 |
perlVersion => $perlVersion, |
257 |
perlVersion => $versions{'perlVersion'}, |
263 |
perlIncPath => [ map { perlinc => $_ }, @INC ], |
258 |
perlIncPath => [ map { perlinc => $_ }, @INC ], |
264 |
mysqlVersion => $mysqlVersion, |
259 |
mysqlVersion => $versions{'mysqlVersion'}, |
265 |
apacheVersion => $apacheVersion, |
260 |
apacheVersion => $versions{'apacheVersion'}, |
266 |
zebraVersion => $zebraVersion, |
261 |
zebraVersion => $zebraVersion, |
267 |
prefBiblioAddsAuthorities => $prefBiblioAddsAuthorities, |
262 |
prefBiblioAddsAuthorities => $prefBiblioAddsAuthorities, |
268 |
prefAutoCreateAuthorities => $prefAutoCreateAuthorities, |
263 |
prefAutoCreateAuthorities => $prefAutoCreateAuthorities, |
269 |
- |
|
|