diff --git a/IkiWiki/Plugin/aggregate.pm b/IkiWiki/Plugin/aggregate.pm
index ac55dcb1d..2e1ab66e6 100644
--- a/IkiWiki/Plugin/aggregate.pm
+++ b/IkiWiki/Plugin/aggregate.pm
@@ -83,6 +83,7 @@ sub preprocess (@) { #{{{
$feed->{numposts}=0 unless defined $feed->{numposts};
$feed->{newposts}=0 unless defined $feed->{newposts};
$feed->{message}="new feed" unless defined $feed->{message};
+ $feed->{error}=0 unless defined $feed->{error};
$feed->{tags}=[];
while (@_) {
my $key=shift;
@@ -93,7 +94,9 @@ sub preprocess (@) { #{{{
}
return "{url}."\">".$feed->{name}.": ".
- "".$feed->{message}." (".$feed->{numposts}." posts".
+ ($feed->{error} ? "" : "").$feed->{message}.
+ ($feed->{error} ? "" : "").
+ " (".$feed->{numposts}." posts".
($feed->{newposts} ? "; ".$feed->{newposts}." new" : "").
")";
} # }}}
@@ -199,6 +202,7 @@ sub aggregate () { #{{{
my @urls=XML::Feed->find_feeds($feed->{url});
if (! @urls) {
$feed->{message}="could not find feed at ".$feed->{feedurl};
+ $feed->{error}=1;
debug($feed->{message});
next;
}
@@ -207,11 +211,13 @@ sub aggregate () { #{{{
my $f=eval{XML::Feed->parse(URI->new($feed->{feedurl}))};
if ($@) {
$feed->{message}="feed crashed XML::Feed! $@";
+ $feed->{error}=1;
debug($feed->{message});
next;
}
if (! $f) {
$feed->{message}=XML::Feed->errstr;
+ $feed->{error}=1;
debug($feed->{message});
next;
}
@@ -229,6 +235,7 @@ sub aggregate () { #{{{
$feed->{message}="processed ok at ".
displaytime($feed->{lastupdate});
+ $feed->{error}=0;
}
# TODO: expiry
diff --git a/debian/changelog b/debian/changelog
index 7ca09b368..75c49880f 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -21,8 +21,9 @@ ikiwiki (1.29) UNRELEASED; urgency=low
of feeds.
* $IkiWiki::version now holds the program version, and is accessible to
plugins.
+ * Make the aggregate plugin emphasize error messages.
- -- Joey Hess Sun, 8 Oct 2006 18:36:30 -0400
+ -- Joey Hess Fri, 13 Oct 2006 14:19:28 -0400
ikiwiki (1.28) unstable; urgency=low