[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