Roxen.git / server / base_server / roxen.pike

version» Context lines:

Roxen.git/server/base_server/roxen.pike:1:   // This file is part of Roxen WebServer.   // Copyright © 1996 - 2004, Roxen IS.   //   // The Roxen WebServer main program.   //   // Per Hedbor, Henrik Grubbström, Pontus Hagland, David Hedbor and others.   // ABS and suicide systems contributed freely by Francesco Chemolli    - constant cvs_version="$Id: roxen.pike,v 1.937 2006/09/27 11:49:38 grubba Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.938 2006/09/29 12:43:31 jonasw Exp $";      //! @appears roxen   //!   //! The Roxen WebServer main program.      // The argument cache. Used by the image cache.   ArgCache argcache;      // Some headerfiles   #define IN_ROXEN
Roxen.git/server/base_server/roxen.pike:1265:    }    not_query = Roxen.simplify_path( scan_for_query( f ) );    return this;    }       this_program set_url( string url )    {    object uri = Standards.URI(url);    prot = upper_case(uri->scheme);    misc->host = uri->host; +  if ((prot == "HTTP" && uri->port != 80) || +  (prot == "HTTPS" && uri->port != 443)) +  misc->host += ":" + uri->port;    string path = uri->path;    raw_url = path;    method = "GET";    raw = "GET " + raw_url + " HTTP/1.1\r\n\r\n";    array(Protocol) port_array = ({ 0 });    conf = find_configuration_for_url(uri, 0, port_array);    port_obj = port_array[0];    return set_path( raw_url );    }