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