'My::Web->heading();' is no longer compatible with: My::Web->http_moved()

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

diff --git a/project/Rel.pm b/project/Rel.pm
index 5832868..1cb01ae 100755 (executable)
--- a/project/Rel.pm
+++ b/project/Rel.pm
@@ -28,7 +28,9 @@ use Apache2::Const qw(HTTP_MOVED_PERMANENTLY);
 Wrequire 'project::Lib';
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
+our $HTML_TEST_RC=HTTP_MOVED_PERMANENTLY;
+our $HTML_TEST_QUERY_STRING='project=MyWeb&rel=next';
 
 sub handler
 {
@@ -37,6 +39,7 @@ my $W=My::Web->init(
                                "rel"=>'^(?:prev|next)$',
                                "project"=>'^\w+$',
                                },
+               "header_only"=>1,
                );
 
 
@@ -66,6 +69,5 @@ for (0..$#projects) {
        }
 
 My::Web->http_moved("./".(!$target ? "" : "$target/"),HTTP_MOVED_PERMANENTLY);
-die "NOTREACHED";
 }
 1;