$actions++;
}
- if ($config{rcs} && exists $config{recentchangespage} &&
- $page ne $config{recentchangespage}) {
- $template->param(recentchangesurl => urlto($config{recentchangespage}, $page));
- $actions++;
- }
-
if (length $config{historyurl}) {
my $u=$config{historyurl};
$u=~s/\[\[file\]\]/$pagesources{$page}/g;
backlinks => $backlinks,
more_backlinks => $more_backlinks,
mtime => displaytime($pagemtime{$page}),
+ ctime => displaytime($pagectime{$page}),
baseurl => baseurl($page),
);
my $output=htmlpage($page);
writefile($output, $config{destdir}, genpage($page, $content));
- utime($pagemtime{$page}, $pagemtime{$page}, $config{destdir}."/".$output);
}
else {
my $srcfd=readfile($srcfile, 1, 1);
}
}
});
- utime($pagemtime{$file}, $pagemtime{$file}, $config{destdir}."/".$file);
}
} #}}}
}
$pagecase{lc $page}=$page;
if ($config{getctime} && -e "$config{srcdir}/$file") {
- $pagectime{$page}=rcs_getctime("$config{srcdir}/$file");
+ eval {
+ my $time=rcs_getctime("$config{srcdir}/$file");
+ $pagectime{$page}=$time;
+ };
+ if ($@) {
+ print STDERR $@;
+ }
}
- elsif (! exists $pagectime{$page}) {
+ if (! exists $pagectime{$page}) {
$pagectime{$page}=mtime(srcfile($file));
}
}
$pagemtime{$page}=$mtime;
if (isinternal($page)) {
push @internal, $file;
- scan($file);
+ # Preprocess internal page in scan-only mode.
+ preprocess($page, $page, readfile(srcfile($file)), 1);
}
else {
push @needsbuild, $file;