Branch: Tag:

1999-01-21

1999-01-21 23:31:24 by Marcus Comstedt <marcus@mc.pp.se>

Internal module resource mountpoint.

Rev: server/base_server/configuration.pike:1.176
Rev: server/base_server/module.pike:1.38

1: - /* $Id: module.pike,v 1.37 1998/11/22 17:07:26 per Exp $ */ + /* $Id: module.pike,v 1.38 1999/01/21 23:31:24 marcus Exp $ */      #include <module.h>   
40:    (this->cvs_version?"<b>CVS Version: </b>"+fix_cvs(this->cvs_version)+"<nr>\n":""));   }    + static private object _my_configuration; +    object my_configuration()   { -  +  if(_my_configuration) +  return _my_configuration;    object conf;    foreach(roxen->configurations, conf)    if(conf->otomod[this])
49:    return 0;   }    + nomask void set_configuration(object c) + { +  if(_my_configuration && _my_configuration != c) +  error("set_configuration() called twice.\n"); +  _my_configuration = c; + } +    string module_creator;   string module_url;   
373:    return "";   }    + string query_internal_location() + { +  if(!_my_configuration) +  error("Please do not call this function from create()!\n"); +  return _my_configuration->query_internal_location(this_object()); + } +    /* Per default, return the value of the module variable 'location' */   string query_location()   {