Roxen.git/ server/ protocols/ http.pike

Branch: Tag:

1997-02-13

1997-02-13 13:01:14 by Per Hedbor <ph@opera.com>

Many changes, now uses normal pike, and replace_master. Requires the new module system.

Rev: server/base_server/cache.pike:1.10
Rev: server/base_server/color.pike:1.6
Rev: server/base_server/config/builders.pike:1.4
Rev: server/base_server/config/describers.pike:1.18
Rev: server/base_server/config/draw_things.pike:1.17
Rev: server/base_server/config/low_describers.pike:1.4
Rev: server/base_server/configuration.pike:1.13
Rev: server/base_server/db.pike:1.5
Rev: server/base_server/disk_cache.pike:1.13
Rev: server/base_server/fonts.pike:1.2
Rev: server/base_server/hosts.pike:1.9
Rev: server/base_server/language.pike:1.7
Rev: server/base_server/mainconfig.pike:1.32
Rev: server/base_server/newdecode.pike:1.5
Rev: server/base_server/persistent.pike:1.5
Rev: server/base_server/read_config.pike:1.8
Rev: server/base_server/roxen.pike:1.36
Rev: server/base_server/roxenlib.pike:1.15
Rev: server/base_server/roxenloader.pike:1.7
Rev: server/base_server/socket.pike:1.4
Rev: server/etc/include/stdio.h:1.2(DEAD)
Rev: server/etc/roxen_master.pike:1.21
Rev: server/modules/directories/directories.pike:1.8
Rev: server/modules/filesystems/secure_fs.pike:1.6
Rev: server/modules/filesystems/userfs.pike:1.9
Rev: server/modules/graphics/graphic_text.pike:1.26
Rev: server/modules/misc/contenttypes.pike:1.6
Rev: server/modules/misc/ismap.pike:1.6
Rev: server/modules/misc/userdb.pike:1.9
Rev: server/modules/scripting/pikescript.pike:1.7
Rev: server/modules/tags/htmlparse.pike:1.22
Rev: server/protocols/http.pike:1.18

1:   // This is a roxen module. (c) Informationsvävarna AB 1996.       - string cvs_version = "$Id: http.pike,v 1.17 1997/02/07 23:33:21 per Exp $"; + string cvs_version = "$Id: http.pike,v 1.18 1997/02/13 13:01:14 per Exp $";   // HTTP protocol module.   #include <config.h>   inherit "roxenlib";
84:   private void setup_pipe(int noend)   {    if(!my_fd) return end(); -  if(!pipe) pipe=((program)"/precompiled/pipe")(); +  if(!pipe) pipe=Pipe.pipe();   #ifdef REQUEST_DEBUG    perror("REQUEST: Pipe setup.\n");   #endif
377:    break;       case "pragma": -  pragma|=aggregate_multiset(@explode(replace(contents, " ", ""), ",")); +  pragma|=aggregate_multiset(@replace(contents, " ", "")/ ",");    break;       case "user-agent":    sscanf(contents, "%s via", contents); -  client = explode(contents, " ") - ({ "" }); +  client = contents/" " - ({ "" });    break;       case "referer":
409:    case "message-id":    case "from":    if(misc[linename]) -  misc[linename] += explode(contents-" ", ","); +  misc[linename] += (contents-" ") / ",";    else -  misc[linename] = explode(contents-" ", ","); +  misc[linename] = (contents-" ") / ",";    break;       case "cookie": /* This header is quite heavily parsed */
535:   #endif    if(mappingp(file) && objectp(file->file))    destruct(file->file); -  if(objectp(pipe) && pipe != previous_object()) -  destruct(pipe); +     my_fd = 0;    destruct();   }
742:    foreach(indices(heads), h)    if(arrayp(heads[h]))    foreach(heads[h], tmp) -  myheads += ({ sum(h,": ", tmp)}); +  myheads += ({ `+(h,": ", tmp)});    else -  myheads += ({ sum(h, ": ", heads[h])}); +  myheads += ({ `+(h, ": ", heads[h])});          if(file->len > -1)