Roxen.git/ server/ protocols/ http.pike

1998-04-24

1998-04-24 08:44:53 by Per Hedbor <ph@opera.com>

• 9211b2058510076e6daa25841670c35ecfe80315 (49 lines) (+26/-23) ^{[ Show | Annotate ]}
  Branch: 5.2

Fixed so HTTP will not time out when using keep alive. Removed extra_extension.

Rev: server/protocols/http.pike:1.94

1: - // This is a roxen module. Copyright © 1996 - 1998, Idonex AB. + // This is a roxen module. + // Copyright © 1996 - 1998, Idonex AB.    - constant cvs_version = "$Id: http.pike,v 1.93 1998/04/13 04:36:17 neotron Exp $"; + constant cvs_version = "$Id: http.pike,v 1.94 1998/04/24 08:44:53 per Exp $";   // HTTP protocol module.   #include <config.h>   private inherit "roxenlib";
25:   #define MARK_FD(X)   #endif    - constant decode=roxen->decode; - constant find_supports=roxen->find_supports; - constant version=roxen->version; - constant handle=roxen->handle; - constant _query=roxen->query; - constant thepipe = roxen->pipe; - constant _time=predef::time; + constant decode = MIME.decode_base64; + constant find_supports = roxen->find_supports; + constant version = roxen->version; + constant handle = roxen->handle; + constant _query = roxen->query; + constant thepipe = roxen->pipe; + constant _time = predef::time;      private static array(string) cache;   private static int wanted_data, have_data;
48:   #define QUERY(X) _query("X")   #endif /* constant(cpp) */    - int time = predef::time(1); + int time;   string raw_url;   int do_not_disconnect;   mapping (string:string) variables = ([ ]); - mapping (string:mixed) misc = ([ ]); - mapping (string:string) cookies = ([ ]); + mapping (string:mixed) misc = ([ ]); + mapping (string:string) cookies = ([ ]);      multiset (string) prestate = (< >);   multiset (string) config = (< >);
80:   string raw;   string query;   string not_query; - string extra_extension = ""; // special hack for the language module + // string extra_extension = ""; // special hack for the language module   string data, leftovers;   array (int|string) auth;   string rawauth, realauth;
336:    have_data=strlen(data);       if(strlen(data) <= l) // \r are included. -  { +     return 0; -  } +     leftovers = data[l+1..];    data = data[..l];    switch(lower_case(((misc["content-type"]||"")/";")[0]-" "))
623:    disconnect();   }    - static void do_timeout(mapping foo) + static void do_timeout()   { -  +  werror("do_timeout() called, time="+time+"; time()="+_time()+"\n");    int elapsed = _time()-time; -  if(elapsed >= 30) +  if(time && elapsed >= 30)    {    MARK_FD("HTTP timeout");    end("HTTP/1.0 408 Timeout\r\n"
1018:    remove_call_out(do_timeout);    call_out(do_timeout, 30); // Close down if we don't get more data    // within 30 seconds. Should be more than enough. +  time = _time(1);    if(wanted_data)    {    if(strlen(s)+have_data < wanted_data)
1105:    c->raw = raw;    c->query = query;    c->not_query = not_query; -  c->extra_extension = extra_extension; +     c->data = data;       c->auth = auth;
1143:    my_fd = f;    conf = c;    do_not_disconnect=-1; +  MARK_FD("Kept alive");    if(strlen(le))    // More to handle already.    got_data(0,le); -  else -  // If no pipelined data is available, call out... -  call_out(do_timeout, 15); + // else + // // If no pipelined data is available, call out... + // call_out(do_timeout, 150);       if(!my_fd)    {