Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
use CGI;
use LWP::Simple;
use XML::Simple;
use CGI;
use LWP::Simple;
use XML::Simple;
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
my $kohaVersion = C4::Context::KOHAVERSION;
my $osVersion = `uname -a`;
my $kohaVersion = C4::Context::KOHAVERSION;
my $osVersion = `uname -a`;
+my $perl_path = $^X;
+if ($^O ne 'VMS') {
+ $perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i;
+}
my $perlVersion = $];
my $mysqlVersion = `mysql -V`;
my $apacheVersion = `httpd -v`;
my $perlVersion = $];
my $mysqlVersion = `mysql -V`;
my $apacheVersion = `httpd -v`;
$template->param(
kohaVersion => $kohaVersion,
osVersion => $osVersion,
$template->param(
kohaVersion => $kohaVersion,
osVersion => $osVersion,
+ perlPath => $perl_path,
perlVersion => $perlVersion,
perlIncPath => [ map { perlinc => $_ }, sort @INC ],
mysqlVersion => $mysqlVersion,
perlVersion => $perlVersion,
perlIncPath => [ map { perlinc => $_ }, sort @INC ],
mysqlVersion => $mysqlVersion,
<caption>Server information</caption>
<tr><th scope="row">Koha version: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="kohaVersion" --></td></tr>
<tr><th scope="row">OS version ('uname -a'): </th><td><!-- TMPL_VAR ESCAPE="HTML" name="osVersion" --></td></tr>
<caption>Server information</caption>
<tr><th scope="row">Koha version: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="kohaVersion" --></td></tr>
<tr><th scope="row">OS version ('uname -a'): </th><td><!-- TMPL_VAR ESCAPE="HTML" name="osVersion" --></td></tr>
+ <tr><th scope="row">Perl interpreter: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="perlPath" --></td></tr>
<tr><th scope="row">Perl version: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="perlVersion" --></td></tr>
<tr><th scope="row">Perl @INC: </th><td>
<!-- TMPL_LOOP name="perlIncPath" -->
<tr><th scope="row">Perl version: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="perlVersion" --></td></tr>
<tr><th scope="row">Perl @INC: </th><td>
<!-- TMPL_LOOP name="perlIncPath" -->