master.c-Dateireferenz

#include "/sys/files.h"
#include "/secure/master.h"
#include "/sys/rtlimits.h"
#include "/sys/debug_info.h"
#include "/sys/debug_message.h"
#include "/secure/master/destruct.c"
#include "/secure/master/autoinclude.c"

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

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	RESETINT   3600
#define	LOGROTATE   (24*2)
#define	LOGFILEAGE   (RESETINT*LOGROTATE)
#define	LOGNUM   3
Funktionen
protected void	inaugurate_master (int arg)
protected string *	epilog (int eflag)
protected void	preload (string file)
protected string *	get_simul_efun ()
void	redo_preload ()
public varargs int	remove (int silent)
protected void	reset ()
string	creator_file (mixed str)
protected mixed	give_uid_to_object (string datei, object po)
string	get_master_uid ()
string	get_bb_uid ()
string	get_wiz_name (string file)
protected object	connect ()
protected void	disconnect (object who, string remaining)
protected object	compile_object (string filename)
protected void	remove_player (object victim)
protected void	slow_shut_down (int minutes)
protected varargs void	notify_shutdown (string crash_reason)
int	valid_exec (string name, object ob, object obfrom)
int	valid_snoop (object me, object you)
int	valid_query_snoop (object wiz)
int	valid_seteuid (object ob, string neweuid)
int	valid_trace (string what, mixed arg)
int	query_allow_shadow (object ob)
int	privilege_violation (string op, mixed who, mixed arg1, mixed arg2)
protected int	heart_beat_error (object culprit, string error, string program, string current_object, int line, int caught)
protected int	log_error (string file, string message, int warn)
	Error handling fuer Fehler beim Compilieren.
private void	handle_runtime_error (string err, string prg, string curobj, int line, mixed culprit, int caught, object po, string hashkey)
private void	call_runtime_error (string err, string prg, string curobj, int line, mixed culprit, int caught, object po)
protected void	runtime_error (string err, string prg, string curobj, int line, mixed culprit, int caught)
protected void	runtime_warning (string msg, string curobj, string prog, int line, int inside_catch)
protected int	save_ed_setup (object who, int code)
protected int	retrieve_ed_setup (object who)
string	get_ed_buffer_save_file_name (string file)
protected void	external_master_reload ()
protected void	flag (string str)
protected void	stale_erq (closure callback)
protected void	reactivate_destructed_master (int flag)
protected void	quota_demon ()
string	printf_obj_name (object ob)
static string	_save_wiz_file_loop (mixed *a)
protected void	save_wiz_file ()
void	telnet_neg (mixed cmd, mixed opt, mixed args)
protected mixed	load_uid_hook (string datei)
protected mixed	clone_uid_hook (string blueprint, string new_name)
Variablen
inherit secure master	misc
inherit secure master	userinfo
inherit secure master	network
inherit secure master	domain
inherit secure master	guild
inherit secure master	file_access
inherit secure master	players_deny
static int	logrotate_counter

---

Makro-Dokumentation

#define LOGFILEAGE   (RESETINT*LOGROTATE)

Definiert in Zeile 42 der Datei master.c.

#define LOGNUM   3

Definiert in Zeile 43 der Datei master.c.

#define LOGROTATE   (24*2)

Definiert in Zeile 41 der Datei master.c.

#define RESETINT   3600

Definiert in Zeile 40 der Datei master.c.

---

Dokumentation der Funktionen

static string _save_wiz_file_loop

(

mixed *

a

)

[static]

Definiert in Zeile 1081 der Datei master.c.

Benutzt WL_COMMANDS, WL_EXTRA und WL_NAME.

{
  return sprintf("%s %d %d\n",a[WL_NAME],a[WL_COMMANDS],a[WL_EXTRA]);
}

private void call_runtime_error	(	string	err,
		string	prg,
		string	curobj,
		int	line,
		mixed	culprit,
		int	caught,
		object	po
	)

Definiert in Zeile 923 der Datei master.c.

Benutzt handle_runtime_error().

                                                    {
    string hashkey;

    //Fehlerdaten an den Errord zur Speicherung weitergeben, falls wir sowas
    //haben.
#ifdef ERRORD
    catch(hashkey=limited(#'call_other,({200000}),ERRORD,"LogError",
          err,prg,curobj,line,culprit,caught);publish);
#endif // ERRORD

    //eigenen Errorhandler laufzeitbegrenzt rufen
    limited(#'handle_runtime_error, ({ 200000 }), err, prg, curobj,
        line,culprit,caught, po, hashkey);
}

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

protected 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:

protected object compile_object

(

string

filename

)

Definiert in Zeile 534 der Datei master.c.

