use My::Web;
-our $HTML_TEST=0;
+our $HTML_TEST="download";
+our $HTML_TEST_QUERY_STRING="cvs=MyWeb";
sub handler
{
my $W=My::Web->init(
"header_only"=>1,
"args_check"=>{
- "cvs"=>'^[\w\d][\w\d/.]*$',
+ "cvs"=>'^[\w\d][-\w\d/.]*$',
},
+ "content_type"=>"text/plain",
+ "http_safe"=>0, # cvs(1) downloads.
);
My::Web->heading();
-$W->{"r"}->content_type("text/plain");
local *F;