|
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 |
- |
|
|