Benutzt creator_file() und REAL_EUID.

{
  object ret;
  string *str;
  string compiler;

  if (!strlen(filename)) return 0;
  str=efun::explode(filename,"/");

  if(sizeof(str)<2) return 0;
  compiler=implode(str[0..<2],"/")+"/virtual_compiler";
 
  if (file_size(compiler+".c")>0)
  {
    if(catch(
          ret=(object)call_other(compiler,"compile_object",str[<1]); publish))
      return 0;
  }
  else
      return(0);

  if ( objectp(ret) && efun::explode(creator_file(filename), ".")[<1] !=
       REAL_EUID(ret) ){
      funcall( symbol_function('log_file/*'*/), "ARCH/VC_MISSBRAUCH",
               sprintf( "%s: %s versucht per VC %s zu %s umzubenennen!\n",
                        funcall( symbol_function('dtime/*'*/), time() ),
                        (this_interactive() ? getuid(this_interactive()):
                         object_name(previous_object())), object_name(ret),
                         filename) );

      return 0;
  }
  return ret;
}

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

protected object connect

(

)

Definiert in Zeile 484 der Datei master.c.

{
  string err;
  int errno;
  object ob,bp;

#if defined(SSLPORT) && __EFUN_DEFINED__(tls_available)
  if (query_mud_port() == SSLPORT) {
    // reject connection of TLS is not available
    if (!tls_available())
      return 0;
    // establish TLS
    errno=tls_init_connection();
    if (errno < 0) {
      // Fehler im Vebindungsaufbau
      printf("Can't establish a TLS/SSL encrypted connection: %s\n",
          tls_error(errno));
      return 0; // this will close the connection to the client.
    }
  }
#endif
  // if err is > 0, the TLS connection is still being established in the
  // background. We must not send any data to the client.
  if (errno == 0) {
    printf("HTTP/1.0 302 Found\n"
         "Location: http://mg.mud.de/\n\n"
         "NetCologne, Koeln, Germany. Local time: %s\n\n"
         MUDNAME" LDmud, NATIVE mode, driver version %s\n\n",
         strftime("%c"), __VERSION__);
  }

  // Blueprint im Environment? Das geht nun wirklich nicht ...
  if ((bp=find_object("/secure/login")) && environment(bp)) 
      catch(destruct(bp);publish);

  // Login-Shell clonen
  err = catch(ob = clone_object("secure/login"); publish);

  if (errno == 0 && err)
      write("Fehler beim Laden von /secure/login.c\n"+err+"\n");

  return ob;
}

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:

protected void disconnect	(	object	who,
		string	remaining
	)

Definiert in Zeile 529 der Datei master.c.

                                                        {
    who->NetDead(); return;
}

protected string* epilog

(

int

eflag

)

Definiert in Zeile 180 der Datei master.c.

Benutzt ctime(), domains, explode_files(), get_domains(), i, ReloadBanishFile(), ReloadDeputyFile(), ReloadInsecureFile() und ROOTID.

                                    {
  string *files, *domains;
  int i;

  seteuid(ROOTID);
  ReloadBanishFile();
  ReloadDeputyFile();
  ReloadInsecureFile();

  if (eflag) {
    write("-e angegeben -> Preloading unterdrueckt ...\n");
    return 0;
  }

  printf("Preloading gestartet: %s\n\n",ctime(time()));

  //Files fuers Preloading und Regionen holen
  files=explode_files("/std/preload_file") + explode_files("/d/preload_file");
  domains=get_domains() + ({"erzmagier"}); // EM haben auch ein Preload File

  for (i=sizeof(domains);i--;)
    files+=explode_files("/d/"+domains[i]+"/preload_file");
  
  write("\n");
 
  return files;
}

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

protected void external_master_reload

(

)

Definiert in Zeile 1034 der Datei master.c.

{ return; }

protected void flag

(

string

str

)

Definiert in Zeile 1037 der Datei master.c.

{ return; }

string get_bb_uid

(

)

Definiert in Zeile 474 der Datei master.c.

{ return BACKBONEID; }

string get_ed_buffer_save_file_name

(

string

file

)

Definiert in Zeile 1023 der Datei master.c.

{
  return sprintf("/players/%s/.dead_ed_files/%s",
                 getuid(this_player()),efun::explode(file, "/")[<1]);  
}

string get_master_uid

(

)

Definiert in Zeile 473 der Datei master.c.

{ return ROOTID;}

protected string* get_simul_efun

(

)

