From 5c3bc93123dce4bb8da33955540528f795e1208b Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 8 May 2025 10:57:08 +0300
Subject: [PATCH] No problems with "index" file

---
 zk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zk b/zk
index 3742ee3..b28c2fb 100755
--- a/zk
+++ b/zk
@@ -139,7 +139,6 @@ my %cats;
             closedir $dh;
             $cats{$pth} = \@entries;
         } else {
-            die "unacceptable filename: $pth" if $_ eq "index";
             my @s = stat($fn) or die "$!";
             $sizes{$pth} = $s[7];
             $mtimes{$pth} = strftime "%Y-%m-%d %H:%M:%S", gmtime $s[9];
@@ -336,6 +335,7 @@ if ($ARGV[0] eq "dump") {
     use File::Path qw(make_path);
     foreach my $cat (keys %cats) {
         make_path "$ARGV[1]/$cat";
+        next if (exists $mtimes{"$cat/index"});
         my $fn = "$ARGV[1]/$cat/index.html";
         open(my $fh, ">", $fn) or die "$!";
         genIndex $fh, $cat;
-- 
2.48.1