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`;
33 kohaVersion => $kohaVersion,
34 osVersion => $osVersion,
35 perlVersion => $perlVersion,
36 mysqlVersion => $mysqlVersion,
37 apacheVersion => $apacheVersion,
38 zebraVersion => $zebraVersion,
43 foreach my $component (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 ZOOM
51 if (eval "require $component") {
52 $version = $component->VERSION;
53 if ($version eq '' ) {
58 $version = 'module is missing';
69 components => \@components
72 output_html_with_http_headers $query, $cookie, $template->output;