3 # This file is part of Koha.
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
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.
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
31 #use Smart::Comments '####';
34 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36 template_name => "about.tmpl",
40 flagsrequired => { catalogue => 1 },
45 my $kohaVersion = C4::Context::KOHAVERSION;
46 my $osVersion = `uname -a`;
49 $perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i;
52 my $mysqlVersion = `mysql -V`;
53 my $apacheVersion = `httpd -v`;
54 $apacheVersion = `httpd2 -v` unless $apacheVersion;
55 $apacheVersion = (`/usr/sbin/apache2 -V`)[0] unless $apacheVersion;
56 my $zebraVersion = `zebraidx -V`;
59 kohaVersion => $kohaVersion,
60 osVersion => $osVersion,
61 perlPath => $perl_path,
62 perlVersion => $perlVersion,
63 perlIncPath => [ map { perlinc => $_ }, @INC ],
64 mysqlVersion => $mysqlVersion,
65 apacheVersion => $apacheVersion,
66 zebraVersion => $zebraVersion,
71 my $perl_modules = C4::Installer::PerlModules->new;
72 $perl_modules->version_info;
74 my @pm_types = qw(missing_pm upgrade_pm current_pm);
76 foreach my $pm_type(@pm_types) {
77 my $modules = $perl_modules->get_attr($pm_type);
79 my ($module, $stats) = each %$_;
84 version => $stats->{'cur_ver'},
85 missing => ($pm_type eq 'missing_pm' ? 1 : 0),
86 upgrade => ($pm_type eq 'upgrade_pm' ? 1 : 0),
87 current => ($pm_type eq 'current_pm' ? 1 : 0),
88 require => $stats->{'required'},
94 @components = sort {$a->{'name'} cmp $b->{'name'}} @components;
99 foreach (@components) {
101 unless (++$counter % 4) {
102 push (@$table, {row => $row});
108 $template->param( table => $table );
111 ## ------------------------------------------
112 ## Koha time line code
115 my $dir = C4::Context->config('intranetdir');
116 open( my $file, "<", "$dir" . "/docs/history.txt" );
125 shift @lines; #remove header row
128 my ( $date, $desc, $tag ) = split(/\t/);
139 #foreach my $row2 (@rows2) {
142 push( @$table2, { row2 => $row2 } );
146 $template->param( table2 => $table2 );
148 output_html_with_http_headers $query, $cookie, $template->output;