X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=Index.pm;h=6a82f5b65ca1f8ef86e4985027936380b5e8fec1;hp=576b2de22c5f5cc4c2893f1fbc0b2e96073546bc;hb=refs%2Fheads%2Fapache20;hpb=19c5ad8e26ac320516b8427c416a9195ce4fea48

diff --git a/Index.pm b/Index.pm
index 576b2de..6a82f5b 100644
--- a/Index.pm
+++ b/Index.pm
@@ -24,22 +24,15 @@ use strict;
 use warnings;
 
 use My::Web;
-use Apache2::Const qw(HTTP_MOVED_TEMPORARILY);
+use Apache2::Const qw(HTTP_MOVED_PERMANENTLY);
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
+our $HTML_TEST_RC=HTTP_MOVED_PERMANENTLY;
 
 sub handler
 {
-my $W=My::Web->init(
-		"header_only"=>1,
-		);
-
-
-$W->{"r"}->status(HTTP_MOVED_TEMPORARILY);
-$W->{"r"}->headers_out()->{"Location"}="http://".$W->{"web_hostname"}."/project/";
-
-
-exit 0;
+my $W=My::Web->init();
+My::Web->http_moved("./project/",HTTP_MOVED_PERMANENTLY);
 }
 1;