/[webpac2]/trunk/lib/WebPAC/Common.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Common.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 32 by dpavlin, Sun Jul 24 15:07:56 2005 UTC revision 363 by dpavlin, Sun Jan 8 20:27:06 2006 UTC
# Line 15  WebPAC::Common - internal methods called Line 15  WebPAC::Common - internal methods called
15    
16  =head1 VERSION  =head1 VERSION
17    
18  Version 0.01  Version 0.02
19    
20  =cut  =cut
21    
22  our $VERSION = '0.01';  our $VERSION = '0.02';
23    
24  =head1 SYNOPSYS  =head1 SYNOPSYS
25    
# Line 175  log4perl.appender.SCREEN.layout.Conversi Line 175  log4perl.appender.SCREEN.layout.Conversi
175    
176  _log4perl_  _log4perl_
177                  warn "# $name is using debug logger\n" if ($log_debug);                  warn "# $name is using debug logger\n" if ($log_debug);
178          } elsif ($name !~ m/Test::Exception/o) {          } elsif ($name =~ m/Test::Exception/o) {
179                  warn "# disabled logging for Text::Exception\n" if ($log_debug);                  warn "# disabled logging for Text::Exception\n" if ($log_debug);
180          } elsif ($file) {          } elsif (-e $file) {
181                  warn "# $name is using $file logger\n" if ($log_debug);                  warn "# $name is using $file logger\n" if ($log_debug);
182                  Log::Log4perl->init($file);                  Log::Log4perl->init($file);
183                    return 1;
184          } else {          } else {
185                  warn "# $name is using null logger\n" if ($log_debug);                  warn "# $name is using null logger\n" if ($log_debug);
186          }          }
# Line 204  sub _get_logger { Line 205  sub _get_logger {
205          my $name = (caller(2))[3] || caller;          my $name = (caller(2))[3] || caller;
206          $self->{'_logger_'} ||= $self->_init_logger;          $self->{'_logger_'} ||= $self->_init_logger;
207    
208          warn "# get_logger( $name )\n" if ($log_debug);          my $log = get_logger( $name );
209            warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug);
210          return get_logger($name);          return $log;
211  }  }
212    
213    
214    =head2 _log
215    
216    Quick cludge to make logging object available to scripts which
217    use webpac line this:
218    
219      my $log = _new WebPAC::Common()->_get_logger();
220    
221    =cut
222    
223    sub _new {
224            my $class = shift;
225            my $self = {@_};
226            bless($self, $class);
227    
228            $self ? return $self : return undef;
229    }
230    
231  =head1 LOGGING  =head1 LOGGING
232    
233  Logging in WebPAC is performed by L<Log::Log4perl> with config file  Logging in WebPAC is performed by L<Log::Log4perl> with config file
Legend:
Removed from v.32  
changed lines
  Added in v.363
  ViewVC Help
Powered by ViewVC 1.1.26