2 # Copyright (C) 2014-2021 all contributors <meta@public-inbox.org>
3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
5 # Stupid script to make HTML from preformatted, utf-8 text versions,
6 # only generating links for http(s). Markdown does too much
7 # and requires indentation to output preformatted text.
10 use PublicInbox::Linkify;
11 use PublicInbox::Hval qw(ascii_html);
24 lei-forget-external(1)
25 lei-forget-mail-sync(1)
39 lei-mail-sync-overview(7)
44 lei-refresh-mail-sync(1)
54 public-inbox-config(5)
55 public-inbox-config(5)
56 public-inbox-convert(1)
57 public-inbox-daemon(8)
60 public-inbox-glossary(7)
69 public-inbox-overview(7)
72 public-inbox-v1-format(5)
73 public-inbox-v2-format(5)
77 my ($n) = (/([\w\-\.]+)/);
78 $xurls{$_} = "$n.html";
79 $xurls{$n} = "$n.html";
82 for (qw[make(1) flock(2) setrlimit(2) vfork(2) tmpfs(5) inotify(7) unix(7)
84 my ($n, $s) = (/([\w\-]+)\((\d)\)/);
85 $xurls{$_} = "https://www.man7.org/linux/man-pages/man$s/$n.$s.html";
104 gitrepository-layout(5)
107 my ($n) = (/([\w\-\.]+)/);
108 $xurls{$_} = "https://kernel.org/pub/software/scm/git/docs/$n.html"
117 my ($n) = (/([\w\-\.]+)/);
118 $xurls{$_} = "https://www.freedesktop.org/software/systemd/man/$n.html";
121 # favor upstream docs if they exist, use manpages.debian.org if they don't
122 $xurls{'netrc(5)'} = 'https://manpages.debian.org/stable/ftp/netrc.5.en.html';
123 $xurls{'mbsync(1)'} =
124 'https://manpages.debian.org/stable/isync/mbsync.1.en.html';
125 $xurls{'offlineimap(1)'} =
126 'https://manpages.debian.org/stable/offlineimap/offlineimap.1.en.html';
128 'https://spamassassin.apache.org/full/3.4.x/doc/spamc.html';
129 $xurls{'grok-pull'} =
130 'https://git.kernel.org/pub/scm/utils/grokmirror/grokmirror.git' .
131 '/tree/man/grok-pull.1.rst';
132 $xurls{'git-filter-repo(1)'} = 'https://github.com/newren/git-filter-repo'.
133 '/blob/master/Documentation/git-filter-repo.txt';
134 $xurls{'ssoma(1)'} = 'https://ssoma.public-inbox.org/ssoma.txt';
135 $xurls{'cgitrc(5)'} = 'https://git.zx2c4.com/cgit/tree/cgitrc.5.txt';
136 $xurls{'prove(1)'} = 'https://perldoc.perl.org/prove.html';
137 $xurls{'mbox(5)'} = 'https://manpages.debian.org/stable/mutt/mbox.5.en.html';
138 $xurls{'mmdf(5)'} = 'https://manpages.debian.org/stable/mutt/mmdf.5.en.html';
139 $xurls{'mutt(1)'} = 'https://manpages.debian.org/stable/mutt/mutt.1.en.html';
140 $xurls{'torsocks(1)'} =
141 'https://manpages.debian.org/stable/torsocks/torsocks.1.en.html';
142 $xurls{'curl(1)'} = 'https://manpages.debian.org/stable/curl/curl.1.en.html';
143 $xurls{'copydatabase(1)'} =
144 'https://manpages.debian.org/stable/xapian-tools/copydatabase.1.en.html';
145 $xurls{'xapian-compact(1)'} =
146 'https://manpages.debian.org/stable/xapian-tools/xapian-compact.1.en.html';
147 $xurls{'gzip(1)'} = 'https://manpages.debian.org/stable/gzip/gzip.1.en.html';
149 'https://manpages.debian.org/stable/coreutils/chmod.1.en.html';
150 $xurls{'kqueue(2)'} =
151 'https://www.freebsd.org/cgi/man.cgi?query=kqueue&sektion=2';
152 $xurls{'notmuch(1)'} = 'https://notmuchmail.org/manpages/notmuch-1/';
153 $xurls{'mairix(1)'} =
154 'https://manpages.debian.org/stable/mairix/mairix.1.en.html';
156 my $str = do { local $/; <STDIN> };
157 my ($title) = ($str =~ /\A([^\n]+)/);
158 if ($str =~ /^NAME\n\s+([^\n]+)/sm) {
159 # don't link to ourselves
161 if ($title =~ /([\w\.\-]+)/) {
165 $title = ascii_html($title);
166 my $l = PublicInbox::Linkify->new;
167 $str = $l->linkify_1($str);
168 $str = ascii_html($str);
170 # longest matches, first
171 my @keys = sort { length($b) <=> length($a) } keys %xurls;
172 my $xkeys = join('|', map { quotemeta } @keys);
173 $str =~ s,(?<![>\w_])($xkeys)(?!(?:[\w<\-]|\.html)),
174 qq(<a\nhref=").$xurls{$1}.qq(">$1).($2//'').'</a>',sge;
176 $str = $l->linkify_2($str);
178 print '<html><head>',
179 qq(<meta\nhttp-equiv="Content-Type"\ncontent="text/html; charset=utf-8"\n/>),
180 "<title>$title</title>",
181 "</head><body><pre>", $str , '</pre></body></html>';