diff --git a/lib/Pod/Simple/HTML.pm b/lib/Pod/Simple/HTML.pm index 6e9359c..bbacd11 100644 --- a/lib/Pod/Simple/HTML.pm +++ b/lib/Pod/Simple/HTML.pm @@ -35,8 +35,8 @@ $Perldoc_URL_Postfix = '' unless defined $Perldoc_URL_Postfix; -our $Man_URL_Prefix = 'http://man.he.net/man'; -our $Man_URL_Postfix = ''; +our $Man_URL_Prefix = 'https://man7.org/linux/man-pages/man'; +our $Man_URL_Postfix = '.html'; our $Title_Prefix; $Title_Prefix = '' unless defined $Title_Prefix; @@ -59,7 +59,7 @@ __PACKAGE__->_accessorize( # In turning L into http://whatever/man/1/crontab, what # to put before the "1/crontab". 'man_url_postfix', - # what to put after the "1/crontab" in the URL. Normally "". + # what to put after the "1/crontab" in the URL. Normally ".html". 'batch_mode', # whether we're in batch mode 'batch_mode_current_level', @@ -797,7 +797,7 @@ sub resolve_man_page_link { $section ||= 1; return $self->man_url_prefix . "$section/" - . $self->manpage_url_escape($page) + . $self->manpage_url_escape($page) . ".$section" . $self->man_url_postfix; } @@ -1136,11 +1136,6 @@ This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. -=head1 ACKNOWLEDGEMENTS - -Thanks to L for permission to use its -L site for man page links. - =head1 AUTHOR Pod::Simple was created by Sean M. Burke . diff --git a/lib/Pod/Simple/XHTML.pm b/lib/Pod/Simple/XHTML.pm index 84c3a2d..8b4e184 100644 --- a/lib/Pod/Simple/XHTML.pm +++ b/lib/Pod/Simple/XHTML.pm @@ -131,11 +131,12 @@ default. In turning C<< L >> into http://whatever/man/1/crontab, what to put before the "1/crontab". The default value is -"http://man.he.net/man". +"https://man7.org/linux/man-pages/man". =head2 man_url_postfix -What to put after "1/crontab" in the URL. This option is not set by default. +What to put after "1/crontab" in the URL. +This option is set to ".html" by default. =head2 title_prefix, title_postfix @@ -276,7 +277,7 @@ sub new { my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->perldoc_url_prefix('https://metacpan.org/pod/'); - $new->man_url_prefix('http://man.he.net/man'); + $new->man_url_prefix('https://man7.org/linux/man-pages/man'); $new->html_charset('ISO-8859-1'); $new->nix_X_codes(1); $new->{'scratch'} = ''; @@ -774,14 +775,12 @@ sub resolve_pod_page_link { Resolves a man page link target and numeric section to a URL. The resulting link will be returned for the above examples as: - http://man.he.net/man5/crontab - http://man.he.net/man1/crontab + https://man7.org/linux/man-pages/man5/crontab.5.html + https://man7.org/linux/man-pages/man1/crontab.1.html Note that the first argument is required. The section number will be parsed from it, and if it's missing will default to 1. The second argument is -currently ignored, as L does not currently -include linkable IDs or anchor names in its pages. Subclass to link to a -different man page HTTP server. +currently ignored. Subclass to link to a different man page HTTP server. =cut @@ -905,11 +904,6 @@ This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. -=head1 ACKNOWLEDGEMENTS - -Thanks to L for permission to use its -L site for man page links. - =head1 AUTHOR Pod::Simple::XHTML was created by Allison Randal . diff --git a/t/fcodes_s.t b/t/fcodes_s.t index 8c9f1ce..f90e63d 100644 --- a/t/fcodes_s.t +++ b/t/fcodes_s.t @@ -215,7 +215,8 @@ is( # Test HTML output of links. use Pod::Simple::HTML; my $PERLDOC = "https://metacpan.org/pod"; -my $MANURL = "http://man.he.net/man"; +my $MANURL = "https://man7.org/linux/man-pages/man"; +my $MANURL_POSTFIX = ".html"; sub x { Pod::Simple::HTML->_out( sub { $_[0]->bare_output(1) }, @@ -240,7 +241,7 @@ is( is( x(qq{L\n}), - qq{\n

crontab(5)

\n} + qq{\n

crontab(5)

\n} ); is( @@ -300,12 +301,12 @@ is( is( x(qq{L\n}), - qq{\n

things

\n} + qq{\n

things

\n} ); is( x(qq{L\n}), - qq{\n

things

\n} + qq{\n

things

\n} ); is( diff --git a/t/xhtml01.t b/t/xhtml01.t index 22c6f41..8ccc205 100644 --- a/t/xhtml01.t +++ b/t/xhtml01.t @@ -11,7 +11,8 @@ isa_ok ($parser, 'Pod::Simple::XHTML'); my $results; my $PERLDOC = "https://metacpan.org/pod"; -my $MANURL = "http://man.he.net/man"; +my $MANURL = "https://man7.org/linux/man-pages/man"; +my $MANURL_POSTFIX = ".html"; initialize($parser, $results); $parser->parse_string_document( "=head1 Poit!" ); @@ -788,11 +789,11 @@ is $parser->resolve_pod_page_link('perlpod', 'this that'), 'POD link with fragment with space'; is $parser->resolve_man_page_link('crontab(5)', 'EXAMPLE CRON FILE'), - "${MANURL}5/crontab", 'Man link with fragment'; + "${MANURL}5/crontab${MANURL_POSTFIX}", 'Man link with fragment'; is $parser->resolve_man_page_link('crontab(5)'), - "${MANURL}5/crontab", 'Man link without fragment'; + "${MANURL}5/crontab${MANURL_POSTFIX}", 'Man link without fragment'; is $parser->resolve_man_page_link('crontab'), - "${MANURL}1/crontab", 'Man link without section'; + "${MANURL}1/crontab${MANURL_POSTFIX}", 'Man link without section'; # Make sure that batch_mode_page_object_init() works. ok $parser->batch_mode_page_object_init(0, 0, 0, 0, 6),