|Russ Allbery <rra@stanford.edu> wrote: ||Steffen "Daode" Nurpmeso <sdaoden@gmail.com> writes: ||> How about turning over to a simple generic approach, as in || ||> L<http://www.url1.com> ||> and/or ||> L<Some descriptive text><http://www.url2.com> [.] ||If you do decide to use POD, you may want to pick a different letter than ||I, since I<> is already a POD formatting code (for italics). D<> is safe ||to use; there's no existing formatting code. | |Well, that was just what came to my mind on saturday. |Maybe U<> (for URL)? It seems unused. I'll append an updated version that uses U<> not I<>. It also makes use of that in one case, and fixes the one messed up link i've introduced via the new N<> that can be used for URLs that should produce an <a> tag but are not checkable by curl(1) (news:). --steffen diff --git a/htwork.pl b/htwork.pl index 64f0cb3..ee85291 100755 --- a/htwork.pl +++ b/htwork.pl @@ -6,7 +6,8 @@ require 5.008_001; #@ Synopsis: htwork.pl check < DATA_FILE > NEW_DATA_FILE #@ The latter mode requires an installed curl(1) (<http://curl.haxx.se>). #@ Understood links: L<URL>, L<Text><URL>. Dead links: D<URL>, D<Text><URL>. -#@ Links that should not be converted (informational): I<URL>, I<Text><URL>. +#@ Links that should be converted to <a>, but not checked: N<URL>, N<Text><URL>. +#@ Links that should neither be converted nor checked: U<URL>, U<Text><URL>. #@ XXX Assumes links fit on one line. my $CURL = 'curl -q --silent --fail --head --location'; @@ -17,10 +18,9 @@ use diagnostics -verbose; use strict; use warnings; -# We do support L<URL> and L<text><URL>; D instead of L is for dead links. my $URL_CONTENT = qr{ (.*?) - (l|d|i) + (l|d|u|n) <([^>]+)> (?:<([^>]+)>)? (.*) @@ -64,7 +64,7 @@ veals the native languages of entry authors, cities and regions. The second mode is used in the release phase of the tz zoneinfo database and checks all L<> and L<><> links for resolvability, converting all those to D<> and D<><> (dead link) entries that -cannot be resolved. I<> and I<><> links are left alone. +cannot be resolved. This mode requires an installed curl(1) (<http://curl.haxx.se>). __EOT__ @@ -94,7 +94,7 @@ __EOT__ my $comm = lc $2; my $url = $4 ? $4 : $3; my $text = $4 ? $3 : ''; - if ($comm eq 'l') { + if ($comm eq 'l' || $comm eq 'n') { $text = $url unless $text; $ln .= '<a href="' . $url . '">' . $text . '</a>'; } else { @@ -115,7 +115,6 @@ __EOT__ </pre> </body> </html> -<!-- vim:set fenc=utf-8 syntax=html ts=8 sts=8 sw=8 noet tw=79: --> __EOT__ exit diff --git a/southamerica b/southamerica index 2e1c973..49a2adb 100644 --- a/southamerica +++ b/southamerica @@ -718,7 +718,7 @@ Zone America/La_Paz -4:32:36 - LMT 1890 # It has not yet been posted to L<http://pcdsh01.on.br/DecHV.html> # # An official page about it: -# <http://www.mme.gov.br/site/news/detail.do?newsId=16722> +# U<http://www.mme.gov.br/site/news/detail.do?newsId=16722> # Note that this link does not always work directly, but must be accessed # by going to L<http://www.mme.gov.br/first> # @@ -1473,8 +1473,7 @@ Zone America/Asuncion -3:50:40 - LMT 1890 # Peru # -# news:xrGmb.39935$gA1.13896113@news4.srv.hcvlny.cv.net -# From Evelyn C. Leeper via Mark Brader (2003-10-26):</a> +# N<From Evelyn C. Leeper via Mark Brader (2003-10-26)><news:xrGmb.39935$gA1.13896113@news4.srv.hcvlny.cv.net>: # When we were in Peru in 1985-1986, they apparently switched over # sometime between December 29 and January 3 while we were on the Amazon. #