Definiert in Zeile 262 der Datei master.c.

                                   {
  string err;

  if (!(err=catch(SIMUL_EFUN_FILE->start_simul_efun())) )
    return ({SIMUL_EFUN_FILE});
  
  write("Failed to load simul efun " + SIMUL_EFUN_FILE + "\n");
  debug_message("Failed to load simul efun " + SIMUL_EFUN_FILE +
      " " + err, DMSG_STDOUT | DMSG_LOGFILE);

  if (!(err=catch(SPARE_SIMUL_EFUN_FILE->start_simul_efun())) )
    return ({SPARE_SIMUL_EFUN_FILE});
  
  write("Failed to load spare simul efun" + SPARE_SIMUL_EFUN_FILE + "\n");
  debug_message("Failed to load spare simul efun " + SPARE_SIMUL_EFUN_FILE +
      " " + err, DMSG_STDOUT | DMSG_LOGFILE);

 
  efun::shutdown();
  
  return 0;
}

string get_wiz_name

(

string

file

)

Definiert in Zeile 477 der Datei master.c.

{ return creator_file(file);}

protected 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:

private void handle_runtime_error	(	string	err,
		string	prg,
		string	curobj,
		int	line,
		mixed	culprit,
		int	caught,
		object	po,
		string	hashkey
	)

Definiert in Zeile 871 der Datei master.c.

Benutzt code, DEBUG2_MSG, DEBUG_MSG, destruct(), IS_LEARNER, P_TESTPLAYER, TI und TP.

Wird benutzt von call_runtime_error().

                                                                    {
  string code;
  string debug_txt;
  object ob, titp; 

  //DEBUG(sprintf("Callerstack: (handle_runtime_error()): %O\n",
  //        caller_stack(1)));
  // Fehlermeldung bauen
  if (!stringp(err))    err="<NULL>";
  if (!stringp(prg))    prg="<NULL>";
  if (!stringp(curobj)) curobj="<NULL>";
  debug_txt=sprintf("Fehler: %O, Objekt: %s, Programm: %O, Zeile %O (%s), "
                    "ID: %s",
                    err[0..<2], curobj, (prg[0]!='<'?"/":"")+prg, line,
                    (TI?capitalize(getuid(TI)):"<Unbekannt>"),
                    hashkey||"");
  
  titp = TI || TP;
  // Fehlermeldung an Kanaele schicken
  if (titp && (IS_LEARNER(titp) || (titp->QueryProp(P_TESTPLAYER))))
    DEBUG2_MSG(debug_txt,po); // -entw
  else
    DEBUG_MSG(debug_txt,po);  // -Debug
  if (!titp) return;

  // Fehlermeldung an Benutzer
  if (IS_LEARNER(titp))
    tell_object(titp,
                sprintf("%'-'78.78s\nfile: %s line: %d object: %s\n" +
                        "%serror: %s%'-'78.78s\n","",prg,line,curobj,
                        (prg&&(code=read_file("/"+prg,line,1))?
                         "\n"+code+"\n":""),err,""));
  else
    write("Du siehst einen Fehler im Raum-Zeit-Gefuege.\n");

  // Wenn Magierclosure zerstoert wurde: Magier zerstoeren
  // TODO: Ist das gewollt?
  if (err=="Object the closure was bound to has been destructed\n")
  {
    ob=find_object(curobj);
    if (ob && IS_LEARNER(ob) && query_once_interactive(ob))
    {
      ob->quit();
      if (ob) catch(ob->remove(); publish);
      if (ob) destruct(ob);
    }
  }
  return;
}

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

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

protected int heart_beat_error	(	object	culprit,
		string	error,
		string	program,
		string	current_object,
		int	line,
		int	caught
	)

Definiert in Zeile 788 der Datei master.c.

{
  if (!objectp(culprit)) return 0;
  if (interactive(culprit))
  {
    tell_object(culprit,"Der GameDriver teilt Dir mit: "
                "Dein Herzschlag hat ausgesetzt!\n");
    if (IS_LEARNER(culprit))
      tell_object(culprit,
                  sprintf("Fehler: %sProgamm: %s, CurrObj: %s, Zeile: %d, "
                    "the error was %scaught at higher level.\n",
                    error,program,current_object,line,
                    caught ? "" : "not"));
  }

  if (query_once_interactive(culprit))
    call_out("restart_heart_beat", 5, culprit);
  else
    catch(culprit->make_immortal(); publish);
  return 0;
}

protected void inaugurate_master

(

int

arg

)

Definiert in Zeile 56 der Datei master.c.

