Roxen.git/ server/ base_server/ module.pike > 248eed1c530b64b23918332129cfd5a0fdf23a0c [Annotate]

// This file is part of Roxen WebServer. 

// Copyright © 1996 - 2001, Roxen IS. 

// $Id: module.pike,v 1.150 2004/03/01 15:48:35 mast Exp $ 

#include <module_constants.h> 

#include <module.h> 

#include <request_trace.h> 

constant __pragma_save_parent__ = 1; 

inherit "basic_defvar"; 

mapping(string:array(int)) error_log=([]); 

constant is_module = 1; 

// constant module_type = MODULE_ZERO; 

// constant module_name    = "Unnamed module"; 

// constant module_doc     = "Undocumented"; 

constant module_unique  = 1; 

private Configuration _my_configuration; 

private string _module_local_identifier; 

private string _module_identifier = 

  lambda() { 

    mixed init_info = roxen->bootstrap_info->get(); 

    if (arrayp (init_info)) { 

      [_my_configuration, _module_local_identifier] = init_info; 

      return _my_configuration->name + "/" + _module_local_identifier; 

    } 

  }(); 

static mapping _api_functions = ([]); 

string|array(string) module_creator; 

string module_url; 

RXML.TagSet module_tag_set; 

/* These functions exists in here because otherwise the messages in 

 * the event log does not always end up in the correct 

 * module/configuration.  And the reason for that is that if the 

 * messages are logged from subclasses in the module, the DWIM in 

 * roxenlib.pike cannot see that they are logged from a module. This 

 * solution is not really all that beautiful, but it works. :-) 

 */ 

void report_fatal( mixed ... args )  { predef::report_fatal( @args );  } 

void report_error( mixed ... args )  { predef::report_error( @args );  } 

void report_notice( mixed ... args ) { predef::report_notice( @args ); } 

void report_debug( mixed ... args )  { predef::report_debug( @args );  } 

string module_identifier() 

//! Returns a string that uniquely identifies this module instance 

//! within the server. The identifier is the same as 

//! @[Roxen.get_module] and @[Roxen.get_modname] handles. 

{ 

#if 1 

  return _module_identifier; 

#else 

  if (!_module_identifier) { 

    string|mapping name = this_object()->register_module()[1]; 

    if (mappingp (name)) name = name->standard; 

    string cname = sprintf ("%O", my_configuration()); 

    if (sscanf (cname, "Configuration(%s", cname) == 1 && 

        sizeof (cname) && cname[-1] == ')') 

      cname = cname[..sizeof (cname) - 2]; 

    _module_identifier = sprintf ("%s,%s", 

                                  name||this_object()->module_name, cname); 

  } 

  return _module_identifier; 

#endif 

} 

string module_local_id() 

//! Returns a string that uniquely identifies this module instance 

//! within the configuration. The returned string is the same as the 

//! part after the first '/' in the one returned from 

//! @[module_identifier]. 

{ 

  return _module_local_identifier; 

} 

RoxenModule this_module() 

{ 

  return this_object(); // To be used from subclasses. 

} 

string _sprintf() 

{ 

  return sprintf ("RoxenModule(%s)", _module_identifier || "?"); 

} 

array register_module() 

{ 

  return ({ 

    this_object()->module_type, 

    this_object()->module_name, 

    this_object()->module_doc, 

    0, 

    module_unique, 

    this_object()->module_locked, 

  }); 

} 

string fix_cvs(string from) 

{ 

  from = replace(from, ({ "$", "Id: "," Exp $" }), ({"","",""})); 

  sscanf(from, "%*s,v %s", from); 

  return replace(from,"/","-"); 

} 

int module_dependencies(Configuration configuration, 

                        array (string) modules, 

                        int|void now) 

//! If your module depends on other modules present in the server, 

//! calling <pi>module_dependencies()</pi>, supplying an array of 

//! module identifiers. A module identifier is either the filename 

//! minus extension, or a string on the form that Roxen.get_modname 

//! returns. In the latter case, the <config name> and <copy> parts 

//! are ignored. 

{ 

  modules = map (modules, 

                 lambda (string modname) { 

                   sscanf ((modname / "/")[-1], "%[^#]", modname); 

                   return modname; 

                 }); 

  Configuration conf = configuration || my_configuration(); 

  if (!conf) 

    report_warning ("Configuration not resolved; module(s) %s that %s " 

                    "depend on weren't added.", String.implode_nicely (modules), 

                    module_identifier()); 

  else 

    conf->add_modules( modules, now ); 

  return 1; 

} 

string file_name_and_stuff() 

{ 

  return ("<b>Loaded from:</b> "+(roxen->filename(this_object()))+"<br>"+ 

          (this_object()->cvs_version? 

           "<b>CVS Version:</b> "+ 

           fix_cvs(this_object()->cvs_version)+"\n":"")); 

} 

Configuration my_configuration() 

//! Returns the Configuration object of the virtual server the module 

//! belongs to. 

{ 

  return _my_configuration; 

} 

nomask void set_configuration(Configuration c) 

{ 

  if(_my_configuration && _my_configuration != c) 

    error("set_configuration() called twice.\n"); 

  _my_configuration = c; 

} 

void set_module_creator(string|array(string) c) 

//! Set the name and optionally email address of the author of the 

//! module. Names on the format "author name <author_email>" will 

//! end up as links on the module's information page in the admin 

//! interface. In the case of multiple authors, an array of such 

//! strings can be passed. 

{ 

  module_creator = c; 

} 

