[interchange-cvs] interchange - heins modified lib/Vend/Server.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Jul 26 18:55:00 EDT 2003


User:      heins
Date:      2003-07-26 21:55:58 GMT
Modified:  lib/Vend Server.pm
Log:
* Never set a cookie when mv_tmp_session in effect.

Revision  Changes    Path
2.37      +5 -3      interchange/lib/Vend/Server.pm


rev 2.37, prev_rev 2.36
Index: Server.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Server.pm,v
retrieving revision 2.36
retrieving revision 2.37
diff -u -r2.36 -r2.37
--- Server.pm	11 Jul 2003 17:25:34 -0000	2.36
+++ Server.pm	26 Jul 2003 21:55:58 -0000	2.37
@@ -1,6 +1,6 @@
 # Vend::Server - Listen for Interchange CGI requests as a background server
 #
-# $Id: Server.pm,v 2.36 2003/07/11 17:25:34 mheins Exp $
+# $Id: Server.pm,v 2.37 2003/07/26 21:55:58 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -26,7 +26,7 @@
 package Vend::Server;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.36 $, 10);
+$VERSION = substr(q$Revision: 2.37 $, 10);
 
 use POSIX qw(setsid strftime);
 use Vend::Util;
@@ -528,7 +528,9 @@
 		else { print $fh "HTTP/1.0 $status\r\n"; }
 	}
 
-	if ( (	! $Vend::CookieID && ! $::Instance->{CookiesSet}
+	if ( ! $Vend::tmp_session
+		and (
+			! $Vend::CookieID && ! $::Instance->{CookiesSet}
 			or defined $Vend::Expire
 			or defined $::Instance->{Cookies}
 		  )







More information about the interchange-cvs mailing list