util/mkpod2html.pl: Fix unbalanced quotes
[openssl.git] / util / mkpod2html.pl
1 #! /usr/bin/env perl
2 # Copyright 2020 The OpenSSL Project Authors. All Rights Reserved.
3 #
4 # Licensed under the Apache License 2.0 (the "License").  You may not use
5 # this file except in compliance with the License.  You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
8
9 use strict;
10 use warnings;
11
12 use lib ".";
13 use Getopt::Std;
14 use Pod::Html;
15
16 # Options.
17 our($opt_i);    # -i INFILE
18 our($opt_o);    # -o OUTFILE
19 our($opt_t);    # -t TITLE
20 our($opt_r);    # -r PODROOT
21
22 getopts('i:o:t:r:');
23 die "-i flag missing" unless $opt_i;
24 die "-o flag missing" unless $opt_o;
25 die "-t flag missing" unless $opt_t;
26 die "-r flag missing" unless $opt_r;
27
28 pod2html
29     "--infile=$opt_i",
30     "--outfile=$opt_o",
31     "--title=$opt_t",
32     "--podroot=$opt_r",
33     "--podpath=man1:man3:man5:man7",
34     "--htmldir=..";
35
36 # Read in contents.
37 open F, "<$opt_o"
38     or die "Can't read $opt_o, $!";
39 my $contents = '';
40 {
41     local $/ = undef;
42     $contents = <F>;
43 }
44 close F;
45 unlink $opt_o;
46
47 $contents =~
48     s|href="http://man\.he\.net/(man\d/[^"]+)(?:\.html)?"|href="../$1.html"|g;
49 open F, ">$opt_o"
50     or die "Can't write $opt_o, $!";
51 print F $contents;
52 close F;