master.h-Dateireferenz

#include "/secure/config.h"
#include "/sys/userinfo.h"
#include "/sys/shells.h"
#include "/sys/player/base.h"
#include "/sys/moving.h"
#include "/sys/defines.h"
#include "/sys/wizlist.h"
#include "/sys/daemon.h"
#include "/sys/mail.h"
#include "/sys/driver_hook.h"
#include "/sys/functionlist.h"
#include "/secure/wizlevels.h"

Include-Abhängigkeitsdiagramm für master.h:

Dieser Graph zeigt, welche Datei direkt oder indirekt diese Datei enthält:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	P_WEAPON   "weapon"
#define	P_DEFAULT_NOTIFY_FAIL   "default_notify_fail"
#define	DEBUG_MSG(x, po)
#define	DEBUG2_MSG(x, po)
#define	DEBUG3_MSG(x)
#define	DEBUG4_MSG(x, po)
#define	DEBUG(x)
#define	READ_FILE   "/log/ARCH/READ_FILE"
#define	CRASH_LOG   "/log/CRASH_LOG"
#define	MAX_ERRLOG_SIZE   51200
#define	log_file(file, str)   write_file("/log/"+file, str)
#define	NAME(x)   getuid(x)
#define	CAP_NAME(x)   capitalize(NAME(x))
#define	TP   efun::this_player()
#define	TI   efun::this_interactive()
#define	PO   efun::previous_object()
#define	TO   efun::this_object()
#define	WIZ_HELP_MAIL_DIR   "/doc/infomails/"
Funktionen
string	creator_file (mixed str)
mixed	give_uid_to_object (string datei, object po)
void	save_wiz_file ()
mixed	load_uid_hook (string datei)
mixed	clone_uid_hook (string blueprint, string new_name)
int	domain_master (string user, string domain)
int	domain_member (string user, string domain)
string *	get_domain_homes (string wiz)
void	LoadDeputyFileList ()
mixed	valid_read (string path, string euid, string fun, object obj)
mixed	valid_write (string path, string euid, string fun, object obj)
string	_get_path (string path, string user)
mixed	QueryBanished (string str)
int	TBanishName (string name, int days)
protected void	SendWizardHelpMail (string name, int level)
public int	find_userinfo (string user)
protected mixed *	get_full_userinfo (string user)
public mixed *	get_userinfo (string user)
public int	get_wiz_level (string user)
public string	query_player_object (string name)
public int	query_wiz_level (mixed player)
int	update_wiz_level (string user, int lev)
protected void	set_guilds (string player, string *guilds)
protected void	set_domains (string player, string *domains)
void	update_late_players ()
public string	secure_savefile (string name)
protected void	save_userinfo (string user)
protected string	query_secure_euid ()
protected int	query_secure_level ()
private string *	ExpandUIDAlias (string alias, int rec)
public varargs string *	QueryUIDAlias (string alias, int rec)
public string *	AddWizardForUID (string uid, string wizuid)
public string *	RemoveWizardFromUID (string uid, string wizuid)
public varargs string *	QueryWizardsForUID (string uid, int recursive)
public varargs string *	QueryUIDsForWizard (string wizuid, int recursive)

---

Makro-Dokumentation

#define CAP_NAME

(

x

)

capitalize(NAME(x))

Definiert in Zeile 73 der Datei master.h.

#define CRASH_LOG   "/log/CRASH_LOG"

Definiert in Zeile 65 der Datei master.h.

#define DEBUG

(

x

)

Wert:

if (funcall(symbol_function('find_player),"zesstra"))\        tell_object(funcall(symbol_function('find_player),"zesstra"),\
        "MDBG: "+x+"\n")

Definiert in Zeile 56 der Datei master.h.

#define DEBUG2_MSG	(	x,
		po		)

Wert:

catch(CHMASTER->send("Entwicklung", \
                capitalize(objectp(po) ? REAL_UID(po) : ""), x))

Definiert in Zeile 45 der Datei master.h.

Wird benutzt von handle_runtime_error() und renew_player_object().

#define DEBUG3_MSG

(

x

)

Wert:

catch(CHMASTER->send("Entwicklung", \
                "<MasteR>", x))

Definiert in Zeile 47 der Datei master.h.

#define DEBUG4_MSG	(	x,
		po		)

Wert:

catch(CHMASTER->send("Warnungen", \
                capitalize(objectp(po) ? REAL_UID(po) : ""), x))

Definiert in Zeile 50 der Datei master.h.

#define DEBUG_MSG	(	x,
		po		)

Wert:

catch(CHMASTER->send("Debug", \
                capitalize(objectp(po) ? REAL_UID(po) : ""), x))

Definiert in Zeile 43 der Datei master.h.

Wird benutzt von handle_runtime_error() und renew_player_object().

#define log_file	(	file,
		str		)	write_file("/log/"+file, str)

Definiert in Zeile 71 der Datei master.h.

Wird benutzt von _add_entry(), _add_money(), _channel(), _check_wear_restrictions(), _echo(), _examine(), _indoorbug(), _send_udp(), _set_attack_busy(), _set_die_hook(), _set_disable_attack(), _set_fraternitasdonoarchmagorum(), _set_hp(), _set_poison(), _set_sp(), access(), AddAction(), AddFP(), adjust_percents(), check_illegal(), check_password(), check_to_fast(), check_too_many_from_same_ip(), check_too_many_logons(), checkConsistency(), CheckPlayerAttack(), checkrcs(), CheckSecond(), create(), ctime(), debug(), DeepTransferMoney(), DeliverMail(), destruct(), do_damage(), exec_playerob(), file_list(), find_best_weapon(), FindPotion(), FtpAccess(), ftpbb(), liste(), load_player_ob_2(), load_player_object(), logon2(), move_object(), new(), new_load_player_ob_2(), NotifyACChange(), NotifyMove(), PayIn(), QuarterReached(), QueryValue(), raise(), read_host_list(), real_log(), reduce_hit_points(), remove_from_spool(), remove_interactive(), RemoveCmd(), RemoveFP(), RemoveSin(), renew_player(), reset(), retry_send(), scan_objects(), SelectWhich(), set_percents(), SetTradingData(), setup(), ShortRangeSkill(), ShowEPObjects(), shutdown(), SiteBanish(), smart_log(), smart_npc_log(), SmartLog(), snoop(), udp_mail(), udp_www(), valid_armour_type(), valid_weapon_type(), wear_best_armours() und WithDraw().

#define MAX_ERRLOG_SIZE   51200

Definiert in Zeile 69 der Datei master.h.

#define NAME

(

x

)

getuid(x)

Definiert in Zeile 72 der Datei master.h.

#define P_DEFAULT_NOTIFY_FAIL   "default_notify_fail"

Definiert in Zeile 23 der Datei master.h.

#define P_WEAPON   "weapon"

Definiert in Zeile 19 der Datei master.h.

Wird benutzt von _clone_items(), _query_total_wc(), Attack(), cmd_shoot(), DoUnwield(), DoWield(), long(), LongRangeSkill(), present_objects(), renew_player_object(), scan_obj(), ShortRangeSkill(), ShowInv(), SimpleInv(), unwield() und wield_best_weapon().

#define PO   efun::previous_object()

Definiert in Zeile 76 der Datei master.h.

#define READ_FILE   "/log/ARCH/READ_FILE"

Definiert in Zeile 62 der Datei master.h.

Wird benutzt von valid_read().

#define TI   efun::this_interactive()

Definiert in Zeile 75 der Datei master.h.

#define TO   efun::this_object()

Definiert in Zeile 77 der Datei master.h.

Wird benutzt von addproj_fun(), BanishName(), create(), delete_player(), modproj_fun(), preload(), remproj_fun(), renew_player_object(), reset(), valid_read(), valid_write() und watch_fun().

