[openssl-commits] [web] master update

Richard Levitte levitte at openssl.org
Fri Nov 11 11:54:55 UTC 2016


The branch master has been updated
       via  363f51eb77bae60f527c62a773472742c2bbfe1e (commit)
      from  1a14f11cca34636357f9c5e5b5c249257285ac99 (commit)


- Log -----------------------------------------------------------------
commit 363f51eb77bae60f527c62a773472742c2bbfe1e
Author: Richard Levitte <levitte at openssl.org>
Date:   Fri Nov 11 12:54:43 2016 +0100

    Less messing around with links, let Pod::Simple::XHTML do its job

-----------------------------------------------------------------------

Summary of changes:
 bin/mk-manmaster | 30 ++++--------------------------
 1 file changed, 4 insertions(+), 26 deletions(-)

diff --git a/bin/mk-manmaster b/bin/mk-manmaster
index 6ae1317..64789b5 100755
--- a/bin/mk-manmaster
+++ b/bin/mk-manmaster
@@ -1,21 +1,5 @@
 #! /usr/bin/perl
 
-{
-    package Local::PSX;
-    use Pod::Simple::XHTML;
-    use parent qw(Pod::Simple::XHTML);
-
-    sub resolve_man_page_link {
-        my ( $self, $to, $section ) = @_;
-        return undef unless defined $to;
-        my ( $page, $part ) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/;
-        return undef unless $page;
-
-        return ( $self->man_url_prefix || '' )
-          . $self->encode_entities($page) . ( $self->man_url_postfix || '' );
-    }
-}
-
 package Local::MkManPages;
 
 use strict;
@@ -24,6 +8,7 @@ use File::Basename qw(basename);
 use File::Spec ();
 use Getopt::Long qw(GetOptionsFromArray);
 use Pod::Usage qw(pod2usage);
+use Pod::Simple::XHTML;
 
 __PACKAGE__->run(@ARGV);
 
@@ -87,19 +72,12 @@ sub genhtml {
     open( my $fh, $filename ) || $class->die("Can't open $filename: $!");
     my $infile = do { local $/; <$fh>; };
 
-    # L<asdf...|qwer...> ==> L<qwer>
-    $infile =~ s/L<[^|>]*\|([^>]+)>/L<$1>/g;
-
-    # L<asdf(x)> --> L<asdf>
-    $infile =~ s/L<([^>]+)\(\d\)>/L<$1>/g;
-
     my $out;
-    my $pod = Local::PSX->new;
+    my $pod = Pod::Simple::XHTML->new;
     $pod->html_h_level(3);
-    $pod->perldoc_url_prefix(
-        "https://www.openssl.org/docs/man$release/$section/");
+    $pod->perldoc_url_prefix("https://www.openssl.org/docs/man$release/man");
     $pod->perldoc_url_postfix(".html");
-    $pod->man_url_prefix("https://www.openssl.org/docs/man$release/$section/");
+    $pod->man_url_prefix("https://www.openssl.org/docs/man$release/man");
     $pod->man_url_postfix(".html");
     $pod->html_header($header);
     $pod->html_footer($footer);


More information about the openssl-commits mailing list