Roxen.git/ server/ base_server/ module.pike

2000-02-20

2000-02-20 11:29:02 by Martin Stjernholm <mast@lysator.liu.se>

• 162bd55d95f213a72359bd9a9b91edd6165a316d (23 lines) (+22/-1) ^{[ Show | Annotate ]}
  Branch: 5.2

Added a function location_urls() that returns an array of all URLs to
the location of this module.

Rev: server/base_server/module.pike:1.82

1: - /* $Id: module.pike,v 1.81 2000/02/17 08:42:42 per Exp $ */ + /* $Id: module.pike,v 1.82 2000/02/20 11:29:02 mast Exp $ */      #include <module_constants.h>   #include <module.h>
388:    return s;   }    + array(string) location_urls() + // The first is the canonical one built with MyWorldLocation. + { +  string loc = query_location(); +  if (!loc) return ({}); +  if(!_my_configuration) +  error("Please do not call this function from create()!\n"); +  string world_url = _my_configuration->query("MyWorldLocation"); +  if (world_url == "") world_url = 0; +  array(string) urls = _my_configuration->query("URLs"); +  string hostname = gethostname(); +  for (int i = 0; i < sizeof (urls); i++) { +  if (world_url && glob (urls[i], world_url)) urls[i] = 0; +  else if (sizeof (urls[i]/"*") == 2) +  urls[i] = replace(urls[i], "*", hostname); +  } +  if (world_url) urls = ({world_url}) | (urls - ({0})); +  return map (urls, `+, loc[1..]); + } +    /* By default, provide nothing. */   string query_provides() { return 0; }