[interchange-cvs] interchange - kwalsh modified dist/src/mod_perl2/Interchange/Link.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Dec 9 20:00:58 EST 2006


User:      kwalsh
Date:      2006-12-10 01:00:58 GMT
Modified:  dist/src/mod_perl2/Interchange Link.pm
Log:
    * Allow [bounce ... statue="301"] to work properly with Interchange::Link.
      Patch submitted by Grant <emailgrant at gmail.com> - thanks Grant!

Revision  Changes    Path
1.12      +4 -3      interchange/dist/src/mod_perl2/Interchange/Link.pm


rev 1.12, prev_rev 1.11
Index: Link.pm
===================================================================
RCS file: /var/cvs/interchange/dist/src/mod_perl2/Interchange/Link.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- Link.pm	9 Dec 2006 20:46:16 -0000	1.11
+++ Link.pm	10 Dec 2006 01:00:58 -0000	1.12
@@ -2,7 +2,7 @@
 
 # Interchange::Link -- mod_perl 1.99/2.0 module for linking to Interchange
 #
-# $Id: Link.pm,v 1.11 2006/12/09 20:46:16 kwalsh Exp $
+# $Id: Link.pm,v 1.12 2006/12/10 01:00:58 kwalsh Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 use ModPerl::Registry;
 use ModPerl::Code;
 #use Apache::Const;
-use Apache2::Const;
+use Apache2::Const -compile => qw(DECLINED OK NOT_FOUND FORBIDDEN REDIRECT HTTP_MOVED_PERMANENTLY);
 use Apache2::ServerRec ();
 require Apache2::Connection;
 require Apache2::RequestRec;
@@ -48,7 +48,7 @@
 
 =head1 VERSION
 
-$Revision: 1.11 $
+$Revision: 1.12 $
 
 =head1 SYNOPSIS
 
@@ -741,6 +741,7 @@
 #warn "Doing redirect\n";
             $r->content_type($set_content);
             close (SOCK)                                or die "close: $!\n";
+            return Apache2::Const::HTTP_MOVED_PERMANENTLY if $set_status == 301;
             return Apache2::Const::REDIRECT;
         }
         elsif($set_status =~ /^404/) {








More information about the interchange-cvs mailing list