X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/c5919df5f3697e0f8968e2b8f49cd15c1e0aa412..6fc3b624f209f71335bed9947eda956e7d118458:/IkiWiki/Plugin/aggregate.pm
diff --git a/IkiWiki/Plugin/aggregate.pm b/IkiWiki/Plugin/aggregate.pm
index c6ed6b209..33d7174f5 100644
--- a/IkiWiki/Plugin/aggregate.pm
+++ b/IkiWiki/Plugin/aggregate.pm
@@ -35,12 +35,14 @@ sub getopt () { #{{{
} #}}}
sub checkconfig () { #{{{
+ IkiWiki::lockwiki();
loadstate();
if ($IkiWiki::config{aggregate}) {
IkiWiki::loadindex();
aggregate();
savestate();
}
+ IkiWiki::unlockwiki();
} #}}}
sub filter (@) { #{{{
@@ -98,7 +100,7 @@ sub preprocess (@) { #{{{
return "{url}."\">".$feed->{name}.": ".
"".$feed->{message}." (".$feed->{numposts}.
- " stored posts; ".$feed->{newposts}." new)
";
+ " stored posts; ".$feed->{newposts}." new)";
} # }}}
sub delete (@) { #{{{
@@ -260,13 +262,12 @@ sub add_page (@) { #{{{
# directory name or trigger ".." disallowing code.
$page=~s!([/.])!"__".ord($1)."__"!eg;
$page=$feed->{dir}."/".$page;
- $page=lc($page);
($page)=$page=~/$IkiWiki::config{wiki_file_regexp}/;
if (! defined $page || ! length $page) {
$page=$feed->{dir}."/item";
}
my $c="";
- while (exists $IkiWiki::pagesources{$page.$c} ||
+ while (exists $IkiWiki::pagecase{lc $page.$c} ||
-e pagefile($page.$c)) {
$c++
}
@@ -290,12 +291,13 @@ sub add_page (@) { #{{{
if defined $params{title} && length($params{title});
$template->param(content => htmlescape(htmlabs($params{content}, $feed->{feedurl})));
$template->param(name => $feed->{name});
+ $template->param(url => $feed->{url});
$template->param(permalink => urlabs($params{link}, $feed->{feedurl}))
if defined $params{link};
if (ref $feed->{tags}) {
$template->param(tags => [map { tag => $_ }, @{$feed->{tags}}]);
}
- IkiWiki::writefile($guid->{page}.".html", $IkiWiki::config{srcdir},
+ IkiWiki::writefile(IkiWiki::htmlpage($guid->{page}), $IkiWiki::config{srcdir},
$template->output);
# Set the mtime, this lets the build process get the right creation
@@ -370,7 +372,7 @@ sub remove_feeds () { #{{{
sub pagefile ($) { #{{{
my $page=shift;
- return "$IkiWiki::config{srcdir}/$page.html";
+ return "$IkiWiki::config{srcdir}/".IkiWiki::htmlpage($page);
} #}}}
1