void set_module_url(string to) 

//! A common way of referring to a location where you maintain 

//! information about your module or similar. The URL will turn up 

//! on the module's information page in the admin interface, 

//! referred to as the module's home page. 

{ 

  module_url = to; 

} 

void free_some_sockets_please(){} 

void start(void|int num, void|Configuration conf) {} 

string status() {} 

string info(Configuration conf) 

{ 

 return (this_object()->register_module()[2]); 

} 

string sname( ) 

{ 

  return my_configuration()->otomod[ this_object() ]; 

} 

ModuleInfo my_moduleinfo( ) 

//! Returns the associated @[ModuleInfo] object 

{ 

  string f = sname(); 

  if( f ) return roxen.find_module( (f/"#")[0] ); 

} 

void save_me() 

{ 

  my_configuration()->save_one( this_object() ); 

  my_configuration()->module_changed( my_moduleinfo(), this_object() ); 

} 

void save()      { save_me(); } 

string comment() { return ""; } 

string query_internal_location() 

//! Returns the internal mountpoint, where <ref>find_internal()</ref> 

//! is mounted. 

{ 

  if(!_my_configuration) 

    error("Please do not call this function from create()!\n"); 

  return _my_configuration->query_internal_location(this_object()); 

} 

string query_absolute_internal_location(RequestID id) 

//! Returns the internal mountpoint as an absolute path. 

{ 

  return (id->misc->site_prefix_path || "") + query_internal_location(); 

} 

string query_location() 

//! Returns the mountpoint as an absolute path. The default 

//! implementation uses the "location" configuration variable in the 

//! module. 

{ 

  string s; 

  catch{s = query("location");}; 

  return s; 

} 

array(string) location_urls() 

//! Returns an array of all locations where the module is mounted. 

{ 

  string loc = query_location(); 

  if (!loc) return ({}); 

  if(!_my_configuration) 

    error("Please do not call this function from create()!\n"); 

  array(string) urls = copy_value(_my_configuration->query("URLs")); 

  string hostname; 

  if (string world_url = _my_configuration->query ("MyWorldLocation")) 

    sscanf (world_url, "%*s://%s%*[:/]", hostname); 

  if (!hostname) hostname = gethostname(); 

  for (int i = 0; i < sizeof (urls); i++) 

  { 

    urls[i] = (urls[i]/"#")[0]; 

    if (sizeof (urls[i]/"*") == 2) 

      urls[i] = replace(urls[i], "*", hostname); 

  } 

  return map (urls, `+, loc[1..]); 

} 

/* By default, provide nothing. */ 

string query_provides() { return 0; } 

function(RequestID:int|mapping) query_seclevels() 

{ 

  if(catch(query("_seclevels")) || (query("_seclevels") == 0)) 

    return 0; 

  return roxen.compile_security_pattern(query("_seclevels"),this_object()); 

} 

Stat stat_file(string f, RequestID id){} 

array(string) find_dir(string f, RequestID id){} 

mapping(string:Stat) find_dir_stat(string f, RequestID id) 

{ 

  TRACE_ENTER("find_dir_stat(): \""+f+"\"", 0); 

  array(string) files = find_dir(f, id); 

  mapping(string:Stat) res = ([]); 

  foreach(files || ({}), string fname) { 

    TRACE_ENTER("stat()'ing "+ f + "/" + fname, 0); 

    Stat st = stat_file(replace(f + "/" + fname, "//", "/"), id); 

    if (st) { 

      res[fname] = st; 

      TRACE_LEAVE("OK"); 

    } else { 

      TRACE_LEAVE("No stat info"); 

    } 

  } 

  TRACE_LEAVE(""); 

  return(res); 

} 

//! Returns a multiset with the names of all supported properties. 

//! 

//! @param st 

//!   If set, this should be the stat that corresponds to @[path]. Its 

//!   only purpose is to save a call to @[stat_file] when the stat 

//!   already has been retrieved. 

//! 

//! @note 

//!   Only properties that should be listed by @tt{<DAV:allprop/>@} 

//!   are returned. 

//! 

//! @note 

//!   The following properties are required to keep 

//!   @tt{Microsoft Data Access Internet Publishing Provider DAV 1.1@} 

//!   as supplied with @tt{Microsoft Windows 2000@} happy: 

//!   @string 

//!     @value "DAV:creationdate" 

//!     RFC2518 13.1 

//!     @value "DAV:displayname" 

//!     RFC2518 13.2 

//!     @value "DAV:getcontentlanguage" 

//!     RFC2518 13.3 

//!     @value "DAV:getcontentlength" 

//!     RFC2518 13.4 

//!     @value "DAV:getcontenttype" 

//!     RFC2518 13.5 

//!     @value "DAV:getlastmodified" 

//!     RFC2518 13.7 

//!     @value "DAV:resourcetype" 

//!     RFC2518 13.9 

//! 

//!     @value "DAV:defaultdocument" 

//!     @tt{draft-hopmann-collection-props-00@} 1.3 

//! 

//!     Specifies the default document for a collection. 

//! 

//!     This property contains an URL that identifies the default 

//!     document for a collection. This is intended for collection 

//!     owners to be able to set a default document, for example 

//!     @tt{index.html@} or @tt{default.html@}. If this property 

//!     is absent, other means must be found to determine the default 

//!     document. 

//! 

//!     If this property is present, but null, the collection does 

//!     not have a default document and the collection member listing 

//!     should be used (or nothing). 

//! 

//!     Note: The server implementation does not need to store this