Lines 120-142
if ( $tab eq 'about' ) {
Link Here
|
120 |
environment_invalid => $env_invalid |
120 |
environment_invalid => $env_invalid |
121 |
}; |
121 |
}; |
122 |
|
122 |
|
123 |
{ # Logger checks |
|
|
124 |
my $log4perl_config = C4::Context->config("log4perl_conf"); |
125 |
my @log4perl_errors; |
126 |
if ( !$log4perl_config ) { |
127 |
push @log4perl_errors, 'missing_config_entry'; |
128 |
} else { |
129 |
my @lines = read_file($log4perl_config) or push @log4perl_errors, 'cannot_read_config_file'; |
130 |
for my $line (@lines) { |
131 |
next unless $line =~ m|log4perl.appender.\w+.filename=(.*)|; |
132 |
push @log4perl_errors, 'logfile_not_writable' unless -w $1; |
133 |
} |
134 |
} |
135 |
eval { Koha::Logger->get }; |
136 |
push @log4perl_errors, 'cannot_init_module' and warn $@ if $@; |
137 |
$template->param( log4perl_errors => @log4perl_errors ); |
138 |
} |
139 |
|
140 |
$template->param( |
123 |
$template->param( |
141 |
time_zone => $time_zone, |
124 |
time_zone => $time_zone, |
142 |
current_date_and_time => output_pref( { dt => dt_from_string(), dateformat => 'iso' } ) |
125 |
current_date_and_time => output_pref( { dt => dt_from_string(), dateformat => 'iso' } ) |
Lines 274-282
if ( $tab eq 'sysinfo' ) {
Link Here
|
274 |
push @xml_config_warnings, { error => 'zebra_auth_index_mode_mismatch_warn' }; |
257 |
push @xml_config_warnings, { error => 'zebra_auth_index_mode_mismatch_warn' }; |
275 |
} |
258 |
} |
276 |
|
259 |
|
277 |
if ( !defined C4::Context->config('log4perl_conf') ) { |
260 |
log4perl_check( $template, \@xml_config_warnings ); |
278 |
push @xml_config_warnings, { error => 'log4perl_entry_missing' }; |
|
|
279 |
} |
280 |
|
261 |
|
281 |
if ( !defined C4::Context->config('lockdir') ) { |
262 |
if ( !defined C4::Context->config('lockdir') ) { |
282 |
push @xml_config_warnings, { error => 'lockdir_entry_missing' }; |
263 |
push @xml_config_warnings, { error => 'lockdir_entry_missing' }; |
Lines 829-834
if ( $tab eq 'history' ) {
Link Here
|
829 |
} |
810 |
} |
830 |
} |
811 |
} |
831 |
|
812 |
|
|
|
813 |
sub log4perl_check { |
814 |
my ( $template, $xml_config_warnings ) = @_; |
815 |
|
816 |
if ( !defined C4::Context->config('log4perl_conf') ) { |
817 |
push @$xml_config_warnings, { error => 'log4perl_entry_missing' }; |
818 |
} |
819 |
|
820 |
my $log4perl_config = C4::Context->config("log4perl_conf"); |
821 |
my @log4perl_errors; |
822 |
if ( !$log4perl_config ) { |
823 |
push @log4perl_errors, 'missing_config_entry'; |
824 |
} else { |
825 |
my @lines = read_file($log4perl_config) or push @log4perl_errors, 'cannot_read_config_file'; |
826 |
for my $line (@lines) { |
827 |
next unless $line =~ m|log4perl\.appender\.\w+\.filename=(.*)|; |
828 |
my $file = $1; |
829 |
if ( !-w $file ) { |
830 |
push @log4perl_errors, 'logfile_not_writable'; |
831 |
|
832 |
#NOTE: An unwritable logfile blocks plack.psgi. So you wont reach this script. (BZ 39155) |
833 |
} |
834 |
} |
835 |
} |
836 |
eval { Koha::Logger->get }; |
837 |
push @log4perl_errors, 'cannot_init_module' and warn $@ if $@; |
838 |
$template->param( log4perl_errors => @log4perl_errors ); |
839 |
} |
840 |
|
832 |
sub elasticsearch_check { |
841 |
sub elasticsearch_check { |
833 |
my $template = shift; |
842 |
my $template = shift; |
834 |
|
843 |
|
835 |
- |
|
|