#
# This file is part of Koha.
#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY 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.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
+use List::MoreUtils qw/ any /;
use LWP::Simple;
use XML::Simple;
use Config;
use C4::Context;
use C4::Installer;
+use Koha;
+use Koha::Borrowers;
+use Koha::Config::SysPrefs;
+
#use Smart::Comments '####';
my $query = new CGI;
}
);
-my $kohaVersion = C4::Context::KOHAVERSION;
+my $kohaVersion = Koha::version();
my $osVersion = `uname -a`;
my $perl_path = $^X;
if ($^O ne 'VMS') {
}
my $perlVersion = $];
my $mysqlVersion = `mysql -V`;
-my $apacheVersion = `httpd -v 2> /dev/null`;
-$apacheVersion = `httpd2 -v 2> /dev/null` unless $apacheVersion;
-$apacheVersion = (`/usr/sbin/apache2 -V`)[0] unless $apacheVersion;
+# Get Apache version
+my $apacheVersion = (`apache2ctl -v`)[0];
+$apacheVersion = `httpd2 -v 2> /dev/null` unless $apacheVersion;
+$apacheVersion = `httpd -v 2> /dev/null` unless $apacheVersion;
my $zebraVersion = `zebraidx -V`;
+# Check running PSGI env
+if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) {
+ $template->param(
+ is_psgi => 1,
+ psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" :
+ ($ENV{ MOD_PERL }) ? "mod_perl ($ENV{MOD_PERL})" :
+ 'Unknown'
+ );
+}
+
# Additional system information for warnings
my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities');
my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities');
and not C4::Context->preference('AnonymousPatron')
);
+my $anonymous_patron = Koha::Borrowers->find( C4::Context->preference('AnonymousPatron') );
+my $warnPrefAnonymousPatron_PatronDoesNotExist = ( not $anonymous_patron and Koha::Borrowers->search({ privacy => 2 })->count );
+
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode();
my $warnIsRootUser = (! $loggedinuser);
my $warnNoActiveCurrency = (! defined C4::Budgets->GetCurrency());
my @xml_config_warnings;
+my $context = new C4::Context;
+
if ( ! defined C4::Context->config('zebra_bib_index_mode') ) {
push @xml_config_warnings, {
error => 'zebra_bib_index_mode_warn'
};
+ if ($context->{'server'}->{'biblioserver'}->{'config'} !~ /zebra-biblios-dom.cfg/) {
+ push @xml_config_warnings, {
+ error => 'zebra_bib_mode_seems_grs1'
+ };
+ }
+ else {
+ push @xml_config_warnings, {
+ error => 'zebra_bib_mode_seems_dom'
+ };
+ }
} else {
push @xml_config_warnings, { error => 'zebra_bib_grs_warn' }
if C4::Context->config('zebra_bib_index_mode') eq 'grs1';
}
+if ( (C4::Context->config('zebra_bib_index_mode') eq 'dom') &&
+ ($context->{'server'}->{'biblioserver'}->{'config'} !~ /zebra-biblios-dom.cfg/) ) {
+
+ push @xml_config_warnings, {
+ error => 'zebra_bib_index_mode_mismatch_warn'
+ };
+}
+
+if ( (C4::Context->config('zebra_bib_index_mode') eq 'grs1') &&
+ ($context->{'server'}->{'biblioserver'}->{'config'} =~ /zebra-biblios-dom.cfg/) ) {
+
+ push @xml_config_warnings, {
+ error => 'zebra_bib_index_mode_mismatch_warn'
+ };
+}
+
if ( ! defined C4::Context->config('zebra_auth_index_mode') ) {
push @xml_config_warnings, {
error => 'zebra_auth_index_mode_warn'
};
+ if ($context->{'server'}->{'authorityserver'}->{'config'} !~ /zebra-authorities-dom.cfg/) {
+ push @xml_config_warnings, {
+ error => 'zebra_auth_mode_seems_grs1'
+ };
+ }
+ else {
+ push @xml_config_warnings, {
+ error => 'zebra_auth_mode_seems_dom'
+ };
+ }
} else {
push @xml_config_warnings, { error => 'zebra_auth_grs_warn' }
if C4::Context->config('zebra_auth_index_mode') eq 'grs1';
}
+if ( (C4::Context->config('zebra_auth_index_mode') eq 'dom') && ($context->{'server'}->{'authorityserver'}->{'config'} !~ /zebra-authorities-dom.cfg/) ) {
+ push @xml_config_warnings, {
+ error => 'zebra_auth_index_mode_mismatch_warn'
+ };
+}
+
+if ( (C4::Context->config('zebra_auth_index_mode') eq 'grs1') && ($context->{'server'}->{'authorityserver'}->{'config'} =~ /zebra-authorities-dom.cfg/) ) {
+ push @xml_config_warnings, {
+ error => 'zebra_auth_index_mode_mismatch_warn'
+ };
+}
+
+if ( ! defined C4::Context->config('log4perl_conf') ) {
+ push @xml_config_warnings, {
+ error => 'log4perl_entry_missing'
+ }
+}
+
+if ( ! defined C4::Context->config('upload_path') ) {
+ if ( Koha::Config::SysPrefs->find('OPACBaseURL')->value ) {
+ # OPACBaseURL seems to be set
+ push @xml_config_warnings, {
+ error => 'uploadpath_entry_missing'
+ }
+ } else {
+ push @xml_config_warnings, {
+ error => 'uploadpath_and_opacbaseurl_entry_missing'
+ }
+ }
+}
+
# Test QueryParser configuration sanity
if ( C4::Context->preference( 'UseQueryParser' ) ) {
# Get the QueryParser configuration file name
}
}
+# Sco Patron should not contain any other perms than circulate => self_checkout
+if ( C4::Context->preference('WebBasedSelfCheck')
+ and C4::Context->preference('AutoSelfCheckAllowed')
+) {
+ my $userid = C4::Context->preference('AutoSelfCheckID');
+ my $all_permissions = C4::Auth::get_user_subpermissions( $userid );
+ my ( $has_self_checkout_perm, $has_other_permissions );
+ while ( my ( $module, $permissions ) = each %$all_permissions ) {
+ if ( $module eq 'circulate' ) {
+ while ( my ( $permission, $flag ) = each %$permissions ) {
+ if ( $permission eq 'self_checkout' ) {
+ $has_self_checkout_perm = 1;
+ } else {
+ $has_other_permissions = 1;
+ }
+ }
+ } else {
+ $has_other_permissions = 1;
+ }
+ }
+ $template->param(
+ AutoSelfCheckPatronDoesNotHaveSelfCheckPerm => not ( $has_self_checkout_perm ),
+ AutoSelfCheckPatronHasTooManyPerm => $has_other_permissions,
+ );
+
+
+}
+
$template->param(
kohaVersion => $kohaVersion,
osVersion => $osVersion,
warnPrefBiblioAddsAuthorities => $warnPrefBiblioAddsAuthorities,
warnPrefEasyAnalyticalRecords => $warnPrefEasyAnalyticalRecords,
warnPrefAnonymousPatron => $warnPrefAnonymousPatron,
+ warnPrefAnonymousPatron_PatronDoesNotExist => $warnPrefAnonymousPatron_PatronDoesNotExist,
errZebraConnection => $errZebraConnection,
warnIsRootUser => $warnIsRootUser,
warnNoActiveCurrency => $warnNoActiveCurrency,
$docdir = C4::Context->config('intranetdir') . '/docs';
}
-if ( open( my $file, "<", "$docdir" . "/history.txt" ) ) {
+if ( open( my $file, "<:encoding(UTF-8)", "$docdir" . "/history.txt" ) ) {
my $i = 0;