From: Sergey Matveev Date: Thu, 8 May 2025 12:11:27 +0000 (+0300) Subject: Ability to force links/backs creation X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=aed38b8585337813fda352b3db5cbdbf428ff98d;p=zk.git Ability to force links/backs creation --- diff --git a/zk b/zk index 621cfa1..7aa7a3a 100755 --- a/zk +++ b/zk @@ -239,6 +239,8 @@ sub genHTML { print $out "\n"; } print $out "

";
+    my $doLinksForced = 0;
+    my $doBacksForced = 0;
     open(my $fh, "<", $page) or die "$!";
     while (<$fh>) {
         chop;
@@ -260,8 +262,14 @@ sub genHTML {
                 } else {
                     $_ = "";
                 }
+            } elsif ($cols[0] eq "do-links") {
+                $doLinksForced = 1;
+                next;
+            } elsif ($cols[0] eq "do-backs") {
+                $doBacksForced = 1;
+                next;
             } else {
-                print STDERR "unknown $cols[0]\n";
+                die "unknown $cols[0] command\n";
             }
         } else {
             $_ = htmlescape $_;
@@ -275,7 +283,7 @@ sub genHTML {
     }
     close $fh;
     print $out "

\n"; - if ($doLinks and $#lnks != -1) { + if ($doLinksForced or ($doLinks and $#lnks != -1)) { print $out "\n"; my $mtime; while (my ($i, $l) = each @lnks) { @@ -286,7 +294,7 @@ sub genHTML { print $out "

\n"; } @lnks = sort keys %{$backs{$page}}; - if ($doBacks and $#lnks != -1) { + if ($doBacksForced or ($doBacks and $#lnks != -1)) { print $out "\n"; my $rel; foreach my $l (@lnks) {