diff options
-rw-r--r-- | feeder.pl | 2 | ||||
-rw-r--r-- | lib/Feed.pm | 8 | ||||
-rw-r--r-- | lib/Feed/Utils.pm | 2 |
3 files changed, 11 insertions, 1 deletions
@@ -11,7 +11,7 @@ log4perl.rootLogger = WARN, Screen log4perl.appender.Screen = Log::Log4perl::Appender::Screen log4perl.appender.Screen.stderr = 1 log4perl.appender.Screen.layout = PatternLayout -log4perl.appender.Screen.layout.ConversionPattern = [%d{ISO8601}] %p{1} (%c) %m{chomp}%n +log4perl.appender.Screen.layout.ConversionPattern = [%d{ISO8601}] %p{1} %X{opml} %X{uri} (%c) %m{chomp}%n LOG set_feed_class(Feed->with_traits( diff --git a/lib/Feed.pm b/lib/Feed.pm index 26cc26e..118e882 100644 --- a/lib/Feed.pm +++ b/lib/Feed.pm @@ -51,6 +51,14 @@ has title => ( builder => 'extract_title', ); +sub BUILD { + my ($self) = @_; + + Log::Log4perl::MDC->put( uri => $self->uri->as_string ); + + return; +} + sub extract_title { my ($self) = @_; diff --git a/lib/Feed/Utils.pm b/lib/Feed/Utils.pm index 60ea383..48a4dc9 100644 --- a/lib/Feed/Utils.pm +++ b/lib/Feed/Utils.pm @@ -69,6 +69,8 @@ sub feeds_from_opml { } catch { warn $_; return }; return unless $opml; + Log::Log4perl::MDC->put( opml => "$opml_source" ); + my @exclude = @{$opts->{exclude} // []}; for my $feed_node ($opml->findnodes(q{/opml/body/outline[@xmlUrl != '']})) { |