From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 8 May 2025 14:29:11 +0000 (+0300)
Subject: Ability to print missing links
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=aa47d75db09aadf6d4c184e96a07fef3e52bb20e;p=zk.git

Ability to print missing links
---

diff --git a/zk b/zk
index de3dd45..d8e8ba7 100755
--- a/zk
+++ b/zk
@@ -205,9 +205,15 @@ for my $pth (keys %mtimes) {
             $w = $1;
             if ($w =~ /\/$/) {
                 my $w = substr $w, 0, -1;
-                next unless exists $cats{$w};
+                if (not exists $cats{$w}) {
+                    print "missing $w\n" if exists $ENV{ZK_PRINT_MISSING};
+                    next;
+                }
             } else {
-                next unless exists $mtimes{$w};
+                if (not exists $mtimes{$w}) {
+                    print "missing $w\n" if exists $ENV{ZK_PRINT_MISSING};
+                    next;
+                }
             }
             $found{$w} = 1;
         }