# delete old and excess changes
foreach my $page (keys %pagesources) {
- if ($page =~ /\._change$/ && ! $seen{$page}) {
+ if ($pagesources{$page} =~ /\._change$/ && ! $seen{$page}) {
unlink($config{srcdir}.'/'.$pagesources{$page});
}
}
my %params=@_;
my $template=$params{template};
my $page=$params{page};
+
+ # XXX this is here because I've been seeing a strange uninitialized
+ # value in this sub.
+ if (! defined $config{recentchangespage}) {
+ eval q{use Carp};
+ Carp::cluck("undefined recentchangespage; please report this to Joey");
+ }
+
if ($config{rcs} && $page ne $config{recentchangespage} &&
$template->query(name => "recentchangesurl")) {
$template->param(recentchangesurl => urlto($config{recentchangespage}, $page));
);
}
- # escape wikilinks and preprocessor stuff in commit messages
+ # escape wikilinks and preprocessor stuff in commit messages
if (ref $change->{message}) {
foreach my $field (@{$change->{message}}) {
if (exists $field->{line}) {
wikiname => $config{wikiname},
);
IkiWiki::run_hooks(pagetemplate => sub {
- shift->(page => $page, destpage => $page, template => $template);
+ shift->(page => $page, destpage => $page,
+ template => $template, rev => $change->{rev});
});
my $file=$page."._change";
return $page;
} #}}}
-sub updatechanges ($$) { #{{{
- my $subdir=shift;
- my @changes=@{shift()};
-
-} #}}}
-
1