1997-07-06
1997-07-06 16:01:17 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
a773c6f0c3ffc54f3a8d258ac95ebbdc3a2815d9
(20 lines)
(+16/-4)
[
Show
| Annotate
]
Branch: 5.2
Added option for RoxenUserID cookies.
Rev: server/base_server/roxen.pike:1.80
Rev: server/protocols/http.pike:1.31
1:
// This is a roxen module. (c) Informationsvävarna AB 1996.
- string cvs_version = "$Id: http.pike,v 1.30 1997/06/11 23:19:36 grubba Exp $";
+ string cvs_version = "$Id: http.pike,v 1.31 1997/07/06 16:00:56 grubba Exp $";
// HTTP protocol module.
#include <config.h>
private inherit "roxenlib";
590: Inside #if defined(DEBUG)
#ifdef DEBUG
perror("Setting unique ID.\n");
#endif
+ if (!(QUERY(set_cookie_only_once) &&
+ cache_lookup("hosts_for_cookie",remoteaddr))) {
misc->moreheads = ([ "Set-Cookie":http_roxen_id_cookie(), ]);
}
-
+ if (QUERY(set_cookie_only_once))
+ cache_set("hosts_for_cookie",remoteaddr,1);
+ }
#ifdef DEBUG
#if DEBUG_LEVEL > 30
else
618: Inside #if defined(REQUEST_DEBUG)
#ifdef REQUEST_DEBUG
perror("REQUEST: Disconnecting...\n");
#endif
- if(mappingp(file) && objectp(file->file))
+ if(mappingp(file) && objectp(file->file)) {
+ if (file->file->context) {
+ // sslfile, object will be closed on return.
+ file->file = 0;
+ } else {
destruct(file->file);
-
+ }
+ }
#if _DEBUG_HTTP_OBJECTS
roxen->httpobjects[my_id] += " - disconnect";
#endif