gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

display path to Perl interpreter on about page 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2008-02-13 13:03:11 -06:00 committed by Joshua Ferraro
parent d23c0a80bd
commit ec289b1b77
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
about.pl
View File

@ -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,

1
koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl
View File

@ -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" -->