| Lines 40-57
          use C4::Context;
      
      
        Link Here | 
        
          | 40 | BEGIN { | 40 | BEGIN { | 
        
          | 41 |     Log::Log4perl->wrapper_register(__PACKAGE__); | 41 |     Log::Log4perl->wrapper_register(__PACKAGE__); | 
        
          | 42 |  | 42 |  | 
            
              | 43 |     my $conf; |  |  | 
        
          | 44 |     if ( exists $ENV{"LOG4PERL_CONF"} and $ENV{'LOG4PERL_CONF'} and -s $ENV{"LOG4PERL_CONF"} ) { | 43 |     if ( exists $ENV{"LOG4PERL_CONF"} and $ENV{'LOG4PERL_CONF'} and -s $ENV{"LOG4PERL_CONF"} ) { | 
            
              | 45 |  |  |  | 
        
          | 46 |         # Check for web server level configuration first | 44 |         # Check for web server level configuration first | 
          
            
              | 47 |         $conf = $ENV{"LOG4PERL_CONF"}; | 45 |         Log::Log4perl->init_once( $ENV{"LOG4PERL_CONF"} ); | 
        
          | 48 |     } | 46 |     } | 
          
            
              | 49 |     else { | 47 |     elsif ( C4::Context->config("log4perl_conf") ) { | 
        
          | 50 |         # If no web server level config exists, look in the koha conf file for one | 48 |         # If no web server level config exists, look in the koha conf file for one | 
          
            
              | 51 |         $conf = C4::Context->config("log4perl_conf"); | 49 |         Log::Log4perl->init_once( C4::Context->config("log4perl_conf") ); | 
            
              |  |  | 50 |     } else { | 
            
              | 51 |         my $logdir = C4::Context->config("logdir"); | 
            
              | 52 |         my $conf = qq( | 
            
              | 53 |             log4perl.logger.intranet = WARN, INTRANET | 
            
              | 54 |             log4perl.appender.INTRANET=Log::Log4perl::Appender::File | 
            
              | 55 |             log4perl.appender.INTRANET.filename=$logdir/intranet-error.log | 
            
              | 56 |             log4perl.appender.INTRANET.mode=append | 
            
              | 57 |             log4perl.appender.INTRANET.layout=PatternLayout | 
            
              | 58 |             log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n | 
            
              | 59 |  | 
            
              | 60 |             log4perl.logger.opac = WARN, OPAC | 
            
              | 61 |             log4perl.appender.OPAC=Log::Log4perl::Appender::File | 
            
              | 62 |             log4perl.appender.OPAC.filename=$logdir/opac-error.log | 
            
              | 63 |             log4perl.appender.OPAC.mode=append | 
            
              | 64 |             log4perl.appender.OPAC.layout=PatternLayout | 
            
              | 65 |             log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n | 
            
              | 66 |         ); | 
            
              | 67 |         Log::Log4perl->init_once(\$conf); | 
        
          | 52 |     } | 68 |     } | 
            
              | 53 |  |  |  | 
            
              | 54 |     Log::Log4perl->init_once($conf); | 
        
          | 55 | } | 69 | } | 
        
          | 56 |  | 70 |  | 
        
          | 57 | =head2 get | 71 | =head2 get | 
            
              | 58 | -  |  |  |