#define TP   efun::this_player()

Definiert in Zeile 74 der Datei master.h.

#define WIZ_HELP_MAIL_DIR   "/doc/infomails/"

Definiert in Zeile 80 der Datei master.h.

---

Dokumentation der Funktionen

string _get_path	(	string	path,
		string	user
	)

Definiert in Zeile 77 der Datei file_access.c.

Benutzt full_path_array().

Wird benutzt von AddPotionroom(), AddQuest(), ChangeMiniQuest(), ChangeRoomPath(), get_edit_line(), goto(), make_path_absolute() und set_player_object().

                                           {
  string *p_arr = full_path_array(path, user);
  // make path absolute
  if (p_arr[0] != "")
      p_arr = ({""}) + p_arr;

  return implode(p_arr,"/");
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public string* AddWizardForUID	(	string	uid,
		string	wizuid
	)

Definiert in Zeile 209 der Datei userinfo.c.

                                                          {
    if (!stringp(wizuid) || !strlen(wizuid)
        || !IS_LEARNER(wizuid))
        return(({}));

    //Zugriff nur als EM oder jemand, der fuer die UID zustaendig ist.
    if ( funcall(symbol_function('secure_level)) < ARCH_LVL 
        && member(
            QueryUIDsForWizard(funcall(symbol_function('secure_euid))),
            uid) == -1)
        return(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]);

    if (!pointerp(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]))
        //Array neu anlegen
        userlist[wizuid,USER_UIDS_TO_TAKE_CARE]=({uid});
    else {
        //Ein Array schon vorhanden
        if (member(userlist[wizuid,USER_UIDS_TO_TAKE_CARE],uid)==-1)
            //uid nicht drin
            userlist[wizuid,USER_UIDS_TO_TAKE_CARE]=
              userlist[wizuid,USER_UIDS_TO_TAKE_CARE]+({uid});
    }
    save_userinfo(wizuid);
    // aus dem UID-Alias-Cache werfen
    efun::m_delete(uidaliase, wizuid);
    // Aufruf, um userids und uidaliase zu aktualisieren
    QueryUIDsForWizard(wizuid);
    return(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]);
}

mixed clone_uid_hook	(	string	blueprint,
		string	new_name
	)

Definiert in Zeile 1116 der Datei master.c.

Benutzt give_uid_to_object().

                                                                 {
    return(give_uid_to_object(new_name,previous_object()));
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

string creator_file

(

mixed

str

)

Definiert in Zeile 362 der Datei master.c.

Wird benutzt von call_out_info(), compile_object(), get_wiz_name(), preload() und valid_write().

                               {
  string *strs,tmp;
  int s;

  // full_path_array nach strs
  // TODO: was ist mit clones?
  if(objectp(str))
    strs=full_path_array(object_name(str), 0);
  else if(stringp(str))
    strs=full_path_array(str, 0);
  else return NOBODY;

  // absolute Pfade interessieren hier gerade nicht.
  strs -= ({""});

  s=sizeof(strs);
  if(s<2) return NOBODY;

  switch(strs[0]) {
    case DOMAINDIR:
      // Fuer Nicht-Magier bzw. "Pseudo-"Magier die Regionskennung
      if( s==2 || WIZLVLS[strs[2]] || !IS_LEARNER(strs[2]) )
        return strs[1];

      // in /d/erzmagier gibt es Magier-IDs
      if (strs[1]=="erzmagier") return strs[2];

      // Ansonsten d.region.magiername
      return sprintf("d.%s.%s", strs[1], strs[2]);
 
    case PROJECTDIR:
      // In p.service gibt es ids mit uid
      if (s>2 && strs[1]=="service") return "p.service."+strs[2];

      // Ansonsten nur p.projekt (p.service ist auch hier drin)
      return "p."+strs[1];

    case WIZARDDIR:
      if (s>2)
        return strs[1];
      if (s==2 && file_size(strs[0]+"/"+strs[1])==FSIZE_DIR)
        return strs[1];
      return NOBODY;

    case SECUREDIR:
      return ROOTID;

    case GUILDDIR:
    case SPELLBOOKDIR:
      tmp=strs[1];
      if (tmp[<2..<2]==".") tmp=tmp[0..<3];
      if ((s=member(tmp,'.'))>0) tmp=tmp[s+1..];
      return "GUILD."+tmp;

    case LIBROOMDIR:
      return ROOMID;

    case STDDIR:
    case LIBOBJDIR:
      return BACKBONEID;

    case DOCDIR:
      return DOCID;

    case MAILDIR:
      return MAILID;
    case NEWSDIR:
      return NEWSID;

    /* Fall-Through */
    default:
      return NOBODY;

 }
 return(NOBODY);  //should never be reached.
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

int domain_master	(	string	user,
		string	domain
	)

Definiert in Zeile 12 der Datei domain.c.

Benutzt domains, find_userinfo(), get_userinfo(), i und USER_DOMAIN.

Wird benutzt von ShowEPObjects(), valid_read() und valid_write().

{
  string *domains;
  int i;
  
  if (!find_userinfo(user)||
      !pointerp(domains=get_userinfo(user)[USER_DOMAIN+1]))
    return 0;
  return (member(domains,domain) != -1);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

int domain_member	(	string	user,
		string	domain
	)

Definiert in Zeile 23 der Datei domain.c.

Benutzt IS_DOMAINMEMBER.

Wird benutzt von valid_write().

{
  if (domain=="erzmagier") return 0;
  return (IS_DOMAINMEMBER(user)&&file_size("/d/"+domain+"/"+user)==-2);
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

private string* ExpandUIDAlias	(	string	alias,
		int	rec
	)

Definiert in Zeile 946 der Datei userinfo.c.

Benutzt __MAX_MAPPING_KEYS__, DOMAINDIR, find_userinfo(), FSIZE_DIR, guild, GUILDDIR, GUILDID, GUILDMASTER, P_GUILD_DEFAULT_SPELLBOOK, PROJECTDIR, QueryUIDsForWizard(), uidaliase und uids.

                                                      {
  
  string *uids=({});

  // Regionsname?
  if (file_size("/"DOMAINDIR"/"+alias) == FSIZE_DIR) {
    //generelle Pseudo-UID 'd.region' und 'region' fuer geloeschte
    //Magier dieser Region
    uids += ({DOMAINDIR"."+alias, alias});
    //alle Magier-Verzeichnisse ermitteln:
    string tmpdir="/"DOMAINDIR"/"+alias+"/";
    foreach(string dir: (get_dir(tmpdir+"*") || ({}))
                          - ({".","..",".svn"})) {
      // schauen, obs nen (sichtbares) Verzeichnis ist und ob der Magier
      // existiert. Letzteres aber nur, falls die Rekursionstiefe min. 100
      // ist, da beim Nachschauen eines Magiers mit (mehreren)
      // RM-Posten, der in der Region RMs aus anderen Regionen hat, leicht
      // Rekursionstiefen von 20 (*4) auftreten koennen, wenn noch gar
      // keine UIDs im Cache sind (find_userinfo() ruft indirekt diese
      // Funktion).
      if (dir[0]!='.' 
          && file_size(tmpdir+dir) == FSIZE_DIR
#if __MAX_RECURSION__ > 99
          && find_userinfo(dir)
#endif
          )
          uids += ({DOMAINDIR"."+alias+"."+dir});
    }
  }
  // Gildenname?
  else if (GUILDMASTER->ValidGuild(alias)) {
      uids += ({GUILDID"."+alias});
      //hat die Gilde ein Projektverzeichnis?
      if (file_size("/"PROJECTDIR"/"+alias) == FSIZE_DIR) {
          uids += ({PROJECTDIR"."+alias});
      }
      // jetzt haben dummerweise die Spellbooks meist nicht den gleichen
      // Namen wie die Gilde. D.h. die Gilde muss nun noch nach dem
      // Namen des Spellbooks gefragt werden, weil dessen UID nicht
      // unbedingt gleich dem der Gilde ist. *seufz*
      string spbook;
      object guild;
      catch(guild=load_object(GUILDDIR"/"+alias));
      if (objectp(guild) 
          && (strlen(spbook=(string)
                 guild->QueryProp(P_GUILD_DEFAULT_SPELLBOOK)))
                && spbook!=alias)
          uids += ({GUILDID"."+spbook});
  }
  // Spieler/Magier-UID?
  else if (find_userinfo(alias)) {
    // wenn rec > 0, wird eine Spieler-UID als Alias aufgefasst und zu seinen
    // UIDs expandiert. Hierbei erfolgt aber nur eine Rekursion.
    if (!rec) uids = QueryUIDsForWizard(alias, 1);
    else uids = ({alias});
  }
  // Projektkrams? -> alle Subdirs von /p/ ausser /p/service selber.
  else if (alias==PROJECTDIR) {
    foreach(string dir: (get_dir("/"PROJECTDIR"/*") || ({}))
                         - ({".","..",".svn","service"})) {
      if (dir[0]!='.' &&
          file_size("/"PROJECTDIR"/"+dir) == FSIZE_DIR)
          uids += ({PROJECTDIR"."+dir});
    }
  }
  // p.service? -> Alle Subdirs von /p/service.
  else if (alias==PROJECTDIR".service") {
    foreach(string dir: (get_dir("/"PROJECTDIR"/service/*") || ({}))
                         - ({".","..",".svn"})) {
      if (dir[0]!='.' &&
          file_size("/"PROJECTDIR"/service/"+dir) == FSIZE_DIR)
          uids += ({PROJECTDIR".service."+dir});
    }
  }
  // wenn nix zutrifft -> unexpandiert zurueckgeben
  else
    uids = ({alias});

  // im Cache vermerken
  if (sizeof(uidaliase) >= __MAX_MAPPING_KEYS__)
      uidaliase=m_allocate(1);
  // auch vermerken, wenn keine UIDs ermittelt wurden.
  uidaliase += ([alias: uids]);
  return uids;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

public int find_userinfo

(

string

user

)

Definiert in Zeile 346 der Datei userinfo.c.

Benutzt __MAX_MAPPING_KEYS__, __MAX_MAPPING_SIZE__, creation_date, domains, ek, ektips, ep, file(), fptips, guilds, i, LEARNER_LVL, level, mq, password, QueryUIDsForWizard(), restore_object(), secure_savefile(), shell, uidstotakecare, USER_LEVEL, USER_TOUCH und userlist.

Wird benutzt von add_domain_master(), add_guild_master(), advance_wizlevel(), delete_player(), domain_master(), ExpandUIDAlias(), get_userinfo(), get_wiz_level(), guild_master(), query_ek(), query_ektips(), query_ep(), query_fptips(), query_mq(), query_player_object(), QueryWizardsForUID(), remove_domain_master(), remove_guild_master(), set_player_object(), update_ek(), update_ektips(), update_ep(), update_fptips(), update_mq(), update_password() und update_wiz_level().

                                      {
  string file;
  int i;
  if (!stringp(user) || !strlen(user) 
      || member(user,' ')!=-1 || member(user,':')!=-1)
    return 0;
  if (!member(userlist,user)) {
      //erstmal schauen, ob wir mit einem neuen Eintrag nicht die max.
      //Mapping-Groessen ueberschreiten, wenn ja, einen Eintrag loeschen
      //BTW: widthof()+1 ist richtig so.
      //BTW2: Ich hoffe, die max. Arraygroesse ist immer gross genug, sollte 
      //sie aber sein bei ner Mappingbreite von 10.
      // BTW3: Dieses Rausloeschen von einem Eintrag bei Erreichen der Grenze
      // erhoeht die benoetigten Ticks fuer diese Funktion um das 5-6fache und
      // die noetige Zeit um das 70fache. Daher wird der Cache bei Erreichen
      // der Grenze jetzt einfach geloescht.
      if ( ( (i=sizeof(userlist)+1) >= __MAX_MAPPING_KEYS__) 
          || (( i * (widthof(userlist)+1)) >
                 __MAX_MAPPING_SIZE__))    
          //efun::m_delete(userlist,m_indices(userlist)[0]);
          userlist=m_allocate(1,widthof(userlist));

      // Usersavefile finden
      if ((file=secure_savefile(user))=="") {
        // User gibt es nicht, aber Anfrage cachen
          userlist+=([user: "NP"; -1; ({}); "LOCKED"; -1; time(); ""; ""; "";
          ({});"";""; 0 ]);
          return 0;
      }
      password="";
      ep="";
      ek="";
      mq="";
      guilds=({});
      ektips="";
      fptips="";
      uidstotakecare=0;
      if (!restore_object(file)) return 0;
      userlist+=([user: password; level; domains; shell; creation_date; 
          time();ep; ek; mq; guilds; ektips; fptips; uidstotakecare]);
      // die speziellen UIDs, fuer die dieser Magier zustaendig ist, ermitten
      // und gleichzeitig im entsprechenden Mapping fuers Reverse-Loopup
      // speichern.
      if (level >= LEARNER_LVL)
        QueryUIDsForWizard(user);
  }
  userlist[user,USER_TOUCH]=time();
  if (userlist[user,USER_LEVEL]==-1) return 0;
  return 1;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

string* get_domain_homes

(

string

wiz

)

Definiert in Zeile 80 der Datei domain.c.

Benutzt FSIZE_DIR, get_domains(), query_wiz_level() und WIZARD_LVL.

Wird benutzt von create_wizard() und stat().

{
  string *homes=({});
  string tmp;
  
  if (query_wiz_level(wiz)<=WIZARD_LVL) return ({});

  tmp = "/d/%s/"+wiz;
  foreach(string dir: get_domains()) {
      if (dir[0]!='.' && file_size(sprintf(tmp,dir)) == FSIZE_DIR)
          //Magierverzeichnis da und faengt nicht mit "." an: aufnehmen.
          homes+=({dir});
  }
  return homes;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

protected mixed* get_full_userinfo

(

string

user

)

Definiert in Zeile 835 der Datei userinfo.c.

Wird benutzt von advance_wizlevel() und CheckPasswd().

                                                {
  if(!user||user=="")
    return 0;
  user=explode(user,".")[0];
  if (!member(userlist,user) && !find_userinfo(user))
    return 0;

  return({user,userlist[user,USER_PASSWORD],userlist[user,USER_LEVEL],
      userlist[user,USER_DOMAIN], userlist[user,USER_OBJECT],
      userlist[user,USER_CREATION_DATE], 0, 0, userlist[user,USER_GUILD],
      userlist[user,USER_EKTIPS],userlist[user,USER_FPTIPS],
      userlist[user,USER_UIDS_TO_TAKE_CARE]});
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public mixed* get_userinfo

(

string

user

)

Definiert in Zeile 398 der Datei userinfo.c.

Benutzt find_userinfo(), USER_CREATION_DATE, USER_DOMAIN, USER_EKTIPS, USER_FPTIPS, USER_GUILD, USER_LEVEL, USER_OBJECT, USER_UIDS_TO_TAKE_CARE und userlist.

Wird benutzt von add_domain_master(), add_guild_master(), domain_master(), guild_master(), remove_domain_master(), remove_guild_master() und Validate().

                                        {
  if(!user||user=="")
    return 0;
  user=explode(user,".")[0];
  if (!member(userlist,user) && !find_userinfo(user))
    return 0;

  if (userlist[user,USER_LEVEL]==-1) return 0;

  return({user,"##"+user,userlist[user,USER_LEVEL],
      userlist[user,USER_DOMAIN], userlist[user,USER_OBJECT],
      userlist[user,USER_CREATION_DATE], 0, 0,
      userlist[user,USER_GUILD],
      userlist[user,USER_EKTIPS],userlist[user,USER_FPTIPS],
      userlist[user,USER_UIDS_TO_TAKE_CARE]});
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public int get_wiz_level

(

string

user

)

Definiert in Zeile 491 der Datei userinfo.c.

Benutzt find_userinfo(), USER_LEVEL und userlist.

Wird benutzt von add_domain_master(), delete_player(), FtpAccess(), query_wiz_level() und valid_write().

                                      {
  if (user && find_userinfo(user)) 
    return userlist[user,USER_LEVEL];
  //return 0 if no user given (return type needed)
  return(0);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

mixed give_uid_to_object	(	string	datei,
		object	po
	)

Definiert in Zeile 441 der Datei master.c.

Wird benutzt von clone_uid_hook().

{
  string creator,pouid;

  // Parameter testen
  if (!stringp(datei)||!objectp(po))  return 1;

  // Datei muss Besitzer haben
  if (!(creator=creator_file(datei))) return 1;
  
  // Keine Objekte in /log und /open
  if (datei[0..2]=="log" || datei[0..3]=="open") return 1;

  // Hack, damit simul_efun geladen werden kann
  if (creator==ROOTID && po==TO) return ROOTID;

  // Keine euid, kein Laden ...
  if (!(pouid=geteuid(po))) return 1; // Disallow if no euid in po

  // Root generiert keine Root-Objekte ;-)
  // Nur UID setzen
  if (pouid==ROOTID)
    return ({creator,NOBODY}); // root does not create root objects!

  // EUID mitsetzen, wenn PO==creator oder creator==BACKBONEID
  if (creator==pouid || creator==BACKBONEID)
    return pouid;

  return ({creator,NOBODY});
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

mixed load_uid_hook

(

string

datei

)

Definiert in Zeile 1108 der Datei master.c.

Wird benutzt von inaugurate_master().

                                            {
    return(give_uid_to_object(datei,previous_object()));
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void LoadDeputyFileList

(

)

Definiert in Zeile 16 der Datei file_access.c.

Benutzt deputy_files.

Wird benutzt von CheckDeputyRights().

{
  // Leseberechtigungen fuer /log/ARCH/* setzen
  deputy_files = efun::explode( read_file("/log/ARCH/DEPUTY_FILELIST") || "",
                                "\n" ) - ({""});
  return;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public string query_player_object

(

string

name

)

Definiert in Zeile 416 der Datei userinfo.c.

Benutzt find_userinfo(), USER_OBJECT, userentry und userlist.

Wird benutzt von renew_player_object().

{
  mixed *userentry;
  if( !find_userinfo(name) ) return "";
  return userlist[name,USER_OBJECT];
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

protected string query_secure_euid

(

)

protected int query_secure_level

(

)

public int query_wiz_level

(

mixed

player

)

Definiert in Zeile 499 der Datei userinfo.c.

Benutzt DOMAINDIR, get_wiz_level(), GUILDID, PROJECTDIR und WIZLVLS.

Wird benutzt von __auswerten(), _query_info(), _set_earmuffs(), actions(), allowed(), befoerdere(), call_out_info(), check(), check_arch(), command_me(), CommandScan(), create_wizard(), do_mail(), finger_single(), format_paths(), get_domain_homes(), HitFunc(), is_greater(), is_wiz_level_ge(), is_wiz_level_lt(), logaccess(), Message(), scan(), search_for_path(), secure(), security(), set_max_guests(), sponsoring(), stat(), valid_read(), valid_write() und WizLevel().

{
    if ( objectp(player) && query_once_interactive(player) )
        return get_wiz_level( getuid(player) );
    else {
        // erstmal UID ermitteln, falls Objekt
        //if (objectp(player))
        //    player=getuid(player);
        if ( stringp(player) ) {
            if( player[0..1]==DOMAINDIR"." ) return 25;
            if( player[0..5]==GUILDID"." ) 
                return WIZLVLS[GUILDID];
            if( player[0..1]==PROJECTDIR"." ) return 21;
            // die alte Loesung mit || verhaelt sich falsch, wenn ein UID ne
            // spezielle ist, der Level 0 zugeordnet wurde und es einen
            // Spieler mit diesem namen gibt.
            if (member(WIZLVLS,player)) 
                return(WIZLVLS[player]);
            return get_wiz_level(player);
        }
    }
    return 0;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

mixed QueryBanished

(

string

str

)

Definiert in Zeile 37 der Datei misc.c.

Benutzt banished und i.

Wird benutzt von BanishName(), finger_single(), good_password() und logon2().

                               {
  int i;

  if (!str) return 0;
  if (!pointerp(banished)) return 0;
  for (i=sizeof(banished)-1;i>=0;i--)
    if (sizeof(regexp(({str}),"^"+banished[i][0]+"$")))
    {
      if (!banished[i][1] || banished[i][1]=="")
        return "Dieser Name ist gesperrt.";
      else
        return banished[i][1];
    }
  return 0;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public varargs string* QueryUIDAlias	(	string	alias,
		int	rec
	)

Definiert in Zeile 105 der Datei userinfo.c.

                                                            {
  string *uids;
  if (!stringp(alias) || !strlen(alias))
      return ({});
  // Wen im cache, gehts schnell.
  if (member(uidaliase, alias))
      uids = uidaliase[alias];
  else
      uids = ExpandUIDAlias(alias, rec);

  if (extern_call())
    return copy(uids);
  
  return(uids);
}

public varargs string* QueryUIDsForWizard	(	string	wizuid,
		int	recursive
	)

Definiert in Zeile 126 der Datei userinfo.c.

Wird benutzt von access_check(), ExpandUIDAlias() und find_userinfo().

                                                                        {
    string *uids, *tmp, *uidstoadd;
    int i;

    if (!stringp(wizuid) || !strlen(wizuid) || !IS_LEARNER(wizuid))
        return(({}));

    if (!find_userinfo(wizuid))
        return(({}));

    uidstoadd=({}); //diese werden hinterher in userids gespeichert.

    // als erstes die ratebaren UIDs. ;-)
    uids=({wizuid});
    // Regionen ermitteln, wo wizuid ein Verzeichnis hat und entsprechende
    // UIDs anhaengen:
    foreach(string region: get_domain_homes(wizuid)) {
        uids+=({ sprintf(DOMAINDIR".%s.%s",region,wizuid) });
    }
    // Verzeichnis in /p/service?
    if (file_size(PROJECTDIR"/service/"+wizuid) == FSIZE_DIR)
        uids+=({PROJECTDIR".service."+wizuid});

    // Gildenchef?
    if (pointerp(userlist[wizuid,USER_GUILD])) {
        foreach(string gilde: userlist[wizuid,USER_GUILD]) {
          uidstoadd += QueryUIDAlias(gilde);
        }
    }
    // Regionsmagier?
    if (pointerp(userlist[wizuid,USER_DOMAIN])) {
        foreach(string domain: userlist[wizuid,USER_DOMAIN]) {
            //generelle Pseudo-UID 'd.region' und 'region' fuer geloeschte
            //Magier dieser Region vormerken, um sie hinterher fuers
            //Reverse-Lookup ins uid-Mapping zu schreiben.
            string *pseudo=({DOMAINDIR"."+domain, domain});
            uidstoadd += pseudo;
            // Rest macht QueryUIDAlias, dabei aber die von der Funktion
            // ebenfalls gelieferten Pseudo-UIDs wieder abziehen.
            uids += QueryUIDAlias(domain) - pseudo;
        }
    }
    // jetzt noch nachgucken, fuer welche UIDs dieser Magier explizit noch
    // zustaendig ist.
    if (pointerp(userlist[wizuid,USER_UIDS_TO_TAKE_CARE])) {
    // dies koennte etwas a la "region" oder "anderermagier" sein, d.h. dieser
    // Magier ist fuer alle UIDs von 'andermagier' auch zustaendig. Daher muss
    // jedes davon durch QueryUIDAlias() (was im Falle von Spielern wiederum
    // QueryUIDsForWizard() ruft, aber die Rekursion im Falle von Spielern ist
    // auf 1 begrenzt).
        foreach(string uid2: userlist[wizuid,USER_UIDS_TO_TAKE_CARE]) {        
            uidstoadd += QueryUIDAlias(uid2, recursive);
        }
    }

    // so, in uidstoadd stehen UIDs drin, die nicht Magiername selber,
    // d.region.magier oder p.service.magier sind und bei welchen folglich das
    // Mapping UIDs-nach-Magier nur mit einer Liste moeglich ist. In die
    // werden die uids nun eingetragen. (z.B. d.region)
    if (sizeof(uidstoadd)) {
        // genug Platz in userids? Sonst welche rauswerfen. :-/ 
        // (besser als bug) TODO: Auf 10k begrenzen -> max Arraygroesse!
        if ( sizeof(userids)+(i=sizeof(uidstoadd))               
            >= __MAX_MAPPING_KEYS__) {
            foreach(string tmpuid: m_indices(userids)[0..i])        
              efun::m_delete(userids,tmpuid);  
        }
        foreach(string tmpuid: uidstoadd) {  
            if (member(userids,tmpuid)) {  
                //User dem Array hinzufuegen, wenn noch nicht drin.
                if (member(userids[tmpuid],wizuid)==-1)
                    userids[tmpuid]=userids[tmpuid]+({wizuid});              
            }
            //sonst neuen Eintragen hinzufuegen            
            else
                m_add(userids,tmpuid,({wizuid}));          
        }
    } // Ende spez. uids speichern
    
    return(uids+uidstoadd);
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public varargs string* QueryWizardsForUID	(	string	uid,
		int	recursive
	)

Definiert in Zeile 34 der Datei userinfo.c.

Benutzt find_userinfo(), QueryWizardsForUID() und userids.

Wird benutzt von QueryWizardsForUID().

                                                                     {

    if (!stringp(uid) || !strlen(uid))
        return(({}));

    string *tolookup=({uid}); //diese spaeter in userids nachgucken.
    string *wizards=({});
    // Schauen, was automatisch ermittelt werden kann.
    string *parts=explode(uid,".");
    switch(sizeof(parts)) {
         case 3:
          // z.B. d.region.magier und p.service.magier
          if (find_userinfo(parts[2]))
              //Magier existiert, reinschreiben.
              wizards+=({parts[2]});
          if (parts[0]=="d")
              // d.region noch nachgucken (RMs)
              tolookup=({implode(parts[0..1],".")});
          break;
        //case 2:
          // GUILD.gilde, p.project, d.region
          // koennen nur in userids nachgeguckt werden (s.u. tolookup)
          // muessen da als GUILD.*, d.* und p.* drinstehen!
        case 1:
          // kein Punkt drin. Entweder Magier-ID oder spezielle ID
          // (letztere wird unten noch per tolookup nachgeguckt)
          if (find_userinfo(parts[0]))
              wizards+=({parts[0]});
          break;
    }
    // jetzt in userids nachschlagen
    foreach(uid: tolookup) {
        if (member(userids,uid))
            wizards+=userids[uid];
    }
    // so. Nun kann es aber noch sein, dass in userids sowas wie
    // "d.wald.atamur":({atamur}) und "atamur":({"rumata"}) drinsteht, also
    // ein Magier sozusagen fuer Kram eines anderen verantwortlich ist. D.h.
    // nochmal durch QueryWizardsForUID() schicken (das ist dann allerdings nicht
    // weiter rekursiv).
    if (!recursive) {
      foreach(uid: wizards) {
        //es ist moeglich, in der Schleife wizards zu vergroessern, ohne dass
        //es Einfluss auf die Schleife hat.        
        wizards += QueryWizardsForUID(uid, 1) - ({uid});
      }
    }
    return(m_indices(mkmapping(wizards)));
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public string* RemoveWizardFromUID	(	string	uid,
		string	wizuid
	)

Definiert in Zeile 240 der Datei userinfo.c.

                                                              {
    if (!stringp(wizuid) || !strlen(wizuid)
        || !find_userinfo(wizuid))
        return(({}));

    //Zugriff nur als EM oder jemand, der fuer die UID zustaendig ist.
    if ( funcall(symbol_function('secure_level)) < ARCH_LVL 
        && member(
            QueryUIDsForWizard(funcall(symbol_function('secure_euid))),
            uid)==-1)
        return copy(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]);

    // jetzt muss diese wizuid aus allen UIDs in userids geloescht werden, die
    // sie bisher enthalten. Hierzu sollte QueryUIDAlias die potentiell
    // drinstehenden UIDs liefern.
    foreach(string tuid: QueryUIDAlias(wizuid,0)) {
        if (member(userids, tuid) &&
            member(userids[tuid],wizuid)!=-1 )
            userids[tuid] -= ({wizuid});
    }
    // wenn es eine UID war, fuer die der Magier explizit zustaendig war,
    // entsprechend loeschen. Sonst ist hier Ende.
    if (!pointerp(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]))
        return ({});
    if (member(userlist[wizuid,USER_UIDS_TO_TAKE_CARE],uid)==-1)
        return copy(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]);

    // Jetzt aus userlist loeschen.
    userlist[wizuid,USER_UIDS_TO_TAKE_CARE] -= ({uid});
    save_userinfo(wizuid);
    // und userids/uidaliase aktualisieren.
    QueryUIDsForWizard(wizuid);
    return copy(userlist[wizuid,USER_UIDS_TO_TAKE_CARE]);
}

protected void save_userinfo

(

string

user

)

Definiert in Zeile 850 der Datei userinfo.c.

Wird benutzt von set_player_object(), update_ek(), update_ektips(), update_ep(), update_fptips(), update_mq(), update_password() und update_wiz_level().

                                          {
  if(!user||user=="")
    return;
  user=explode(user,".")[0];
  if (!member(userlist,user)) return;
  name = user;
  level = userlist[name,USER_LEVEL];
  domains = userlist[name,USER_DOMAIN];
  shell = userlist[name,USER_OBJECT];
  password = userlist[name,USER_PASSWORD];
  creation_date = userlist[name,USER_CREATION_DATE];
  if (!creation_date) creation_date = -1;
  ep = userlist[name,USER_EP];
  if (!ep) ep="";
  ek = userlist[name,USER_EK];
  if (!ek) ek="";
  mq = userlist[name,USER_MQ];
  if (!mq) mq="";
  guilds = userlist[name,USER_GUILD];
  ektips=userlist[name,USER_EKTIPS];
  if(!ektips) ektips="";
  fptips=userlist[name,USER_FPTIPS];
  if(!fptips) fptips="";
  uidstotakecare=userlist[name,USER_UIDS_TO_TAKE_CARE];

  if (save_object(SECURESAVEPATH+name[0..0]+"/"+name) != 0) {
    // autsch. Buggen damit dieser moeglichst schnell auffaellt, dass hier
    // Savefiles in /secure/save/ nicht geschrieben wurden.
    raise_error(sprintf(
          "Savefile %O konnte nicht erstellt werden!\n",
          SECURESAVEPATH+name[0..0]+"/"+name));
  }
  // Savefile aus save_inactive loeschen
  string inactive = secure_isavefile(user);
  if (stringp(inactive) && strlen(inactive))
      rm("/"+inactive);
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void save_wiz_file

(

)

Definiert in Zeile 1087 der Datei master.c.

Benutzt wizlist_info().

{
  rm("/WIZLIST");
  write_file("/WIZLIST",implode(
     map(wizlist_info(),#'_save_wiz_file_loop),""));
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

public string secure_savefile

(

string

name

)

Definiert in Zeile 524 der Datei userinfo.c.

Benutzt SECURESAVEPATH.

Wird benutzt von find_userinfo(), good_password(), logon2() und new_logon().

{
  if(!name||name=="")
    return "";
  name=explode(name,".")[0];
  if (file_size(SECURESAVEPATH+name[0..0]+"/"+name+".o")>=0)
    return SECURESAVEPATH+name[0..0]+"/"+name;
  else if (file_size("secure/save_inactive/"+name[0..0]+"/"+name+".o")>=0)
    return "secure/save_inactive/"+name[0..0]+"/"+name;
  return "";
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

protected void SendWizardHelpMail	(	string	name,
		int	level
	)

Definiert in Zeile 450 der Datei misc.c.

Wird benutzt von add_domain_master() und advance_wizlevel().

                                                          {
  
  object pl=funcall(symbol_function('find_player),name);
  if (!objectp(pl)) return;

  string file=sprintf("%sinfo_ml%d", WIZ_HELP_MAIL_DIR, level);
  // wenn kein Hilfetext fuer den Level da ist: raus
  if (file_size(file) <= 0)
    return;

  string subject = read_file(file,1,1);
  string text = funcall(symbol_function('replace_personal),
                         read_file(file,2), ({pl}));
  
  mixed mail = ({"Merlin", "<Master>", name, 0, 0, subject,
                 funcall(symbol_function('dtime),time()), 
                 MUDNAME+time(), text });
  MAILDEMON->DeliverMail(mail, 0);
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

protected void set_domains	(	string	player,
		string *	domains
	)

Definiert in Zeile 889 der Datei userinfo.c.

Wird benutzt von add_domain_master() und remove_domain_master().

{
  // wenn der Magier jetzt Domains nicht mehr hat, muessen die aus 'userids'
  // entfernt werden, das uebernimmt RemoveWizardFromUID().
  if (pointerp(userlist[player, USER_DOMAIN])) {
    string *removeduids=
      ((string*)userlist[player, USER_DOMAIN] | domains) - domains;
    foreach(string uid: removeduids)
      RemoveWizardFromUID(uid, player);
  }
  // gecachtes Alias fuer player loeschen
  efun::m_delete(uidaliase,player);
  userlist[player, USER_DOMAIN]=domains;
  save_userinfo(player);
  // UID-zu-Magier-Mapping aktualisieren
  QueryUIDsForWizard(player);
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

protected void set_guilds	(	string	player,
		string *	guilds
	)

Definiert in Zeile 908 der Datei userinfo.c.

Wird benutzt von add_guild_master() und remove_guild_master().

{
  // wenn der Magier jetzt Gilden nicht mehr hat, muessen die aus 'userids'
  // entfernt werden, das uebernimmt RemoveWizardFromUID().
  if (pointerp(userlist[player, USER_GUILD])) {
    string *removeduids=
      ((string*)userlist[player, USER_GUILD] | guilds) - guilds;
    foreach(string uid: removeduids)
      RemoveWizardFromUID(uid, player);
  }
  // gecachtes Alias fuer player loeschen
  efun::m_delete(uidaliase,player);
  userlist[player, USER_GUILD]=guilds;
  save_userinfo(player);
  // UID-zu-Magier-Mapping aktualisieren
  QueryUIDsForWizard(player);
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

int TBanishName	(	string	name,
		int	days
	)

Definiert in Zeile 202 der Datei misc.c.

Wird benutzt von delete_player() und tbanish().

{
  int t;

  if ( (getuid(TI) != name) &&
       !IsDeputy( funcall(symbol_function('secure_euid/*'*/)) ) )
    return 0;

  if (days && QueryTBanished(name)){
    write("Der Name ist schon gebannt.\n");
    return 0;
  }

  if (file_size(SAVEPATH+name[0..0]+"/"+name+".o")<=0){
    write("Es existiert kein Spieler dieses Namens!\n");
    return 0;
  }

  if (!days && member(tbanished, name))
    efun::m_delete(tbanished, name);
  else {
    if (!mappingp(tbanished))
      tbanished = ([]);
    if (days <= -1)
      t = -1;
    else
      t = (time()/86400)*86400 + days*86400;
    tbanished += ([ name : t ]);
  }

  UpdateTBanish();
  return 1;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void update_late_players

(

)

Definiert in Zeile 811 der Datei userinfo.c.

                           {
  string read;
  string *tmp;
  
  lateplayers=0;
  
  read=read_file("/secure/LATE_PLAYERS");
  if(!read || read=="")
  {
    return;
  }
  
  tmp=explode(read,"\n");
  if(!sizeof(tmp))
  {
    return;
  }         
  
  lateplayers=tmp; 
}

int update_wiz_level	(	string	user,
		int	lev
	)

Definiert in Zeile 551 der Datei userinfo.c.

Benutzt find_userinfo(), ob(), PO, ROOTID, save_userinfo(), USER_LEVEL und userlist.

Wird benutzt von add_domain_master() und advance_wizlevel().

                                          {
  object ob;

  if (getuid(PO) != ROOTID && extern_call()) return 0;
  if (!find_userinfo(user)) return 0;
  userlist[user,USER_LEVEL] = lev;
  save_userinfo(user);
  return 1;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

mixed valid_read	(	string	path,
		string	euid,
		string	fun,
		object	obj
	)

Definiert in Zeile 348 der Datei file_access.c.

Benutzt access_rights(), ARCH_LVL, ctime(), deputy_files, DOCDIR, domain_master(), DOMAINDIR, ELDER_LVL, ETCDIR, FTPDIR, full_path_array(), GUILDDIR, insecure, IS_DEPUTY, LIBLOGDIR, LIBOBJDIR, LIBROOMDIR, LIBSAVEDIR, LORD_LVL, MAILDIR, MAILID, NEWSDIR, project_access(), PROJECTDIR, query_wiz_level(), READ_FILE, ROOTID, SECUREDIR, SPELLBOOKDIR, STDDIR, SYSDIR, TO, WIZARD_LVL und WIZARDDIR.

Wird benutzt von FtpAccess().

{
  int s, lev;
  string *strs, suf;

  // einige Funktionen im Driver sind crash-anfaellig bei grossen Strings als
  // Dateinamen. Als Work-Around alle Strings als Pfad ablehnen, die laenger
  // als 2kb sind.
  // TODO: nach Driverreparatur entfernen.
  if (strlen(path) > 2048) return 0;

  if (member(path,' ')!=-1) return 0;

  if (!euid) euid="-";

  strs=full_path_array(path, euid);
  // Pfad soll ab jetzt auf jeden Fall absolut sein.
  if (strs[0] != "")
      path = "/" + implode(strs, "/");
  else
      path=implode(strs, "/");

  // fuer die Rechtebestimmung "/" an Anfang und Ende entfernen
  strs -= ({""});

  if (!sizeof(strs) || !strlen(path) || euid == ROOTID || obj==TO) return path;

  if ((s=sizeof(strs)) <= 1) return path;

  lev=query_wiz_level(euid);

  switch(strs[0]) {
    case "core":
    case "wahl":
    case NEWSDIR:
      return 0;

//    case "pub":
//        if ( lev < WIZARD_LVL )
//            return 0;

    case "maps":
      if (lev<=WIZARD_LVL) return 0;

    case "":
    case ETCDIR:
    case STDDIR:
    case SYSDIR:
    case DOCDIR:
    case LIBOBJDIR:
    case LIBROOMDIR:
    case FTPDIR:
      return path;

    case MAILDIR:
      return (euid==MAILID);

    case SECUREDIR:
      if (strs[1]=="save" || strs[1]=="save_inactive") return 0;
      if (path[<2..]==".o" || path[<5..]==".dump") return 0;
      if (strs[1]!="ARCH" || lev>=ARCH_LVL) return path;

    case LIBLOGDIR:
      if ( strs[1] == "ARCH" && !IS_DEPUTY(euid) )
          return 0;

      if ( strs[1] == "ARCH" && lev < ARCH_LVL && s == 3 &&
           strs[2] != "*" && strs[2][0..2] != "bb." &&
           member( deputy_files, strs[2] ) < 0 )
          return 0;

      if ( lev > WIZARD_LVL )
          return path;

      if ( s == 2 && (strs[1] == "report" || strs[1] == "error") )
          return path; // fuer 'cd'

      // /log sollte jeder auflisten koennen
      if ( s == 2 && strs[1]=="*" && fun=="get_dir")
          return path;

      // unter /log/report/, /log/error und /log/warning/ duerfen alle lesen
      if ( s==3 && 
          (strs[1] == "report" || strs[1] == "error"  
           || strs[1] =="warning"))
          return path;

      // /log/<Magiername> darf von <Magiername> natuerlich auch
      // gelesen werden
      if ( s >= 2 && strs[1] == euid )
          return path;

      return 0;

    case "backup":
    case LIBSAVEDIR:
      if (lev>WIZARD_LVL) return path;

      /* Objekte in /p/* haben bisher leider wizlevel 0 */
      //if (lev==0) return path;

      if (fun=="file_size") return path;

      // das eigene Savefile darf man natuerlich immer. ;-)
      if (s==3 && (strs[2]==euid+".o" || strs[2]==euid))
        return path;
      return 0;

    case PROJECTDIR:
      /* Pruefen ob ein File existiert darf jeder... */
      if (fun=="file_size") return path;

      /* Die Service-Verzeichnisse darf jeder lesen */
      if (s>3 && strs[1]=="service") return path;

      //Weise duerfen in /p/ schreiben, also auch lesen. (Zesstra, 04.11.06)
      if (lev>=ELDER_LVL) return path;

      /* wer hier schreiben darf, darf natuerlich auf jeden Fall lesen */
      //Anmerkung v. Zesstra: das prueft nur, ob jemand in ACCESS_RIGHTS
      //steht, nicht ob jemand (ggf. aus anderen Gruenden schreiben darf)
      if (project_access(euid,strs[1])) return path;
      //Alternativ kann man explizite Schreibrechte auch via access_rights.c
      //vergeben. (und damit natuerlich auch Leserechte)
      if (access_rights(strs,euid)>0) return path;

      /* Objekte eines Projektes haben Lesezugriff auf ihr Projekt */
      if (s>3 && (implode(strs[0..1], ".") == euid
                  || implode(strs[0..2], ".") == euid) ) return path;

      /* Fall-Through */

    case GUILDDIR:
      /* "secure"-Verzeichnisse darf nur lesen, wer da auch schreiben darf */
      if ( s > 3 && strs[<2] == "secure" && member( insecure, strs[1] ) < 0
           && lev < ARCH_LVL && !access_rights(strs, euid) )
          return 0;

      /* Pruefen ob ein File existiert darf jeder... */
      if (fun=="file_size") return path;

      /* Fall-Through */

    case SPELLBOOKDIR:
      // Gildenpbjekte koennen hier lesen
      if (lev==0 && euid[0..4]=="GUILD") return path;

      // Mit Level <= 20 darf man hier nichts lesen
      if ( lev<=WIZARD_LVL && sizeof(regexp( ({strs[<1]}), "\\.[och]" )) )
        return 0;

      return path;

    case WIZARDDIR:
      if (s==2) return path;
      /* das eigene Verzeichniss darf man natuerlich immer lesen... */
      if (strs[1]==euid && lev>=WIZARD_LVL) return path;

      /* Pruefen ob ein File existiert darf jeder... */
      if (fun=="file_size") return path;

      /* fremde Verzeichnisse mit <= Level 20 noch nicht */
      if (lev<=WIZARD_LVL) return 0;

      /* wo man schreiben darf, darf man natuerlich auch lesen... */
      if (lev>=ELDER_LVL) return path;

      // kein Zugriff auf archivierten Code (wo z.B. secure/ drin sein
      // koennen)
      if (member(({"bz2","gz","zip"}), explode(strs[<1],".")[<1]) > -1)
        return 0;

      /* Files ohne Code sind nicht weiter interessant... */
      if ( !sizeof(regexp( ({strs[<1]}), "\\.[och]" )) )
          return path;

      /* folgende Funktionen sind natuerlich voellig uninteressant */
      if (member(({"get_dir", "restore_object"}), fun)!=-1)
          return path;

      /* Zugriff erlaubt, aber mitloggen */
      write_file( READ_FILE, sprintf("%O %s %s: %s\n", fun, ctime()[4..],
                                     euid, path) );
      return path;

    case DOMAINDIR:
      /* Mit Level 15 darf man hier _nichts_ lesen */
      if ( fun!="file_size" && lev<WIZARD_LVL &&
           sizeof(regexp( ({strs[<1]}), "\\.[och]" )) ) return 0;

      /* den Verzeichnisbaum von /d/ darf man natuerlich sonst lesen */
      if (s<=2) return path;

      /* eigenen Code darf man natuerlich auch lesen */
      if (euid==strs[2] || euid==sprintf("d.%s.%s", strs[1], strs[2]))
         return path;

      /* Deputies haben ein gemeinsames Verzeichnis unter /d/erzmagier */
      if (strs[1]=="erzmagier" && strs[2]=="polizei" && IS_DEPUTY(euid))
          return path;

      /* d/erzmagier darf man nur als Erzmagier lesen */
      if (strs[1]=="erzmagier" && lev<ARCH_LVL) return 0;

      /* einige Regionen haben std-verzeichnisse, die darf man natuerlich
         auch mit Level 20 bereits komplett lesen! */
      if (strs[2]=="std") return path;

      /* "secure"-Verzeichnisse darf nur lesen, wer da auch schreiben darf */
      if ( s > 4 && strs[<2] == "secure" && member( insecure, strs[2] ) < 0 ){
          if ( lev < ELDER_LVL && !domain_master(euid, strs[1])
               && !access_rights(strs, euid) )
              return 0;
          else
              return path;
      }

      /* Dokus, Infos und .readme darf man immer lesen... */
      if ( fun=="file_size" || !sizeof(regexp( ({strs[<1]}), "\\.[och]" )) )
          return path;

      /* Mit Level 20 darf man noch keinen fremden Code lesen! */
      if (lev<=WIZARD_LVL) return 0;

      /* Weise duerfen natuerlich alles weitere lesen */
      if (lev>=ELDER_LVL) return path;

      /* Regionsmagier in ihren Regionen natuerlich auch */
      if (lev>=LORD_LVL && domain_master(euid, strs[1])) return path;

      /* folgende Funktionen sind natuerlich voellig uninteressant */
      if (member(({"get_dir", "restore_object"}), fun)!=-1)
          return path;

      /* Zugriff erlaubt, aber mitloggen */
      write_file( READ_FILE, sprintf("%O %s %s: %s\n", fun, ctime()[4..],
                                     euid, path) );
      return path;
  }
  if (lev<ARCH_LVL) return 0;
  return path;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

mixed valid_write	(	string	path,
		string	euid,
		string	fun,
		object	obj
	)

Definiert in Zeile 153 der Datei file_access.c.

Benutzt access_rights(), ARCH_LVL, creator_file(), DOCDIR, domain_master(), domain_member(), DOMAINDIR, ELDER_LVL, ETCDIR, FTPDIR, full_path_array(), get_wiz_level(), GUILDDIR, IS_WIZARD, LIBLOGDIR, LIBOBJDIR, LIBROOMDIR, LIBSAVEDIR, MAILDIR, MAILID, project_access(), PROJECTDIR, query_wiz_level(), ROOTID, SPECIAL_LVL, SPELLBOOKDIR, STDDIR, SYSDIR, TMPDIR, TO, WIZARD_LVL und WIZARDDIR.

Wird benutzt von FtpAccess().

{
  int s,lvl;
  string *strs;
  int *date;

  // einige Funktionen im Driver sind crash-anfaellig bei grossen Strings als
  // Dateinamen. Als Work-Around alle Strings als Pfad ablehnen, die laenger
  // als 2kb sind.
  // TODO: nach Driverreparatur entfernen.
  if (strlen(path) > 2048) return 0;

  if (member(path,' ')!=-1) return 0;

  switch(fun) {
    case "log_file":
      strs=full_path_array("/"+path, 0);
      path = implode(strs, "/");
      strs -= ({""}); // remove trailing and leading "/".
      if (sizeof(strs)>1 && strs[0]=="log") return path;
      return 0;
    case "save_object":
      if (!path) return 0;
      strs=full_path_array("/"+path, 0);
      break;
    case "ed_start":
      if (path && path[0])
        strs=full_path_array(path, euid);
      else strs=({"players",euid,".err"});
      break;
    default:
      strs=full_path_array(path, euid);
  }

  if (!euid || euid=="NOBODY" || euid=="ftp" || euid=="anonymous") return 0;

  // Pfad soll ab jetzt auf jeden Fall absolut sein.
  if (strs[0] != "")
      path = "/" + implode(strs, "/");
  else
      path=implode(strs, "/");

  // fuer die Rechtebestimmung "/" an Anfang und Ende entfernen
  strs -= ({""});

  //Root-Objekte und Master duerfen immer.
  if (euid == ROOTID || obj==TO) return path;

  lvl=query_wiz_level(euid);

  //Toplevel: nur EM+
  if ((s=sizeof(strs))<=1) return lvl>=ARCH_LVL;

  switch(strs[0]) {
    case TMPDIR:
      return 1;

//    case "pub":
//      return lvl>=WIZARD_LVL;

    case STDDIR:
    case SYSDIR:
    case LIBOBJDIR:
    case ETCDIR:
    case LIBROOMDIR:
      return lvl>=ARCH_LVL;

    case SPELLBOOKDIR:
    case GUILDDIR:
      return ((lvl>=ARCH_LVL) || access_rights(strs,euid));

    case DOCDIR:
      if ( s > 1 && (strs[1] == "balance") )
        return ((lvl>=ARCH_LVL) || access_rights(strs,euid));
      else
        return ((lvl>=SPECIAL_LVL) || access_rights(strs,euid));

    case FTPDIR:
        if ( s > 1 && (strs[1] == "incoming" || strs[1] == "tmp" ||
                       s == 3 && strs[1] == "News" && strs[2] == euid+".news") )
            return 1;

        if (lvl>=ELDER_LVL)
            return 1;

        return 0;

    case MAILDIR:
      if (euid==MAILID || strs[1]=="spool") break;
      return 0;

    case LIBSAVEDIR:
      if (lvl>=ARCH_LVL) return 1;
      if (s==3 && strs[1] == euid[0..0] &&
          (strs[2]==euid+".o" || strs[2]==euid)) break;
      return 0;

    case LIBLOGDIR:
      /* auf /log/ARCH/ haben wirklich nur EMs Zugriff */
      if (strs[1]=="ARCH" && lvl<ARCH_LVL) return 0;

      /* alles andere duerfen auch Weise... */
      if (lvl>=ELDER_LVL) return 1;

      /* Allgemeine logfiles in /log duerfen wirklich nur geschrieben werden */
      if (s==2 && strs[1][0]>='A' && strs[1][0]<='Z' && fun != "write_file")
         return 0;

      /* Unterhalb von /log/syslog darf nur geschrieben werden */
      if (s>1 && strs[1]=="syslog" && fun != "write_file")
         return 0;

      /* loggen ins eigene repfile immer erlauben */
      if (s==3 && strs[1]=="report" &&
          strs[2]==explode(euid, ".")[<1]+".rep") break;

      /* in fremden Verzeichnissen hat niemand was zu loggen */
      if (get_wiz_level(strs[1]) >= WIZARD_LVL &&
          strs[1] != efun::explode(euid, ".")[<1])
         return 0;
      break;

    case WIZARDDIR:
      /* kein Zugriff auf Objekte mit hoeheren Rechten */
      if (query_wiz_level(strs[1]) > lvl) return 0;

      /* Magier selbst oder Weise duerfen hier schreiben */
      if ((IS_WIZARD(euid) && euid==strs[1])||(lvl>=ELDER_LVL)) break;

      /* Es steht jedoch frei, auch anderen Schreibrechte zu geben... */
      return access_rights(strs,euid);
      
    case DOMAINDIR:
      /* neue Regionen duerfen nur Erzmagier anlegen */
      if (s<2 && lvl<ARCH_LVL) return 0;

      /* kein Zugriff auf Objekte mit hoeheren Rechten */
      if (s>2 && query_wiz_level(creator_file(path)) > lvl)
         return 0;

      /* Auf Regionfiles von erzmagier haben nur EMs Zugriff */
      if (creator_file(path)=="erzmagier" && lvl<ARCH_LVL) return 0;

      /* innerhalb der Region haben RMs und Weise volle Schreibrechte */
      if (lvl>=ELDER_LVL || domain_master(euid,strs[1])) break;

      /* neue Verzeichnisse in der Region kann nur RM+ anlegen */
      if (s<=3 && (fun=="mkdir" || fun=="rmdir")) return 0;

      /* Magier auf ihre eigenen Files... */
      if (s>2 && strs[2]==euid) break;

      /* Files der Magier in der Region in ihre eigenen Verzeichnisse... */
      if (s>2 && euid==sprintf("d.%s.%s", strs[1], strs[2])) break;

      /* Files mit Regionsuid */
      if (euid==strs[1]) break;

      /* Es ist moeglich anderen Magiern Rechte bei sich einzuraeumen. */
      if (access_rights(strs,euid)>0) break;

      /* Auf das Verzeichniss 'alle' haben alle Regionsmitglieder Zugriff.
         Ausser, wenn sie ueber access_rights.c explizit ausgeschlossen
         werden (Returncode < 0). */
      if (s>2 && strs[2]=="alle" && domain_member(euid, strs[1]) &&
          access_rights(strs,euid)>=0) break;
      return 0;

    case PROJECTDIR:
      /* Nur Erzmagier duerfen neue Projektverzeichnisse anlegen... */
      if (s<3 && lvl<ARCH_LVL) return 0;

      /* alles weitere duerfen auch Weise tun */
      if (lvl>=ELDER_LVL) break;

      /* in den Serviceverzeichnissen muss lediglich der Name stimmen */
      if (s>3 && strs[1]=="service" && euid==strs[2]) break;

      /* Objekte eines Projektes haben Schreibzugriffe auf ihr Projekt */
      if (s>3 && (implode(strs[0..1], ".") == euid
                  || implode(strs[0..2], ".") == euid) ) return 1;

      /* Schreibrechte koennen natuerlich auch vergeben werden... */
      if (project_access(euid,strs[1])) break;
      // Alternativ besteht neben dem ACCESS_RIGHTS auch noch die
      // Moeglichkeit, per access_rights.c Rechte einzuraeumen.
      if (access_rights(strs,euid)>0) break;

     return 0;

    default: return 0;
  }
  return path;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird: