$title

X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=Documentation%2Ftxt2pre;h=62175f3438bd26f266343b26c6350a90af15fa9e;hb=143d2aecda3649bca538b77dca63972e7a28949e;hp=04bc3b0e3921e77e440f97f7b2a2b92c71bb1f8d;hpb=60a4a6ee11a3c9126e7b825f60b2b603ac09fe33;p=public-inbox.git diff --git a/Documentation/txt2pre b/Documentation/txt2pre index 04bc3b0e..62175f34 100755 --- a/Documentation/txt2pre +++ b/Documentation/txt2pre @@ -1,15 +1,15 @@ -#!/usr/bin/env perl -# Copyright (C) 2014-2021 all contributors +#!perl -w +# n.b. this is invoked via $(PERL) in makefiles +# Copyright (C) all contributors # License: AGPL-3.0+ # # Stupid script to make HTML from preformatted, utf-8 text versions, # only generating links for http(s). Markdown does too much # and requires indentation to output preformatted text. -use strict; -use warnings; +use v5.12; use PublicInbox::Linkify; use PublicInbox::Hval qw(ascii_html); -my %xurls; +my (%xurls, %lei); for (qw[lei(1) lei-add-external(1) lei-add-watch(1) @@ -42,6 +42,7 @@ for (qw[lei(1) lei-q(1) lei-rediff(1) lei-refresh-mail-sync(1) + lei-reindex(1) lei-rm(1) lei-rm-watch(1) lei-security(7) @@ -63,8 +64,10 @@ for (qw[lei(1) public-inbox-init(1) public-inbox-learn(1) public-inbox-mda(1) + public-inbox-netd(1) public-inbox-nntpd(1) public-inbox-overview(7) + public-inbox-pop3d(1) public-inbox-purge(1) public-inbox-v1-format(5) public-inbox-v2-format(5) @@ -74,8 +77,11 @@ for (qw[lei(1) my ($n) = (/([\w\-\.]+)/); $xurls{$_} = "$n.html"; $xurls{$n} = "$n.html"; + /\Alei-(.+?)$1$\z/ and $xurls{"lei $1"} = "$n.html"; } +$xurls{'lei/store'} = 'lei-store-format.html'; + for (qw[make(1) flock(2) setrlimit(2) vfork(2) tmpfs(5) inotify(7) unix(7) syslog(3)]) { my ($n, $s) = (/([\w\-]+)$(\d)$/); @@ -158,6 +164,9 @@ if ($str =~ /^NAME\n\s+([^\n]+)/sm) { if ($title =~ /([\w\.\-]+)/) { delete $xurls{$1}; } + if ($title =~ /\blei-([\w\-]+)\b/) { + delete $xurls{"lei $1"}; + } } $title = ascii_html($title); my $l = PublicInbox::Linkify->new; @@ -177,9 +186,3 @@ print '', "$title", "

",  $str , '

'; STDOUT->flush; - -# keep mtime on website consistent so clients can cache -if (-f STDIN && -f STDOUT) { - my @st = stat(STDIN); - utime($st[8], $st[9], \*STDOUT); -}