Skip Menu |
 

This queue is for tickets about the Apache-Pod CPAN distribution.

Report information
The Basics
Id: 4922
Status: resolved
Priority: 0/
Queue: Apache-Pod

People
Owner: Nobody in particular
Requestors: bdfoy [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.03
Fixed in: (no value)



Subject: Wishlist item: Apache::Pod::HTML creates links to other docs in HTML
I would like Apache::Pod to turn L<> POD escapes into self-referential links.
Download (untitled) / with headers
text/plain 153b
Attached patch. By default in 0.10, L<> goes to search.cpan.org. With this patch and another PerlSetVar, the links come back to the originating server.
Download HTML.patch
text/x-diff 1.2k
--- /usr/local/lib/perl5/site_perl/5.8.2/Apache/Pod/HTML.pm 2004-05-24 16:17:00.000000000 -0500 +++ HTML.pm 2005-07-12 10:17:09.000000000 -0500 @@ -46,6 +46,7 @@ SetHandler perl-script PerlHandler Apache::Pod::HTML PerlSetVar STYLESHEET auto + PerlSetVar MODULELINK LOCAL </Location> You can then get documentation for a module C<Foo::Bar> at the URL @@ -63,6 +64,11 @@ to be used. If you prefer, you can replace the word 'auto' with the URL of your own custom stylesheet file. +Specifying an optional C<MODULELINK> variable changes the external +HTTP links to use a URL prefix of your specification instead of using +L<Pod::Simple::HTML>'s default. Using the magic word C<LOCAL> will make +links local instead of external. + =cut sub handler { @@ -84,6 +90,11 @@ $parser->complain_stderr(1); $parser->output_string( \$body ); $parser->index( 1 ); + if (my $prefix = $r->dir_config('MODULELINK')) { + $prefix eq 'LOCAL' ? + $parser->perldoc_url_prefix($r->location . '/') : + $parser->perldoc_url_prefix($prefix); + } $parser->parse_file( $file ); # TODO: Send the timestamp of the file in the header
Download (untitled) / with headers
text/plain 209b
[PETEK - Tue Jul 12 16:38:29 2005]: Show quoted text
> Attached patch. By default in 0.10, L<> goes to search.cpan.org.
I should mention the default L<> behaviour comes from Pod::Simple::HTML and not from Apache::Pod::HTML.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.