use quotemeta when building the regexp

[git.ikiwiki.info.git] / IkiWiki / Render.pm

diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
index b5b461499d1a1f9324d1c9a68c9644f72f246eca..2682e13ae5b6e76ac67df22c59319dba07fac51a 100644 (file)
--- a/IkiWiki/Render.pm
+++ b/IkiWiki/Render.pm
@@ -85,11 +85,6 @@ sub genpage ($$) { #{{{
                $actions++;
        }
                
-       if ($config{rcs}) {
-               $template->param(recentchangesurl => urlto("recentchanges", $page));
-               $actions++;
-       }
-
        if (length $config{historyurl}) {
                my $u=$config{historyurl};
                $u=~s/\[\[file\]\]/$pagesources{$page}/g;
@@ -131,6 +126,7 @@ sub genpage ($$) { #{{{
                backlinks => $backlinks,
                more_backlinks => $more_backlinks,
                mtime => displaytime($pagemtime{$page}),
+               ctime => displaytime($pagectime{$page}),
                baseurl => baseurl($page),
        );
 
@@ -208,7 +204,6 @@ sub render ($) { #{{{
                
                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);
@@ -234,7 +229,6 @@ sub render ($) { #{{{
                                }
                        }
                });
-               utime($pagemtime{$file}, $pagemtime{$file}, $config{destdir}."/".$file);
        }
 } #}}}
 
@@ -334,9 +328,15 @@ sub refresh () { #{{{
                        }
                        $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));
                        }
                }
@@ -376,6 +376,8 @@ sub refresh () { #{{{
                        $pagemtime{$page}=$mtime;
                        if (isinternal($page)) {
                                push @internal, $file;
+                               # Preprocess internal page in scan-only mode.
+                               preprocess($page, $page, readfile(srcfile($file)), 1);
                        }
                        else {
                                push @needsbuild, $file;