Allow '-' (dash) in the retrieved project directory.

[www.jankratochvil.net.git] / project / Pod2Html.pm

diff --git a/project/Pod2Html.pm b/project/Pod2Html.pm
index dbcedd5..2c785f4 100755 (executable)
--- a/project/Pod2Html.pm
+++ b/project/Pod2Html.pm
@@ -26,8 +26,10 @@ use warnings;
 use My::Web;
 
 
-our $HTML_TEST="download";     # FIXME: See below!
-our $HTML_TEST_QUERY_STRING="cvs=captive/src/libcaptive/ke/captivesym.pl";
+our $HTML_TEST_QUERY_STRING=[
+       "cvs=captive/src/libcaptive/ke/captivesym.pl",
+       "cvs=macros/AutoGen.pm",
+       ];
 
 sub handler
 {
@@ -35,12 +37,11 @@ my $W=My::Web->init(
                "args_check"=>{
                                "cvs"=>'^[\w\d][\w\d/.]*$',
                                },
-               # FIXME:
-               # Do not: # Do not: "content_type"=>"text/html",
-               #         # or whatever as pod2html(1) already produces XHTML.
-               #         "header_only"=>"xml",
-               # as currently pod2html(1) produces invalid XHTML for: .../captivesym.pl
-               "content_type"=>"text/html",
+               # Requires: Pod::Html patch from: Perl Bug # 37250
+               # From: <rt-3.0.11-37250-122352.19.7520280058314@perl.org>
+               # Do not: "content_type"=>"text/html",
+               # or whatever as pod2html(1) already produces XHTML.
+               "header_only"=>"xml",
                "header_only"=>1,
                "http_safe"=>0, # lynx(1) downloads.
                );
@@ -49,7 +50,8 @@ My::Web->heading();
 
 local *F;
 open F,"lynx -source ".$W->{"project_viewcvs"}."*checkout*/".$W->{"args"}{"cvs"}."?rev=HEAD"
-               ." |pod2html -"
+               # FIXME: "/tmp" - dangerous, not unique, currently creates: pod2htmd.tmp pod2htmi.tmp
+               ." |pod2html --cachedir=/tmp -"
                ." |";
 print $_ while <F>;
 close F;