Roxen.git/ server/ etc/ modules/ Roxen.pmod

2000-03-25

2000-03-25 23:47:31 by Martin Nilsson <mani@lysator.liu.se>

• 31d1643766e67f0d6894e058d1c4f01e74fa1909 (45 lines) (+43/-2) ^{[ Show | Annotate ]}
  Branch: 5.2

Added methods to determine a useable server URL.

Rev: server/etc/modules/Roxen.pmod:1.14

1:   /* -  * $Id: Roxen.pmod,v 1.13 2000/03/20 07:29:16 mast Exp $ +  * $Id: Roxen.pmod,v 1.14 2000/03/25 23:47:31 nilsson Exp $    *    * Various helper functions.    *
670:    case "time":    return time(1);    case "server": -  //FIXME: This does not always work! +     return c->id->conf->query("MyWorldLocation");    }    :: `[] (var, c, scope);
844:   {    return parse_since(date)[0]||-1;   } +  + string get_server_url(object c) { +  string url=c->query("MyWorldLocation"); +  if(stringp(url) && sizeof(url)) return url; +  array(string) urls=c->query("URLs"); +  return get_world(urls); + } +  + string get_world(array(string) urls) { +  if(!sizeof(urls)) return 0; +  +  string url=urls[0]; +  foreach( ({"http:","fhttp:","https:","ftp:"}), string p) +  foreach(urls, string u) +  if(u[0..sizeof(p)-1]==p) { +  url=u; +  break; +  } +  +  string protocol, server, path; +  int port; +  if(sscanf(url, "%s://%s:%d/%s", protocol, server, port, path)!=4 && +  sscanf(url, "%s://%s/%s", protocol, server, path)!=3) +  return 0; +  +  if(protocol=="fhttp") protocol="http"; +  +  array hosts=({ gethostname() }), dns; +  catch(dns=Protocols.DNS.client()->gethostbyname(hosts[0])); +  if(dns && sizeof(dns)) +  hosts+=dns[2]+dns[1]; +  +  foreach(hosts, string host) +  if(glob(server, host)) { +  server=host; +  break; +  } +  +  if(port) return sprintf("%s://%s:%d/%s", protocol, server, port, path); +  return sprintf("%s://%s/%s", protocol, server, path); + }