From: Sergey Matveev Date: Wed, 7 May 2025 19:09:50 +0000 (+0300) Subject: text/plain alternate X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=80993c3efa395699c623cf4c2b2a65a7c8409107;p=zk.git text/plain alternate --- diff --git a/zk b/zk index a08f2ee..3742ee3 100755 --- a/zk +++ b/zk @@ -179,14 +179,14 @@ for my $pth (keys %mtimes) { } } -sub startBody { +sub startHead { my $out = shift; my $title = shift; print $out " $title -"; +"; } sub htmlescape { @@ -198,6 +198,7 @@ sub htmlescape { } use File::Spec; +use File::Basename; sub genHTML { my $out = shift; @@ -215,8 +216,13 @@ sub genHTML { push @rels, $rel; } } - startBody $out, $page; - print $out "
\n";
+    startHead $out, $page;
+    {
+        my $fn = basename $page;
+        print $out "\n";
+    }
+    print $out "
";
     open(my $fh, "<", $page) or die "$!";
     while (<$fh>) {
         chop;
@@ -277,8 +283,8 @@ sub genHTML {
 sub genIndex {
     my $out = shift;
     my $page = shift;
-    startBody $out, "$page/";
-    print $out "\n";
+    startHead $out, "$page/";
+    print $out "
\n";
     my @lnks = sort @{$cats{$page}};
     foreach my $l (@lnks) {
         next if $l =~ /\/$/;
@@ -343,6 +349,12 @@ if ($ARGV[0] eq "dump") {
         close $fh;
         @s = stat($pth) or die "$!";
         utime $s[9], $s[9], "$ARGV[1]/$pth.html";
+        open(my $in, "<", $pth) or die "$!";
+        open(my $out, ">", "$ARGV[1]/$pth.txt") or die "$!";
+        while (<$in>) { print $out $_ };
+        close $out;
+        close $in;
+        utime $s[9], $s[9], "$ARGV[1]/$pth.txt";
     }
 } elsif ($ARGV[0] eq "dot") {
     print "digraph d {\n";