Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

display path to Perl interpreter on about page

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
  • Loading branch information...
commit ec289b1b77873054b8263b9f3187ae6cf0f64f2b 1 parent d23c0a8
Galen Charlton authored Joshua Ferraro committed
Showing with 7 additions and 0 deletions.
  1. +6 −0 about.pl
  2. +1 −0  koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl
View
6 about.pl
@@ -24,6 +24,7 @@
use CGI;
use LWP::Simple;
use XML::Simple;
+use Config;
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -39,6 +40,10 @@
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`;
@@ -49,6 +54,7 @@
$template->param(
kohaVersion => $kohaVersion,
osVersion => $osVersion,
+ perlPath => $perl_path,
perlVersion => $perlVersion,
perlIncPath => [ map { perlinc => $_ }, sort @INC ],
mysqlVersion => $mysqlVersion,
View
1  koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl
@@ -34,6 +34,7 @@
<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" -->
Please sign in to comment.
Something went wrong with that request. Please try again.