Roxen.git/ server/ base_server/ roxen.pike

2000-01-21

2000-01-21 12:12:07 by Per Hedbor <ph@opera.com>

• 2f74c36ea39aa34675fb46c7d189b894faf3a5f2 (66 lines) (+52/-14) ^{[ Show | Annotate ]}
  Branch: 5.2

Some new config if features

Rev: server/base_server/roxen.pike:1.394
Rev: server/modules/configuration/config_userdb.pike:1.12

5:    */      // ABS and suicide systems contributed freely by Francesco Chemolli - constant cvs_version="$Id: roxen.pike,v 1.393 2000/01/20 18:13:25 grubba Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.394 2000/01/21 12:11:38 per Exp $";      object backend_thread;   ArgCache argcache;
3129:      array configuration_auth=({});   mapping configuration_perm=([]); - void add_permission(string name, mapping desc) { -  configuration_perm[name]=desc; -  foreach(configuration_auth, RoxenModule o) -  o->add_permission(name, desc); +  + void add_permission(string name, mapping desc) + { +  configuration_perm[ name ]=desc; +  configuration_auth->add_permission( name, desc );   } - void add_configuration_auth(RoxenModule o) { +  + void remove_configuration_auth(RoxenModule o) + {    configuration_auth-=({o}); -  configuration_auth+=({o}); +    } - string configuration_authenticate(RequestID id, string what) { -  if(!id->realauth) return 0; +  + void add_configuration_auth(RoxenModule o) + { +  configuration_auth|=({o}); + } +  + string configuration_authenticate(RequestID id, string what) + { +  if(!id->realauth) +  return 0; +     array auth;    RoxenModule o; -  foreach(configuration_auth, o) { +  foreach(configuration_auth, o) +  {    auth=o->auth( ({"",id->realauth}), id);    if(auth) break;    } -  if(!auth) return 0; -  if(!auth[0]) return 0; -  if(o->find_admin_user( auth[1] )->auth(what)) +  if(!auth) +  return 0; +  if(!auth[0]) +  return 0; +  if( o->find_admin_user( auth[1] )->auth( what ) )    return auth[1];    return 0;   } -  +  + array(object) get_config_users( string uname ) + { +  return configuration_auth->find_admin_user( uname ); + } +  +  + array(string|object) +  list_config_users( string uname, string|void required_auth ) + { +  array users = `+( ({}), configuration_auth->list_admin_users( ) ); +  if( !required_auth ) +  return users; +  +  array res = ({ }); +  foreach( users, string q ) +  { +  foreach( get_config_users( q ), object o ) +  if( o->auth( required_auth ) ) +  res += ({ o }); +  } +  return res; + }