Benutzt create(), DEBUG, dest(), H_AUTO_INCLUDE, H_CLONE_UIDS, item, load_uid_hook(), LoadPLDenylists(), ob(), ROOTID und set_this_player().

                                          {

  seteuid(ROOTID);
  userinfo::create();
  LoadPLDenylists();

  // Was soll vor jede Datei geschrieben werden?
  set_driver_hook(H_AUTO_INCLUDE, #'autoincludehook);

  //div. Listen einlesen
  ReloadBanishFile();
  ReloadDeputyFile();
  ReloadInsecureFile();
 
  // Bei Neustart wizinfo initialisieren
  if (!arg)
    set_extra_wizinfo(0, allocate(BACKBONE_WIZINFO_SIZE));
  
  //simul_efun.c nach inaugurate_master() starten und initialisieren, 
  //(so richtig seh ich den Sinn hier momentan nicht ein...
  //call_out("start_simul_efun",0);

  // Reset festsetzen (1h)
  set_next_reset(RESETINT);


  // Hooks setzen
  
  // Standardincludeverzeichnisse fuer #include <>
  set_driver_hook(H_INCLUDE_DIRS, ({"secure/","sys/"}) );
  
  //Nach dem Laden/Clonen create() im Objekt rufen
  set_driver_hook(H_CREATE_CLONE,       "create");
  set_driver_hook(H_CREATE_OB,          "create");
  set_driver_hook(H_CREATE_SUPER,       "create_super");

  // Bei Reset reset() im Objekt aufrufen
  set_driver_hook(H_RESET,              "reset");
  
  // Zum Aufraeumen clean_up() im Objekt aufrufen  
  set_driver_hook(H_CLEAN_UP,           "clean_up");

  // Jede Eingabe wird ueber modify_command gelenkt
  set_driver_hook(H_MODIFY_COMMAND,       "modify_command");
  set_driver_hook(H_MODIFY_COMMAND_FNAME, "modify_command");

  // Standard-Fehlermeldung
  //set_driver_hook(H_NOTIFY_FAIL,        "Wie bitte?\n");
  set_driver_hook(H_NOTIFY_FAIL, function string (string cmd, object tp)
      {if (stringp(cmd=(string)tp->QueryProp(P_DEFAULT_NOTIFY_FAIL)))
         return(cmd);
       return("Wie bitte?\n");});

  // Was machen bei telnet_neg
  set_driver_hook(H_TELNET_NEG,"telnet_neg");
  //  set_driver_hook(H_TELNET_NEG,0);
 
  // EUID und UID muessen neue Objekte auch noch kriegen, Hooks dafuer setzen
  set_driver_hook(H_LOAD_UIDS, #'load_uid_hook);
  set_driver_hook(H_CLONE_UIDS, #'clone_uid_hook);

  // Nun der beruechtigte Move-Hook ...
  // (bewegt objekt und ruft alle notwendigen inits auf)
  // Hier wird H_MOVE_OBJECT0 benutzt, d.h. die lambda wird an das aktuelle
  // Objekt vor Ausfuehrung gebunden, nicht an 'item', was move_objet()
  // uebergeben wurde.
  set_driver_hook(H_MOVE_OBJECT0,
     unbound_lambda(({'item,'dest}),
       ({#',,                                      // item!=this_object?
         ({#'?,({#'!=,'item,({#'this_object})}),
           ({#'raise_error,                        // ->Fehler!
             "Illegal to move other object than this_object()\n"}) }),
         ({#'efun::set_environment,'item,'dest}),  // item nach dest bewegen
         ({#'?,
           ({#'living,'item}),                     // living(item)?
           ({#',,
             ({#'efun::set_this_player,'item}),    // set_this_player(item)
             ({#'call_other,'dest,"init"}),        // dest->init()
             ({#'?!, 
               ({#'&&,                             // !objectp(item)||
                 ({#'objectp, 'item}),             // env(item)!=dest?
                 ({#'==,({#'environment, 'item}),'dest})}),
               ({#'return})})})}),                 // -> fertig
         ({#'=,'others,({#'-,({#'all_inventory,'dest}),({#'({,'item})})}),
#ifdef EMACS_NERV 
         })   // Emacs kann ({#'({ nicht parsen    // others=all_inv(dest)-
#endif                                             //        ({item})
         ({#'filter,'others,lambda(({'ob,'item}),
            ({#'?,                                     
              ({#'&&,
                ({#'objectp,'item}),               // objectp(item)&&
                ({#'living,'ob}),                  // living(ob)&&
                ({#'==,({#'environment,'item}),({#'environment,'ob})})}),
              ({#',,                               // env(item)==env(ob)?
                ({#'efun::set_this_player, 'ob}),  // set_this_player(ob)
                ({#'call_other,'item, "init"})     // item->init()
              })})),'item}),
         ({#'?,
           ({#'living,'item}),                     // living(item)?
              ({#',,
                ({#'efun::set_this_player,'item}), // set_this_player(item)
                ({#'filter,'others,lambda(({'ob,'item}),
                    ({#'?,                          
                      ({#'&&,                 
                        ({#'objectp,'item}),       // objectp(item)&&
                        ({#'objectp,'ob}),         // objectp(ob)&&
                        ({#'==,({#'environment,'item}),({#'environment,'ob})})
                      }),                          // env(item)==env(ob)?
                      ({#'call_other,'ob,"init"})  // ob->init()
                    })),'item})})}),
         ({#'?,
           ({#'&&,
             ({#'objectp,'item}),                  // objectp(item)&&
             ({#'living,'dest}),                   // living(dest)&&
             ({#'==,({#'environment,'item}),'dest})// env(item)==dest?
           }),
           ({#',,
             ({#'efun::set_this_player,'dest}),    // set_this_player(dest)
             ({#'call_other,'item,"init"})})})})));// item->init()
  DEBUG("Master inaugurated");
  return;
}

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

protected 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:

protected int log_error	(	string	file,
		string	message,
		int	warn
	)

Error handling fuer Fehler beim Compilieren.

log_error() wird vom GameDriver aufgerufen, wenn zur Compile-Zeit ein Fehler auftrat. Die Fehlermeldung wird unter /log/error geloggt. Falls this_interactive() ein Magier ist, bekommt er die Fehlermeldung direkt angezeigt. Sollte das Logfile 50kB ueberschreiten, wird es rotiert. Auf [Entwicklung] wird dann eine Fehlermeldung abgesetzt.

Parameter:

	file	Die Datei, in der der Fehler auftrat.
	message	Die Fehlermeldung.
	warn	Warnung (warn!=0) oder Fehler (warn==0)?

Definiert in Zeile 827 der Datei master.c.

                                                               {
  string lfile;
  string cr;
  mixed *lfile_size;

 //Fehlerdaten an den Errord zur Speicherung weitergeben, falls wir sowas
 //haben.
#ifdef ERRORD
    catch(limited(#'call_other,({200000}),ERRORD,"LogCompileProblem",
          file,message,warn); publish);
#endif // ERRORD

 // Logfile bestimmen
  cr=creator_file(file);
  if (!cr)                     lfile="NOBODY.err";
  else if (cr==ROOTID)         lfile="ROOT";
  else if (member(cr,' ')!=-1) lfile="STD";
  else                         lfile=cr;
  //je nach Warnung oder Fehler Verzeichnis und Suffix bestimmen
  if (warn) {
      lfile="/log/warning/" + lfile + ".warn";
  }
  else {
      lfile="/log/error/" + lfile + ".err";
  }

  // Bei Bedarf Rotieren des Logfiles
  if ( sizeof(lfile_size = get_dir(lfile,2)) &&
           lfile_size[0] >= MAX_ERRLOG_SIZE )
  {
    catch(rename(lfile, lfile + ".old"); publish); /* No panic if failure */
    DEBUG3_MSG("Logfile rotiert: "+lfile+".");
  }

  write_file(lfile,message);

  // Magier bekommen die Fehlermeldung angezeigt
  if (IS_LEARNER(TI)) write(message);
  return 1;
}

protected varargs void notify_shutdown

(

string

crash_reason

)

Definiert in Zeile 594 der Datei master.c.

                                                             {

  if (PO && PO != TO)
    return;
  if (crash_reason) {
      //Uhoh... Verdammter Crash. :-( Zumindest mal mitloggen,
      //was der Driver sagt...
      write_file(CRASH_LOG,sprintf(
            "\n%s: The driver crashed! Reason: %s\n",
            ctime(time()),crash_reason));
  }

  filter(users(), #'tell_object,
               "Game driver shouts: LDmud shutting down immediately.\n");
  save_wiz_file();
  return;
}

protected void preload

(

string

file

)

Definiert in Zeile 209 der Datei master.c.

Benutzt creator_file(), err, name, TO und zeit.

                                    {
  string err;
  string name;
  int *res, zeit;

  // Kein richtiger Dateiname: fertig
  if(!file || !file[0] || file[0] == ';' || file_size(file+".c") < 0) return;

  // Kein Besitzer -> Meldung ausgeben, fertig
  if (!(name=creator_file(file)))
  {
    printf("Kein Besitzer gefunden fuer Datei %s.\n",file);
    return;
  }

  // Datei und Besitzer ausgeben
  printf("%-50s%-15s",file,name);

  // Euid kann nicht geaendert werden -> Meldung, fertig
  if (!seteuid(name))
  {
    printf("\nEuid konnte nicht auf %s gesetzt werden\n"+
             "Sie ist nun %s.\n",name,geteuid(TO));
    return;
  }

  // Dann mal laden .. dabei Zeit messen
  zeit = apply(#'+,rusage()[0..1]);

  // Waehrend des Preloads sind 1.5MTicks leider nicht soviel, insb. wenn
  // sowas wie der channeld jede menge Objekte laden muss, die wiederum erst
  // das ganze Geraffel aus /std/ laden. Daher hier einfach mal fuers Preload
  // die Grenze hoch.
  err = catch(limited(#'load_object,({5000000}),file));

  if (err != 0)
    printf("\nFehler beim Laden von %s:\n%s\n",file,err);
  else
  {
    zeit=apply(#'+,rusage()[0..1])-zeit;
    printf("(%2d.%:02d s)\n",zeit/1000,zeit%1000);
  }

  // Noch EUID zuruecksetzen
  seteuid(ROOTID);

  return;
}

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

string printf_obj_name

(

object

ob

)

Definiert in Zeile 1073 der Datei master.c.

Wird benutzt von telnet_neg().

{ return 0; }

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

int privilege_violation	(	string	op,
		mixed	who,
		mixed	arg1,
		mixed	arg2
	)

Definiert in Zeile 700 der Datei master.c.

{

  if (objectp(who) && 
      (who==this_object() || geteuid(who)==ROOTID))
    return 1; 

  switch(op)
  {
    case "call_out_info":
      return -1;
    case "send_udp":
      return 1;

    case "nomask simul_efun":
    case "get_extra_wizinfo":
      // benutzt von /secure/memory.c und /secure/simul_efun.c
    case "set_extra_wizinfo":
      // wird benutzt von simul_efun.c, welche aber als ROOT-Objekt implizit
      // erlaubt ist (s.o.)
       if (who==SIMUL_EFUN_FILE||
           who == SPARE_SIMUL_EFUN_FILE)
         return 1;
       return -1;

    case "rename_object":
      if (object_name(who)=="/secure/impfetch" ||
          BLUE_NAME(who)=="/secure/login")
        return 1;
      return(-1);

    case "limited":
      // Spielershells duerfen sich zusaetzliche Ticks fuer den Aufruf von
      // ::die() beschaffen, damit der Tod nicht wegen wenig Ticks buggt.
      if (strstr(load_name(who), "/std/shells/") == 0
          && get_type_info(arg1, 2) == who
          && get_type_info(arg1, 3) == "/std/living/life"
//          && get_type_info(arg1, 4) == "die"
          && arg2[LIMIT_EVAL] <= 10000000 ) {
          return 1;
      }
      //DEBUG(sprintf("%O, %O, %O", who, arg1, arg2));
      int *limits=query_limits();
      // LIMIT_EVAL darf verringert werden. Alle anderen Limits duerfen nicht
      // geaendert werden. Achja, LIMIT_EVAL darf nicht 0 (LIMIT_UNLIMITED)
      // sein. *g*
      // LIMIT_COST darf entweder 0 oder -100 sein.
      if (arg2[LIMIT_EVAL]>1000 && (arg2[LIMIT_EVAL] < get_eval_cost())-500
          && arg2[LIMIT_ARRAY] == limits[LIMIT_ARRAY]
          && arg2[LIMIT_MAPPING_KEYS] == limits[LIMIT_MAPPING_KEYS]
          && arg2[LIMIT_MAPPING_SIZE] == limits[LIMIT_MAPPING_SIZE]
          && arg2[LIMIT_BYTE] == limits[LIMIT_BYTE]
          && arg2[LIMIT_FILE] == limits[LIMIT_FILE]
          && arg2[LIMIT_CALLOUTS] == limits[LIMIT_CALLOUTS]
          && (arg2[LIMIT_COST] == 0 || arg2[LIMIT_COST] == -100) )
            return(1);
      //sonst verweigern.
      return(-1);

    case "attach_erq_demon":
    case "bind_lambda": 
    case "enable_telnet":
    case "execute_command":
    case "erq": 
    case "input_to":
    case "mysql":
    case "net_connect":
    case "pgsql":
    case "set_limits":
    case "set_extra_wizinfo_size":
    case "set_driver_hook":
    case "set_max_commands":
    case "set_this_object":
    case "shadow_add_action":
    case "symbol_variable":
    case "variable_list":
    case "wizlist_info":
    default:
      return(-1);
  }
  return -1;
}

int query_allow_shadow

(

object

ob

)

Definiert in Zeile 677 der Datei master.c.

{
  // ROOT darf nicht geshadowed werden
  if(getuid(ob) == ROOTID)
    return 0;
  
  // Access-Rights auch nicht
  if (efun::explode(object_name(ob),"#")[0][<14..]=="/access_rights")
    return 0;
  
  // Ansonsten query_prevent_shadow fragen ...
  return !(int)ob->query_prevent_shadow(PO);
}

protected void quota_demon

(

)

Definiert in Zeile 1059 der Datei master.c.

                             {
    //was kann man machen?
    //uebervolle Seherhaeuser leeren? 
    return;
}

protected void reactivate_destructed_master

(

int

flag

)

Definiert in Zeile 1046 der Datei master.c.

                                                      {
    if (flag) {
        //re-init
        //was machen? TODO
    }
    return;
}

void redo_preload

(

)

Definiert in Zeile 286 der Datei master.c.

{
  string *to_preload;
  int i,j;

  to_preload=epilog(0);
  j=sizeof(to_preload);
  for (i=0;i<j;i++) 
      catch(preload(to_preload[i]));
  return;
}

public varargs int remove

(

int

silent

)

Definiert in Zeile 303 der Datei master.c.

{
  write("Der Master will aber nicht zerstoert werden!\n");
  return 0;
}

protected void remove_player

(

object

victim

)

Definiert in Zeile 574 der Datei master.c.

Benutzt destruct().

{
  catch(victim->quit());
  if (victim) catch(victim->remove());
  if (victim) destruct(victim);
  return;
}

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

protected void reset

(

void

)

Definiert in Zeile 310 der Datei master.c.

{
  int i, *date;
  mixed *wl;

  //Darf nicht von Hand aufgerufen werden!
  if (TI||TP) return;
  
  // Naechsten Reset setzen
  set_next_reset(RESETINT);

  // Userinfo aufraeumen
  _cleanup_uinfo();

  // Projekt-Cache loeschen
  _cleanup_projects();

  // Wenn Zeit abgelaufen, dann READ_FILE-Log rotieren
  if (!logrotate_counter--)
  {
    i=time()/LOGFILEAGE;
    date=get_dir(sprintf("%s.%d", READ_FILE,i%LOGNUM), GETDIR_DATES);
    if (pointerp(date)&&sizeof(date)&&
        (date[0]/LOGFILEAGE)==i) return;
    if (file_size(READ_FILE)>0)
      rename(READ_FILE, sprintf("%s.%d", READ_FILE,i%LOGNUM));
    logrotate_counter=LOGROTATE;
  }
  // einmal am Tag die UIDAliase resetten. Hierzu wird der logrotate_counter
  // missbraucht.
  if (!(logrotate_counter%24)) {
    ResetUIDAliase();
  }

  // Wizlist altert
  wl = wizlist_info();
  for (i=sizeof(wl); i--; )
    set_extra_wizinfo(wl[i][WL_NAME], wl[i][WL_EXTRA] * 99 / 100);

  // Dann noch Mails bearbeiten
  mails_last_hour=0;
  mailread();

  return;
}

protected int retrieve_ed_setup

(

object

who

)

Definiert in Zeile 1013 der Datei master.c.

{
  string file;

  file = sprintf("/players/%s/.edrc",getuid(who));
  if (file_size(file)<1) return 0;
  return (int)read_file(file);
}

protected void runtime_error	(	string	err,
		string	prg,
		string	curobj,
		int	line,
		mixed	culprit,
		int	caught
	)

Definiert in Zeile 942 der Datei master.c.

                                {

    //DEBUG(sprintf("Callerstack: (runtime_error()): %O\nPO: %O\nPO(0): %O\n",
    //          caller_stack(1),previous_object(),previous_object(0)));

    limited(#'call_runtime_error, ({ LIMIT_UNLIMITED }),
        err,prg,curobj,line,culprit,caught,previous_object());
}

protected void runtime_warning	(	string	msg,
		string	curobj,
		string	prog,
		int	line,
		int	inside_catch
	)

Definiert in Zeile 953 der Datei master.c.

                      {
  string code, hashkey;
  string debug_txt;
  object titp;

  //DEBUG(sprintf("Callerstack: in runtime_warning(): %O\nPO(0): %O\n",
  //        caller_stack(1),previous_object(0)));
  
  //Daten der Warnung an den Errord zur Speicherung weitergeben, falls wir 
  //sowas haben.
#ifdef ERRORD
  catch(hashkey=limited(#'call_other,({200000}),ERRORD,"LogWarning",
        msg,prog,curobj,line,inside_catch); publish);
#endif // ERRORD

  // Fehlermeldung bauen
  if (!stringp(msg))    msg="<NULL>";
  if (!stringp(prog))    prog="<NULL>";
  if (!stringp(curobj)) curobj="<NULL>";
  debug_txt=sprintf("Warnung: %O, Objekt: %s, Programm: %O, Zeile %O (%s) "
                    "ID: %s",
                    msg[0..<2], curobj, (prog[0]!='<'?"/":"")+prog, line,
                    (TI?capitalize(getuid(TI)):"<Unbekannt>"),
                    hashkey||"");
  
  //Fehlermeldungen an -warnungen schicken
  DEBUG4_MSG(debug_txt,previous_object());

  titp = TI || TP;

  if (!titp) return;
  
  // Fehlermeldung an Benutzer
  if (IS_LEARNER(titp))
    tell_object(titp,
                sprintf("%'-'78.78s\nfile: %s line: %d object: %s\n" +
                        "%sWarnung: %s%'-'78.78s\n","",prog,line,curobj,
                        (prog&&(code=read_file("/"+prog,line,1))?
                         "\n"+code+"\n":""),msg,""));
  return;
}

protected int save_ed_setup	(	object	who,
		int	code
	)

Definiert in Zeile 1002 der Datei master.c.

{
  string file;

  if (!intp(code)) return 0;
  file = sprintf("/players/%s/.edrc",geteuid(who));
  rm(file);
  return write_file(file,(string)code);
}

protected 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:

protected void slow_shut_down

(

int

minutes

)

Definiert in Zeile 583 der Datei master.c.

{
  //sollte nur vom GD gerufen werden. Oder allenfalls Master selbst
  filter(users(),#'tell_object,
  "Der Gamedriver ruft: Der Speicher wird knapp ! Bereitet euch auf das Ende vor !\n");
  "/obj/shut"->shut(minutes);
  return;
}

protected void stale_erq

(

closure

callback

)

Definiert in Zeile 1040 der Datei master.c.

{ return; }

void telnet_neg	(	mixed	cmd,
		mixed	opt,
		mixed	args
	)

Definiert in Zeile 1095 der Datei master.c.

Benutzt printf_obj_name().

{
  if (opt==34 && cmd==251)
        binary_message(({255,250,34,1,1,255,240}));
}

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

int valid_exec	(	string	name,
		object	ob,
		object	obfrom
	)

Definiert in Zeile 620 der Datei master.c.

{
  // Ungueltige Parameter oder Aufruf durch process_string -> Abbruch
  if (!objectp(ob) || !objectp(obfrom) 
      || !stringp(name) || !strlen(name)
      || funcall(symbol_function('process_call)) )
    return 0;

  // renew_player_object() darf ...
  if (name=="secure/master/misc.c") return 1;

  // Ansonsten darf sich nur die Shell selber aendern ...
  if (previous_object() != obfrom) return 0;

  // Die Login-Shell zu jedem Objekt ...
  if (name=="secure/login.c") return 1;

  // Magier per exec nur, wenn sie damit keine Fremde uid/euid bekommen
  if (this_interactive() == obfrom && getuid(obfrom) == getuid(ob) 
      && geteuid(obfrom) == geteuid(ob)) 
      return 1;

  // Sonst darf niemand was
  return 0;
}

int valid_query_snoop

(

object

wiz

)

Definiert in Zeile 653 der Datei master.c.

                                  {
    return getuid(PO) == ROOTID; 
}

int valid_seteuid	(	object	ob,
		string	neweuid
	)

Definiert in Zeile 658 der Datei master.c.

{
  return (ob==this_object() ||
          getuid(ob) == ROOTID ||
          getuid(ob) == neweuid ||
          creator_file(object_name(ob)) == neweuid);
}

int valid_snoop	(	object	me,
		object	you
	)

Definiert in Zeile 648 der Datei master.c.

                                       { 
    return getuid(PO) == ROOTID; 
}

int valid_trace	(	string	what,
		mixed	arg
	)

Definiert in Zeile 667 der Datei master.c.

                                        { 
    return IS_ARCH(TI);
}

---

Variablen-Dokumentation

inherit secure master domain

Definiert in Zeile 21 der Datei master.c.

Wird benutzt von _addmaster(), _removemaster() und process_names().

inherit secure master file_access

Definiert in Zeile 23 der Datei master.c.

inherit secure master guild

Definiert in Zeile 22 der Datei master.c.

Wird benutzt von _addguildmaster(), _removeguildmaster(), check_restrictions(), create(), ExpandUIDAlias() und GiveQuest().

int logrotate_counter [static]

Definiert in Zeile 45 der Datei master.c.

inherit secure master misc

Definiert in Zeile 18 der Datei master.c.

Wird benutzt von _inventory().

inherit secure master network

Definiert in Zeile 20 der Datei master.c.

inherit secure master players_deny

Definiert in Zeile 24 der Datei master.c.

inherit secure master userinfo

Definiert in Zeile 19 der Datei master.c.

Wird benutzt von finger_single().