From f9da4afb617190969832c76df4a2642d9ad7accf Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 18 Sep 2005 20:18:10 +0000
Subject: [PATCH] Unify/simplify redirects handings by: &My::Web::http_moved

---
 Redirect.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Redirect.pm b/Redirect.pm
index 25cbfb5..0c0654a 100644
--- a/Redirect.pm
+++ b/Redirect.pm
@@ -24,7 +24,7 @@ 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;
@@ -32,14 +32,11 @@ our $HTML_TEST=0;
 sub handler
 {
 my $W=My::Web->init(
-		"header_only"=>1,
 		"args_check"=>{
 				"location"=>'^\w+://',
 				},
 		);
-$W->{"r"}->status(HTTP_MOVED_TEMPORARILY);
-$W->{"r"}->headers_out()->{"Location"}=$W->{"args"}{"location"};
-
-exit 0;
+My::Web->http_moved($W->{"args"}{"location"},HTTP_MOVED_PERMANENTLY);
+die "NOTREACHED";
 }
 1;
-- 
1.8.3.1