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

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

diff --git a/project/ChangeLog.pm b/project/ChangeLog.pm
index 47d2bd4..4cae2ac 100755 (executable)
--- a/project/ChangeLog.pm
+++ b/project/ChangeLog.pm
@@ -26,19 +26,22 @@ use warnings;
 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;
 open F,""
                ."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
@@ -49,6 +52,6 @@ print $_ while <F>;
 close F;
 
 
-exit 0;
+exit;
 }
 1;