Roxen.git/ server/ base_server/ roxen.pike

1999-03-01

1999-03-01 17:03:14 by Marcus Comstedt <marcus@mc.pp.se>

• 57e962c0988252faaf84056e4a6f4798f7a95e64 (14 lines) (+10/-4) ^{[ Show | Annotate ]}
  Branch: 5.2

Gyah! find_server_for does _not_ work correctly. Limited the damage somewhat.

Rev: server/base_server/roxen.pike:1.258

1:   /* -  * $Id: roxen.pike,v 1.257 1999/02/15 23:21:46 per Exp $ +  * $Id: roxen.pike,v 1.258 1999/03/01 17:03:14 marcus Exp $    *    * The Roxen Challenger main program.    *
7:    */      // ABS and suicide systems contributed freely by Francesco Chemolli - constant cvs_version="$Id: roxen.pike,v 1.257 1999/02/15 23:21:46 per Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.258 1999/03/01 17:03:14 marcus Exp $";      // Some headerfiles   #define IN_ROXEN
2701:    ({ "","","","","","","","","","","" })) == "");   }    - object find_server_for(object id, string host) + object find_server_for(object id, string host, string|void port)   {    object old_conf = id->conf; -  +  int portno = ((int)port);    -  +  if(portno!=0 && portno!=21 && portno!=80 && portno!=443) +  // Not likely to be anything else than the current virtual server. +  return id->conf; +     host = lower_case(host);    if(config_cache[host]) {    id->conf=config_cache[host];
2809:   object find_site_for( object id )   {    if(id->misc->host) -  return find_server_for(id,lower_case((id->misc->host/":")[0])); +  return find_server_for(id,@lower_case(id->misc->host)/":");    return id->conf;   }