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