[interchange-cvs] interchange - kwalsh modified lib/Vend/Parse.pm

[interchange-core@icdevgroup.org]

User:      kwalsh
Date:      2002-11-03 14:17:15 GMT
Modified:  lib/Vend Parse.pm
Log:
	* Modified [bounce] to accept a 'status' parameter.  This allows
	  redirections to optionally use a status other than '302 moved'.

Revision  Changes    Path
2.23      +4 -3      interchange/lib/Vend/Parse.pm


rev 2.23, prev_rev 2.22
Index: Parse.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Parse.pm,v
retrieving revision 2.22
retrieving revision 2.23
diff -u -r2.22 -r2.23
--- Parse.pm	14 Aug 2002 15:32:03 -0000	2.22
+++ Parse.pm	3 Nov 2002 14:17:15 -0000	2.23
@@ -1,6 +1,6 @@
 # Vend::Parse - Parse Interchange tags
 # 
-# $Id: Parse.pm,v 2.22 2002/08/14 15:32:03 mheins Exp $
+# $Id: Parse.pm,v 2.23 2002/11/03 14:17:15 kwalsh Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -35,7 +35,7 @@
 
 @ISA = qw(Exporter Vend::Parser);
 
-$VERSION = substr(q$Revision: 2.22 $, 10);
+$VERSION = substr(q$Revision: 2.23 $, 10);
 
 @EXPORT = ();
 @EXPORT_OK = qw(find_matching_end);
@@ -642,8 +642,9 @@
 			$Vend::StatusLine .= <<EOF if $attr->{target};
 Window-Target: $attr->{target}
 EOF
+			$attr->{status} ||= '302 moved';
 			$Vend::StatusLine .= <<EOF;
-Status: 302 moved
+Status: $attr->{status}
 Location: $attr->{href}
 EOF
 			$$buf = '';