From ec289b1b77873054b8263b9f3187ae6cf0f64f2b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 13 Feb 2008 13:03:11 -0600 Subject: [PATCH] display path to Perl interpreter on about page Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- about.pl | 6 ++++++ koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl | 1 + 2 files changed, 7 insertions(+) diff --git a/about.pl b/about.pl index cf2c9d4317..29caa85554 100755 --- a/about.pl +++ b/about.pl @@ -24,6 +24,7 @@ use C4::Context; 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 ( $template, $loggedinuser, $cookie ) = get_template_and_user( 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 @@ my $zebraVersion = `zebraidx -V`; $template->param( kohaVersion => $kohaVersion, osVersion => $osVersion, + perlPath => $perl_path, perlVersion => $perlVersion, perlIncPath => [ map { perlinc => $_ }, sort @INC ], mysqlVersion => $mysqlVersion, diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl index 9eaa559159..f2e37d556d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl @@ -34,6 +34,7 @@ Server information Koha version: OS version ('uname -a'): + Perl interpreter: Perl version: Perl @INC: -- 2.39.5