X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=about.pl;h=4687a45a3bf47ded258a63c36858439c03879e58;hb=5c1599c925da726752a3565b6e11ce72152c1dba;hp=99b9fd55d57da0253bb7e8bf5a564b111f0cd4e7;hpb=40af15d8e66010d6a1e1187098f8dd71ece00c24;p=koha_fer diff --git a/about.pl b/about.pl index 99b9fd55d5..4687a45a3b 100755 --- a/about.pl +++ b/about.pl @@ -1,5 +1,10 @@ -รถ#!/usr/bin/perl - +#!/usr/bin/perl + +# Copyright Pat Eyler 2003 +# Copyright Biblibre 2006 +# Parts Copyright Liblime 2008 +# Parts Copyright Chris Nighswonger 2010 +# # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it under the @@ -11,19 +16,24 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; -require Exporter; +use warnings; -use C4::Output; # contains gettemplate -use C4::Auth; -use C4::Context; use CGI; use LWP::Simple; use XML::Simple; +use Config; + +use C4::Output; +use C4::Auth; +use C4::Context; +use C4::Installer; + +#use Smart::Comments '####'; my $query = new CGI; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( @@ -32,62 +42,175 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( query => $query, type => "intranet", authnotrequired => 0, - flagsrequired => { parameters => 1 }, + flagsrequired => { catalogue => 1 }, debug => 1, } ); -my $kohaVersion = C4::Context->config("kohaversion"); +my $kohaVersion = C4::Context::KOHAVERSION; my $osVersion = `uname -a`; +my $perl_path = $^X; +if ($^O ne 'VMS') { + $perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i; +} my $perlVersion = $]; my $mysqlVersion = `mysql -V`; -my $apacheVersion = `httpd -v`; -$apacheVersion = `httpd2 -v` unless $apacheVersion; +my $apacheVersion = `httpd -v 2> /dev/null`; +$apacheVersion = `httpd2 -v 2> /dev/null` unless $apacheVersion; +$apacheVersion = (`/usr/sbin/apache2 -V`)[0] unless $apacheVersion; my $zebraVersion = `zebraidx -V`; -# $apacheVersion = (`/usr/sbin/apache2 -V`)[0]; +# Additional system information for warnings +my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities'); +my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities'); +my $warnPrefBiblioAddsAuthorities = ( $prefAutoCreateAuthorities && ( !$prefBiblioAddsAuthorities) ); + +my $prefEasyAnalyticalRecords = C4::Context->preference('EasyAnalyticalRecords'); +my $prefUseControlNumber = C4::Context->preference('UseControlNumber'); +my $warnPrefEasyAnalyticalRecords = ( $prefEasyAnalyticalRecords && $prefUseControlNumber ); +my $warnPrefAnonymousPatron = ( + C4::Context->preference('OPACPrivacy') + and not C4::Context->preference('AnonymousPatron') +); + +my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); + +my $warnIsRootUser = (! $loggedinuser); + +my $warnNoActiveCurrency = (! defined C4::Budgets->GetCurrency()); +my @xml_config_warnings; + +if ( ! defined C4::Context->config('zebra_bib_index_mode') ) { + push @xml_config_warnings, { + error => 'zebra_bib_index_mode_warn' + }; +} + +if ( ! defined C4::Context->config('zebra_auth_index_mode') ) { + push @xml_config_warnings, { + error => 'zebra_auth_index_mode_warn' + }; +} $template->param( kohaVersion => $kohaVersion, osVersion => $osVersion, + perlPath => $perl_path, perlVersion => $perlVersion, + perlIncPath => [ map { perlinc => $_ }, @INC ], mysqlVersion => $mysqlVersion, apacheVersion => $apacheVersion, zebraVersion => $zebraVersion, + prefBiblioAddsAuthorities => $prefBiblioAddsAuthorities, + prefAutoCreateAuthorities => $prefAutoCreateAuthorities, + warnPrefBiblioAddsAuthorities => $warnPrefBiblioAddsAuthorities, + warnPrefEasyAnalyticalRecords => $warnPrefEasyAnalyticalRecords, + warnPrefAnonymousPatron => $warnPrefAnonymousPatron, + errZebraConnection => $errZebraConnection, + warnIsRootUser => $warnIsRootUser, + warnNoActiveCurrency => $warnNoActiveCurrency, + xml_config_warnings => \@xml_config_warnings, ); -my @component_names = - 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 Net::Z3950::ZOOM - Date::Calc - /; my @components = (); -foreach my $component ( sort @component_names ) { - my $version; - if ( eval "require $component" ) { - $version = $component->VERSION; - if ( $version eq '' ) { - $version = 'unknown'; - } +my $perl_modules = C4::Installer::PerlModules->new; +$perl_modules->version_info; + +my @pm_types = qw(missing_pm upgrade_pm current_pm); + +foreach my $pm_type(@pm_types) { + my $modules = $perl_modules->get_attr($pm_type); + foreach (@$modules) { + my ($module, $stats) = each %$_; + push( + @components, + { + name => $module, + version => $stats->{'cur_ver'}, + missing => ($pm_type eq 'missing_pm' ? 1 : 0), + upgrade => ($pm_type eq 'upgrade_pm' ? 1 : 0), + current => ($pm_type eq 'current_pm' ? 1 : 0), + require => $stats->{'required'}, + } + ); } - else { - $version = 'module is missing'; +} + +@components = sort {$a->{'name'} cmp $b->{'name'}} @components; + +my $counter=0; +my $row = []; +my $table = []; +foreach (@components) { + push (@$row, $_); + unless (++$counter % 4) { + push (@$table, {row => $row}); + $row = []; } +} +# Processing the last line (if there are any modules left) +if (scalar(@$row) > 0) { + # Extending $row to the table size + $$row[3] = ''; + # Pushing the last line + push (@$table, {row => $row}); +} +## ## $table - push( - @components, - { - name => $component, - version => $version, - } - ); +$template->param( table => $table ); + + +## ------------------------------------------ +## Koha time line code + +#get file location +my $docdir; +if ( defined C4::Context->config('docdir') ) { + $docdir = C4::Context->config('docdir'); +} else { + # if no is defined in koha-conf.xml, use the default location + # this is a work-around to stop breakage on upgraded Kohas, bug 8911 + $docdir = C4::Context->config('intranetdir') . '/docs'; } -$template->param( components => \@components ); +if ( open( my $file, "<", "$docdir" . "/history.txt" ) ) { + + my $i = 0; + + my @rows2 = (); + my $row2 = []; + + my @lines = <$file>; + close($file); + + shift @lines; #remove header row + + foreach (@lines) { + my ( $date, $desc, $tag ) = split(/\t/); + if(!$desc && $date=~ /(?<=\d{4})\s+/) { + ($date, $desc)= ($`, $'); + } + push( + @rows2, + { + date => $date, + desc => $desc, + } + ); + } + + my $table2 = []; + #foreach my $row2 (@rows2) { + foreach (@rows2) { + push (@$row2, $_); + push( @$table2, { row2 => $row2 } ); + $row2 = []; + } + + $template->param( table2 => $table2 ); +} else { + $template->param( timeline_read_error => 1 ); +} output_html_with_http_headers $query, $cookie, $template->output;