rel_3_0 moved to HEAD
[wip/koha-chris_n.git] / about.pl
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA  02111-1307 USA
17
18
19 use strict;
20 require Exporter;
21
22 use C4::Output;  # contains gettemplate
23 use C4::Interface::CGI::Output;
24 use C4::Auth;
25 use C4::Context;
26 use CGI;
27 use LWP::Simple;
28 use XML::Simple;
29
30 my $query = new CGI;
31 my ($template, $loggedinuser, $cookie)
32     = get_template_and_user({template_name => "about.tmpl",
33                              query => $query,
34                              type => "intranet",
35                              authnotrequired => 0,
36                              flagsrequired => {parameters => 1},
37                              debug => 1,
38                              });
39
40 my $kohaVersion = C4::Context->config("kohaversion");
41 my $osVersion = `uname -a`;
42 my $perlVersion = $];
43 my $mysqlVersion = `mysql -V`;
44 my $apacheVersion =  `httpd -v`;
45 $apacheVersion =  `httpd2 -v` unless $apacheVersion;
46 my $zebraVersion = `zebraidx -V`;
47 # $apacheVersion =  (`/usr/sbin/apache2 -V`)[0];
48
49 $template->param(
50                                         kohaVersion => $kohaVersion,
51                                         osVersion          => $osVersion,
52                                         perlVersion        => $perlVersion,
53                                         mysqlVersion       => $mysqlVersion,
54                                         apacheVersion      => $apacheVersion,
55                                         zebraVersion       => $zebraVersion,
56                 );
57
58 my @component_names =
59     qw/MARC::File::XML   MARC::Charset     Class::Accessor
60        LWP::Simple       XML::Simple       Net::Z3950
61        Event             Net::LDAP         PDF::API2
62        Mail::Sendmail    MARC::Record      Digest::MD5
63        HTML::Template    DBD::mysql        Date::Manip
64        DBI               Smart::Comments   Net::Z3950::ZOOM
65        Date::Calc
66       /;
67
68 my @components = ();
69
70 foreach my $component (sort @component_names) {
71     my $version;
72     if (eval "require $component") {
73         $version = $component->VERSION;
74         if ($version eq '' ) {
75             $version = 'unknown';
76         }
77     }
78     else {
79         $version = 'module is missing';
80     }
81
82     push (
83         @components,
84         {
85             name    => $component,
86             version => $version,
87         }
88     );
89 }
90
91 $template->param(
92     components => \@components
93 );
94
95 output_html_with_http_headers $query, $cookie, $template->output;