use My::Web;
-our $HTML_TEST=0;
+our $HTML_TEST_QUERY_STRING=[
+ "cvs=captive/src/libcaptive/ke/captivesym.pl",
+ "cvs=macros/AutoGen.pm",
+ ];
sub handler
{
my $W=My::Web->init(
- "header_only"=>1,
"args_check"=>{
"cvs"=>'^[\w\d][\w\d/.]*$',
},
+ # 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.
);
+My::Web->heading();
-$W->{"r"}->content_type("text/html");
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;
-exit 0;
+exit;
}
1;