6 use C4::Output; # contains gettemplate
7 use C4::Interface::CGI::Output;
15 my ($template, $loggedinuser, $cookie)
16 = get_template_and_user({template_name => "about.tmpl",
20 flagsrequired => {parameters => 1},
24 my $kohaVersion = C4::Context->config("kohaversion");
25 my $osVersion = `uname -a`;
27 my $mysqlVersion = `mysql -V`;
28 my $apacheVersion = `httpd -v`;
29 $apacheVersion = `httpd2 -v` unless $apacheVersion;
30 my $zebraVersion = `zebraidx -V`;
31 # $apacheVersion = (`/usr/sbin/apache2 -V`)[0];
34 kohaVersion => $kohaVersion,
35 osVersion => $osVersion,
36 perlVersion => $perlVersion,
37 mysqlVersion => $mysqlVersion,
38 apacheVersion => $apacheVersion,
39 zebraVersion => $zebraVersion,
43 qw/MARC::File::XML MARC::Charset Class::Accessor
44 LWP::Simple XML::Simple Net::Z3950
45 Event Net::LDAP PDF::API2
46 Mail::Sendmail MARC::Record Digest::MD5
47 HTML::Template DBD::mysql Date::Manip
48 DBI Smart::Comments Net::Z3950::ZOOM
54 foreach my $component (sort @component_names) {
56 if (eval "require $component") {
57 $version = $component->VERSION;
58 if ($version eq '' ) {
63 $version = 'module is missing';
76 components => \@components
79 output_html_with_http_headers $query, $cookie, $template->output;