Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

new: required Perl modules listed with their version in about page.

Browse source
This commit is contained in:
plg 2006-03-16 11:17:28 +00:00
parent 499484a768
commit 493d07e1c7
2 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
about.pl
View file

@ -8,6 +8,8 @@ use C4::Interface::CGI::Output;
use C4::Auth;
use C4::Context;
use CGI;
use LWP::Simple;
use XML::Simple;
my $query = new CGI;
my ($template, $loggedinuser, $cookie)
@ -25,6 +27,7 @@ my $perlVersion = $];
my $mysqlVersion = `mysql -V`;
my $apacheVersion = `httpd -v`;
$apacheVersion = `httpd2 -v` unless $apacheVersion;
my $zebraVersion = `zebraidx -V`;
$template->param(
kohaVersion => $kohaVersion,
@ -32,6 +35,38 @@ $template->param(
perlVersion => $perlVersion,
mysqlVersion => $mysqlVersion,
apacheVersion => $apacheVersion,
zebraVersion => $zebraVersion,
);
my @components = ();
foreach my $component (qw/MARC::File::XML MARC::Charset Class::Accessor
LWP::Simple XML::Simple Net::Z3950
Event Net::LDAP PDF::API2
Mail::Sendmail MARC::Record Digest::MD5
HTML::Template DBD::mysql Date::Manip
DBI Smart::Comments ZOOM
/) {
my $version;
if (eval "require $component") {
$version = $component->VERSION;
if ($version eq '' ) {
$version = 'unknown';
}
}
else {
$version = 'module is missing';
}
push @components,
{
name => $component,
version => $version,
};
}
$template->param(
components => \@components
);
output_html_with_http_headers $query, $cookie, $template->output;

10
koha-tmpl/intranet-tmpl/prog/en/about.tmpl
View file

@ -11,6 +11,16 @@
<tr><th scope="row">Perl version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="perlVersion" --></td></tr>
<tr><th scope="row">MySQL version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="mysqlVersion" --></td></tr>
<tr><th scope="row">Apache version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="apacheVersion" --></td></tr>
<tr><th scope="row">Zebra version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="zebraVersion" --></td></tr>
</table>
<table>
<!-- TMPL_LOOP name="components" -->
<tr>
<th scope="row"><!-- TMPL_VAR NAME="name" --></th>
<td><!-- TMPL_VAR NAME="version" --></td>
</tr>
<!-- /TMPL_LOOP -->
</table>