about summary refs log tree commit homepage
path: root/Documentation/extman.perl
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-11-03 21:01:21 +0000
committerEric Wong <e@80x24.org>2021-11-04 03:29:33 +0000
commit0b73ad048e715065efc3ed3eb1c376e945957693 (patch)
treeb0c3fa1fe372448817f4b028c2214be96645ad9c /Documentation/extman.perl
parent59f48f29b59a941acc620cef1062e7249b92c528 (diff)
downloadpublic-inbox-0b73ad048e715065efc3ed3eb1c376e945957693.tar.gz
curl, torsocks, and gitglossary manpages are all newly
referenced, so make sure they're linkified properly in HTML.
We'll be using Debian's manpages as an ad-free, Tor-accessible
host for manpages as a fallback since hosting manpages for all
3rd-party projects we reference doesn't scale.
Diffstat (limited to 'Documentation/extman.perl')
-rwxr-xr-xDocumentation/extman.perl33
1 files changed, 0 insertions, 33 deletions
diff --git a/Documentation/extman.perl b/Documentation/extman.perl
deleted file mode 100755
index c6cfb4c5..00000000
--- a/Documentation/extman.perl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl -w
-# Copyright (C) 2019-2021 all contributors <meta@public-inbox.org>
-# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-# prints a manpage to stdout
-use strict;
-my $xapmsg = 'See https://xapian.org/ for more information on Xapian';
-my $usage = "$0 /path/to/manpage.SECTION.txt";
-my $manpage = shift or die $usage;
-my $MAN = $ENV{MAN} || 'man';
-my @args;
-$manpage = (split('/', $manpage))[-1];
-$manpage =~ s/\.txt\z//;
-$manpage =~ s/\A\.//; # no leading dot (see Documentation/include.mk)
-$manpage =~ s/\.(\d+.*)\z// and push @args, $1; # section
-push @args, $manpage;
-
-# don't use UTF-8 characters which readers may not have fonts for
-$ENV{LC_ALL} = $ENV{LANG} = 'C';
-$ENV{COLUMNS} = '76'; # same as pod2text default
-$ENV{PAGER} = 'cat';
-my $cmd = join(' ', $MAN, @args);
-system($MAN, @args) and die "$cmd failed: $!\n";
-$manpage =~ /\A(?:copydatabase|xapian-compact)\z/ and
-        print "\n\n", $xapmsg, "\n";
-
-# touch -r $(man -w $section $manpage) output.txt
-if (-f \*STDOUT) {
-        open(my $fh, '-|', $MAN, '-w', @args) or die "$MAN -w broken?: $!\n";
-        chomp(my $path = <$fh>);
-        my @st = stat($path) or die "stat($path) failed: $!\n";
-        # 9 - mtime
-        utime($st[9], $st[9], \*STDOUT) or die "utime(STDOUT) failed: $!\n";
-}