From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 9 May 2025 17:48:32 +0000 (+0300)
Subject: Touch generated files if do-backs was used
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=1e7358f008835ea67779a4c06befa2221312794b;p=zk.git

Touch generated files if do-backs was used
---

diff --git a/zk b/zk
index 5179aa3..7dfd1d6 100755
--- a/zk
+++ b/zk
@@ -332,7 +332,8 @@ sub genHTML {
         print $out "</table>\n";
     }
     @lnks = sort keys %{$backs{indexless $page}};
-    if ($doBacksForced or ($doBacks and $#lnks != -1)) {
+    my $backsWasGenerated = ($doBacksForced or ($doBacks and $#lnks != -1)) ? 1 : 0;
+    if ($backsWasGenerated) {
         print $out "<a id=\"backs\"></a><table border=1><caption>Backlinks</caption>\n";
         my $rel;
         foreach my $l (@lnks) {
@@ -344,6 +345,7 @@ sub genHTML {
         print $out "</table>\n";
     }
     print $out "</body></html>\n";
+    return $backsWasGenerated;
 }
 
 sub genIndex {
@@ -410,13 +412,16 @@ if ($ARGV[0] eq "dump") {
         close $fh;
         utime $now, $now, $fn;
     }
-    my @s;
     foreach my $pth (keys %mtimes) {
         open(my $fh, ">", "$ARGV[1]/$pth.html") or die "$!";
-        genHTML $fh, $pth;
+        my $backsWasGenerated = genHTML $fh, $pth;
         close $fh;
-        @s = stat($pth) or die "$!";
-        utime $s[9], $s[9], "$ARGV[1]/$pth.html";
+        my @s = stat($pth) or die "$!";
+        if ($backsWasGenerated) {
+            utime $now, $now, "$ARGV[1]/$pth.html";
+        } else {
+            utime $s[9], $s[9], "$ARGV[1]/$pth.html";
+        }
         copy $pth, "$ARGV[1]/$pth.txt" or die "$!";
         utime $s[9], $s[9], "$ARGV[1]/$pth.txt";
     }