txt2pre: allow overriding title via env

This will allow reasonable titles to be generated for
manpages.

1 files changed, 2 insertions, 1 deletions

diff --git a/Documentation/txt2pre b/Documentation/txt2pre
index 72de0b79..2f1799fc 100755
--- a/Documentation/txt2pre
+++ b/Documentation/txt2pre
@@ -11,7 +11,8 @@ use PublicInbox::Linkify;
 use PublicInbox::Hval qw(ascii_html);
 
 my $str = eval { local $/; <> };
-my ($title) = ($str =~ /\A([^\n]+)/);
+my $title = $ENV{TITLE};
+($title) = ($str =~ /\A([^\n]+)/) unless $title;
 $title = ascii_html($title);
 my $l = PublicInbox::Linkify->new;
 $str = $l->linkify_1($str);