Ebenenflags eingefuehrt.
Die Ebenenflags koennen zukuenftig bestimmtes Verhalten
steuern. Diese werden aus dem channeld.init ausgelesen,
und via setup() an new() durchgereicht. Sie koennen aber
auch bei direktem Aufruf von new() angegeben werden.
Zunaechst ist ein Flag CHF_FIXED_SUPERVISOR vorgesehen,
welches verhindert, dass der Supervisor wechseln kann.
Das CHF_FIXED_SUPERVISOR haben zunaechst alle Ebenen im
channeld.init gesetzt bekommen, welche irgendwelchen
Zugriffslevel oder -flags definieren.
Change-Id: Id9e4e012d8060316e51d2fa8c505a33ec578d7be
diff --git a/p/daemon/channeld.c b/p/daemon/channeld.c
index 15bdddf..25a0a7a 100644
--- a/p/daemon/channeld.c
+++ b/p/daemon/channeld.c
@@ -36,8 +36,8 @@
struct channel_base_s {
string name; // readable channelname, case-sensitive
string|closure desc; // stat. oder dyn. Beschreibung
- string creator; // Ersteller der Ebene (Objektname)
-// int flags; // Flags, die weiteres Verhalten steuern.
+ string creator; // Ersteller der Ebene (Objektname), Original-SV
+ int flags; // Flags, die bestimmtes Verhalten steuern.
};
// Basisdaten + die von aktiven Ebenen
@@ -367,12 +367,13 @@
// setup() -- set up a channel and register it
// arguments are stored in the following order:
// string* chinfo = ({ channel_name, receive_level, send_level,
-// adminflags, description, supervisor })
+// adminflags, channelflags, description,supervisor })
private void setup(string* chinfo)
{
string desc = "- Keine Beschreibung -";
object supervisor = this_object();
int sv_recv, sv_send, sv_flags; // an den Supervisor weiterreichen
+ int chflags;
if (sizeof(chinfo) && sizeof(chinfo[0]) > 1 && chinfo[0][0] == '\\')
chinfo[0] = chinfo[0][1..];
@@ -381,13 +382,15 @@
{
// Alle Fallthroughs in dem switch() sind Absicht.
default:
- if (stringp(chinfo[5]) && sizeof(chinfo[5]))
- catch(supervisor = load_object(chinfo[5]); publish);
+ if (stringp(chinfo[6]) && sizeof(chinfo[6]))
+ catch(supervisor = load_object(chinfo[6]); publish);
if (!objectp(supervisor))
supervisor = this_object();
+ case 6:
+ if (stringp(chinfo[5]))
+ desc = chinfo[5];
case 5:
- if (stringp(chinfo[4]) || closurep(chinfo[4]))
- desc = chinfo[4];
+ chflags = to_int(chinfo[4]);
case 4:
sv_flags = to_int(chinfo[3]);
case 3:
@@ -405,7 +408,7 @@
supervisor->ch_supervisor_setup(lower_case(chinfo[0]), sv_recv,
sv_send, sv_flags);
- if (new(chinfo[0], supervisor, desc) == E_ACCESS_DENIED)
+ if (new(chinfo[0], supervisor, desc, chflags) == E_ACCESS_DENIED)
{
log_file("CHANNEL", sprintf("[%s] %s: %O: error, access denied\n",
dtime(time()), chinfo[0], supervisor));
@@ -814,14 +817,9 @@
// Das Objekt <owner> kann eine Funktion check_ch_access() definieren, die
// gerufen wird, wenn eine Ebenenaktion vom Typ join/leave/send/list/users
// eingeht.
-// check_ch_access() dient der Zugriffskontrolle und entscheidet, ob die
-// Nachricht gesendet werden darf oder nicht.
#define IGNORE "^/xx"
-
-// TODO: KOMMENTAR
-//check may contain a closure
-// called when a join/leave/send/list/users message is received
-public varargs int new(string ch_name, object owner, string|closure desc)
+public varargs int new(string ch_name, object owner, string|closure desc,
+ int channel_flags)
{
// Kein Channelmaster angegeben, oder wir sind es selbst, aber der Aufruf
// kam von ausserhalb. (Nur der channeld selbst darf sich als Channelmaster
@@ -859,8 +857,8 @@
}
else
{
- ch = (<channel_s> name: ch_name, desc: desc, creator: object_name(owner)
- );
+ ch = (<channel_s> name: ch_name, desc: desc, creator: object_name(owner),
+ flags: channel_flags);
}
ch_name = lower_case(ch_name);
@@ -873,6 +871,8 @@
//bauen, die *nicht* im Supervisor liegt? IMHO nein! Es ist ein
//merkwuerdiges Konzept, dass der channeld Rechte fuer ne Ebene
//pruefen soll, die nen anderes Objekt als Supervisor haben.
+ // check_ch_access() dient der Zugriffskontrolle und entscheidet, ob die
+ // Nachricht gesendet werden darf oder nicht.
ch.access_cl = symbol_function("check_ch_access", owner) || #'check_ch_access;
m_add(channels, ch_name, ch);