Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 493d07e1c7ddf660157a17fc8f6717633e6a61c1 1 parent 499484a
plg authored
Showing with 45 additions and 0 deletions.
  1. +35 −0 about.pl
  2. +10 −0 koha-tmpl/intranet-tmpl/prog/en/about.tmpl
View
35 about.pl
@@ -8,6 +8,8 @@
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 $mysqlVersion = `mysql -V`;
my $apacheVersion = `httpd -v`;
$apacheVersion = `httpd2 -v` unless $apacheVersion;
+my $zebraVersion = `zebraidx -V`;
$template->param(
kohaVersion => $kohaVersion,
@@ -32,6 +35,38 @@
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;
View
10 koha-tmpl/intranet-tmpl/prog/en/about.tmpl
@@ -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>
Please sign in to comment.
Something went wrong with that request. Please try again.