X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=webcit%2Froomlist.c;h=b9f967ce6cd6fd988e9897130c2d931c9b1fdd81;hb=HEAD;hp=4a5b3227d3da9684417a60fa5cbaa16edc986712;hpb=bff891b07e8768120a834c6e2198eb4668e64476;p=citadel.git

diff --git a/webcit/roomlist.c b/webcit/roomlist.c
index 4a5b3227d..ccd54e074 100644
--- a/webcit/roomlist.c
+++ b/webcit/roomlist.c
@@ -1,102 +1,224 @@
 /*
- * $Id: roomlist.c 7751 2009-08-28 21:13:28Z dothebart $
  * room listings and filters.
  */
 
 #include "webcit.h"
-#include "webserver.h"
-#include "roomops.h"
+
+
+typedef enum __eRoomParamType {
+	eNotSet,
+	eDomain,
+	eAlias
+}eRoomParamType;
+
+HashList *GetWhoKnowsHash(StrBuf *Target, WCTemplputParams *TP)
+{
+	StrBuf *Line;
+	StrBuf *Token;
+	long State;
+	HashList *Whok = NULL;
+	int Done = 0;
+	int n = 0;
+
+	serv_puts("WHOK");
+	Line = NewStrBuf();
+	StrBuf_ServGetln(Line);
+	if (GetServerStatus(Line, &State) == 1) 
+	{
+		Whok = NewHash(1, Flathash);
+		while(!Done && (StrBuf_ServGetln(Line) >= 0) )
+			if ( (StrLength(Line)==3) && 
+			     !strcmp(ChrPtr(Line), "000")) 
+			{
+				Done = 1;
+			}
+			else
+			{
+			
+				const char *Pos = NULL;
+				Token = NewStrBufPlain (NULL, StrLength(Line));
+				StrBufExtract_NextToken(Token, Line, &Pos, '|');
+
+				Put(Whok, 
+				    IKEY(n),
+				    Token, 
+				    HFreeStrBuf);
+				n++;
+			}
+	}
+	else if (State == 550)
+		AppendImportantMessage(_("Higher access is required to access this function."), -1);
+
+
+	FreeStrBuf(&Line);
+	return Whok;
+}
+
 
 void DeleteFloor(void *vFloor)
 {
-	floor *Floor;
-	Floor = (floor*) vFloor;
-	FreeStrBuf(&Floor->Name);
-	free(Floor);
+	Floor *pFloor;
+	pFloor = (Floor*) vFloor;
+	FreeStrBuf(&pFloor->Name);
+	free(pFloor);
 }
 
-HashList *GetFloorListHash(StrBuf *Target, WCTemplputParams *TP) {
+int SortFloorsByNameOrder(const void *vfloor1, const void *vfloor2) 
+{
+	Floor *f1 = (Floor*) GetSearchPayload(vfloor1);
+	Floor *f2 = (Floor*) GetSearchPayload(vfloor2);
+	
+	/* prefer My floor over alpabetical sort */
+	if (f1->ID == VIRTUAL_MY_FLOOR)
+		return 1;
+	if (f2->ID == VIRTUAL_MY_FLOOR)
+		return -1;
+
+	return strcmp(ChrPtr(f1->Name), ChrPtr(f2->Name));
+}
+
+HashList *GetFloorListHash(StrBuf *Target, WCTemplputParams *TP) 
+{
+	int Done = 0;
 	const char *Err;
 	StrBuf *Buf;
 	HashList *floors;
-	floor *Floor;
+	HashList *floorsbyname;
+	HashPos *it;
+	Floor *pFloor;
+	void *vFloor;
 	const char *Pos;
+	int i;
 	wcsession *WCC = WC;
+	const char *HashKey;
+	long HKLen;
+
 
 	if (WCC->Floors != NULL)
 		return WCC->Floors;
-	WCC->Floors = floors = NewHash(1, NULL);
+	WCC->Floors = floors = NewHash(1, Flathash);
+	WCC->FloorsByName = floorsbyname = NewHash(1, NULL);
 	Buf = NewStrBuf();
-/* 
-	Floor = malloc(sizeof(floor));
-	Floor->ID = VIRTUAL_MY_FLOOR;
-	Floor->Name = NewStrBufPlain(_("My Folders"), -1);
-	Floor->NRooms = 0;
+
+	pFloor = (Floor*) malloc(sizeof(Floor));
+	pFloor->ID = VIRTUAL_MY_FLOOR;
+	pFloor->Name = NewStrBufPlain(_("My Folders"), -1);
+	pFloor->NRooms = 0;
 	
-	Put(floors, IKEY(Floor->ID), Floor, DeleteFloor);
-*/
+	Put(floors, IKEY(pFloor->ID), pFloor, DeleteFloor);
+	Put(floorsbyname, SKEY(pFloor->Name), pFloor, reference_free_handler);
 
 	serv_puts("LFLR"); /* get floors */
 	StrBufTCP_read_line(Buf, &WC->serv_sock, 0, &Err); /* '100', we hope */
 	if (GetServerStatus(Buf, NULL) == 1) 
 	{
-		while(StrBufTCP_read_line(Buf, &WC->serv_sock, 0, &Err), strcmp(ChrPtr(Buf), "000")) 
-		{
+		while(!Done && StrBuf_ServGetln(Buf) >= 0)
+			if ( (StrLength(Buf)==3) && 
+			     !strcmp(ChrPtr(Buf), "000")) 
+			{
+				Done = 1;
+			}
+			else
+			{
 			
-			Pos = NULL;
+				Pos = NULL;
 
-			Floor = malloc(sizeof(floor));
-			Floor->ID = StrBufExtractNext_long(Buf, &Pos, '|');
-			Floor->Name = NewStrBufPlain(NULL, StrLength(Buf));
-			StrBufExtract_NextToken(Floor->Name, Buf, &Pos, '|');
-			Floor->NRooms = StrBufExtractNext_long(Buf, &Pos, '|');
+				pFloor = (Floor*) malloc(sizeof(Floor));
+				pFloor->ID = StrBufExtractNext_int(Buf, &Pos, '|');
+				pFloor->Name = NewStrBufPlain(NULL, StrLength(Buf));
+				StrBufExtract_NextToken(pFloor->Name, Buf, &Pos, '|');
+				pFloor->NRooms = StrBufExtractNext_long(Buf, &Pos, '|');
 
-			Put(floors, IKEY(Floor->ID), Floor, DeleteFloor);
-		}
+				Put(floors, IKEY(pFloor->ID), pFloor, DeleteFloor);
+				Put(floorsbyname, SKEY(pFloor->Name), pFloor, reference_free_handler);
+			}
 	}
 	FreeStrBuf(&Buf);
+	
+	/* now lets pre-sort them alphabeticaly. */
+	i = 1;
+	SortByPayload(floors, SortFloorsByNameOrder);
+	it = GetNewHashPos(floors, 0);
+	while (	GetNextHashPos(floors, it, &HKLen, &HashKey, &vFloor)) 
+		((Floor*) vFloor)->AlphaN = i++;
+	DeleteHashPos(&it);
+	SortByHashKeyStr(floors);
+
 	return floors;
 }
 
-void tmplput_FLOOR_ID(StrBuf *Target, WCTemplputParams *TP) 
+HashList *GetZappedRoomListHash(StrBuf *Target, WCTemplputParams *TP) 
 {
-	floor *Floor = (floor *)(TP->Context);
+	wcsession *WCC = WC;
 
-	StrBufAppendPrintf(Target, "%d", Floor->ID);
+	if (WCC->Floors == NULL)
+		GetFloorListHash(Target, TP);
+	serv_puts("LZRM -1");
+	return GetRoomListHash(Target, TP);
 }
-
-void tmplput_FLOOR_NAME(StrBuf *Target, WCTemplputParams *TP) 
+HashList *GetRoomListHashLKRA(StrBuf *Target, WCTemplputParams *TP) 
 {
-	floor *Floor = (floor *)(TP->Context);
+	wcsession *WCC = WC;
 
-	StrBufAppendTemplate(Target, TP, Floor->Name, 0);
+	if (WCC->Floors == NULL)
+		GetFloorListHash(Target, TP);
+	if (WCC->Rooms == NULL) 
+	{
+		serv_puts("LKRA");
+		WCC->Rooms =  GetRoomListHash(Target, TP);
+	}
+	return WCC->Rooms;
 }
 
-void tmplput_FLOOR_NROOMS(StrBuf *Target, WCTemplputParams *TP) 
+HashList *GetRoomListHashLPRM(StrBuf *Target, WCTemplputParams *TP) 
 {
-	floor *Floor = (floor *)(TP->Context);
-
-	StrBufAppendPrintf(Target, "%d", Floor->NRooms);
+	serv_puts("LPRM");
+	return GetRoomListHash(Target, TP);
 }
-HashList *GetRoomListHashLKRA(StrBuf *Target, WCTemplputParams *TP) 
+
+
+void FlushIgnetCfgs(folder *room)
 {
-	wcsession *WCC = WC;
+	int i;
+	if (room->IgnetCfgs[maxRoomNetCfg] == (HashList*) StrBufNOTNULL)
+	{
+		for (i = ignet_push_share; i < maxRoomNetCfg; i++)
+			DeleteHash(&room->IgnetCfgs[i]);
+	}
+	memset(&room->IgnetCfgs, 0, sizeof(HashList *) * (maxRoomNetCfg + 1));
+	room->RoomAlias = NULL;
 
-	if (WCC->Floors == NULL)
-		GetFloorListHash(Target, TP);
-	serv_puts("LKRA");
-	return GetRoomListHash(Target, TP);
 }
 
-void DeleteFolder(void *vFolder)
+void FlushFolder(folder *room)
 {
-	folder *room;
-	room = (folder*) vFolder;
+	int i;
+
+	FreeStrBuf(&room->XAPass);
+	FreeStrBuf(&room->Directory);
+	FreeStrBuf(&room->RoomAide);
+	FreeStrBuf(&room->XInfoText);
+	room->XHaveInfoTextLoaded = 0;
 
 	FreeStrBuf(&room->name);
-	FreeStrBuf(&room->ACL);
 
-	//// FreeStrBuf(&room->room);
+	FlushIgnetCfgs(room);
+
+	if (room->RoomNameParts != NULL)
+	{
+		for (i=0; i < room->nRoomNameParts; i++)
+			FreeStrBuf(&room->RoomNameParts[i]);
+		free(room->RoomNameParts);
+	}
+	memset(room, 0, sizeof(folder));
+}
+
+void vDeleteFolder(void *vFolder)
+{
+	folder *room;
+
+	room = (folder*) vFolder;
+	FlushFolder(room);
 
 	free(room);
 }
@@ -104,224 +226,754 @@ void DeleteFolder(void *vFolder)
 
 HashList *GetRoomListHash(StrBuf *Target, WCTemplputParams *TP) 
 {
+	int Done = 0;
 	HashList *rooms;
 	folder *room;
 	StrBuf *Buf;
 	const char *Pos;
-	const char *Err;
 	void *vFloor;
 	wcsession *WCC = WC;
+	CompareFunc SortIt;
+	WCTemplputParams SubTP;
 
 	Buf = NewStrBuf();
 	rooms = NewHash(1, NULL);
-	StrBufTCP_read_line(Buf, &WC->serv_sock, 0, &Err);
+	StrBuf_ServGetln(Buf);
 	if (GetServerStatus(Buf, NULL) == 1) 
 	{
-		while(StrBufTCP_read_line(Buf, &WC->serv_sock, 0, &Err), 
-		      strcmp(ChrPtr(Buf), "000")) 
-		{
-
-			Pos = NULL;
-			room = (folder*) malloc (sizeof(folder));
-			memset(room, 0, sizeof(folder));
-
-			room->name = NewStrBufPlain(NULL, StrLength(Buf));
-			StrBufExtract_NextToken(room->name, Buf, &Pos, '|');
-
-			room->QRFlags = StrBufExtractNext_long(Buf, &Pos, '|');
-			room->floorid = StrBufExtractNext_long(Buf, &Pos, '|');
-
-			room->listorder = StrBufExtractNext_long(Buf, &Pos, '|');
-
-			room->ACL = NewStrBufPlain(NULL, StrLength(Buf));
-			StrBufExtract_NextToken(room->ACL, Buf, &Pos, '|');
+		while(!Done && (StrBuf_ServGetln(Buf) >= 0))
+			if ( (StrLength(Buf)==3) && 
+			     !strcmp(ChrPtr(Buf), "000")) 
+			{
+				Done = 1;
+			}
+			else
+			{				
+				Pos = NULL;
+				room = (folder*) malloc (sizeof(folder));
+				memset(room, 0, sizeof(folder));
+
+				/* Load the base data from the server reply */
+				room->name = NewStrBufPlain(NULL, StrLength(Buf));
+				StrBufExtract_NextToken(room->name, Buf, &Pos, '|');
+
+				room->QRFlags = StrBufExtractNext_long(Buf, &Pos, '|');
+				room->floorid = StrBufExtractNext_int(Buf, &Pos, '|');
+				room->Order = StrBufExtractNext_long(Buf, &Pos, '|');
+				room->QRFlags2 = StrBufExtractNext_long(Buf, &Pos, '|');
+
+				room->RAFlags = StrBufExtractNext_long(Buf, &Pos, '|');
 
-			room->view = StrBufExtractNext_long(Buf, &Pos, '|');
-			room->defview = StrBufExtractNext_long(Buf, &Pos, '|');
-			room->lastchange = StrBufExtractNext_long(Buf, &Pos, '|');
 /*
-			if ((room->QRFlags & QR_MAILBOX) && 
-			    (room->floorid == 0))
-				room->floorid = VIRTUAL_MY_FLOOR;
+  ACWHUT?
+  room->ACL = NewStrBufPlain(NULL, StrLength(Buf));
+  StrBufExtract_NextToken(room->ACL, Buf, &Pos, '|');
 */
-			GetHash(WCC->Floors, IKEY(room->floorid), &vFloor);
-			room->Floor = (const floor*) vFloor;
-			Put(rooms, SKEY(room->name), room, DeleteFolder);
-		}
+
+				room->view = StrBufExtractNext_long(Buf, &Pos, '|');
+				room->defview = StrBufExtractNext_long(Buf, &Pos, '|');
+				room->lastchange = StrBufExtractNext_long(Buf, &Pos, '|');
+
+				/* Evaluate the Server sent data for later use */
+				/* find out, whether we are in a sub-room */
+				room->nRoomNameParts = StrBufNum_tokens(room->name, '\\');
+				if (room->nRoomNameParts > 1)
+				{
+					int i;
+
+					Pos = NULL;
+					room->RoomNameParts = malloc(sizeof(StrBuf*) * (room->nRoomNameParts + 1));
+					memset(room->RoomNameParts, 0, sizeof(StrBuf*) * (room->nRoomNameParts + 1));
+					for (i=0; i < room->nRoomNameParts; i++)
+					{
+						room->RoomNameParts[i] = NewStrBuf();
+						StrBufExtract_NextToken(room->RoomNameParts[i],
+									room->name, &Pos, '\\');
+					}
+				}
+
+				/* Private mailboxes on the main floor get remapped to the personal folder */
+				if ((room->QRFlags & QR_MAILBOX) && 
+				    (room->floorid == 0))
+				{
+					room->floorid = VIRTUAL_MY_FLOOR;
+					if ((room->nRoomNameParts == 1) && 
+					    (StrLength(room->name) == 4) && 
+					    (strcmp(ChrPtr(room->name), "Mail") == 0))
+					{
+						room->is_inbox = 1;
+					}
+
+				}
+				/* get a pointer to the floor we're on: */
+				GetHash(WCC->Floors, IKEY(room->floorid), &vFloor);
+				room->Floor = (const Floor*) vFloor;
+
+
+
+				/* now we know everything, remember it... */
+				Put(rooms, SKEY(room->name), room, vDeleteFolder);
+			}
 	}
-	SortByHashKey(rooms, 1);
-	/*SortByPayload(rooms, SortRoomsByListOrder);  */
+
+	SubTP.Filter.ContextType = CTX_ROOMS;
+	SortIt = RetrieveSort(&SubTP, NULL, 0, HKEY("fileunsorted"), 0);
+	if (SortIt != NULL)
+		SortByPayload(rooms, SortIt);
+	else 
+		SortByPayload(rooms, SortRoomsByListOrder);
 	FreeStrBuf(&Buf);
 	return rooms;
 }
 
-/** Unused function that orders rooms by the listorder flag */
-int SortRoomsByListOrder(const void *room1, const void *room2) 
+HashList *GetThisRoomMAlias(StrBuf *Target, WCTemplputParams *TP) 
 {
-	folder *r1 = (folder*) room1;
-	folder *r2 = (folder*) room2;
-  
-	if (r1->listorder == r2->listorder) return 0;
-	if (r1->listorder > r2->listorder) return 1;
-	return -1;
-}
+	wcsession *WCC = WC;
+	StrBuf *Line;
+	StrBuf *Token;
+	HashList *Aliases = NULL;
+	const char *pComma;
+	long aliaslen;
+	long locallen;
+	long State;
+	
+	serv_puts("GNET "FILE_MAILALIAS);
+	Line = NewStrBuf();
+	StrBuf_ServGetln(Line);
+	if (GetServerStatus(Line, &State) == 1) 
+	{
+		int Done = 0;
+		int n = 0;
+
+		Aliases = NewHash(1, NULL);
+		while(!Done && (StrBuf_ServGetln(Line) >= 0))
+			if ( (StrLength(Line)==3) && 
+			     !strcmp(ChrPtr(Line), "000"))
+			{
+				Done = 1;
+			}
+			else
+			{
+				pComma = strchr(ChrPtr(Line), ',');
+				if (pComma == NULL)
+					continue;
+				aliaslen = pComma - ChrPtr(Line);
+				locallen = StrLength(Line) - 1 - aliaslen;
+				if (locallen - 5 != StrLength(WCC->CurRoom.name))
+					continue;
+				if (strncmp(pComma + 1, "room_", 5) != 0)
+					continue;
+
+				if (strcasecmp(pComma + 6, ChrPtr(WCC->CurRoom.name)) != 0)
+					continue;
+				Token = NewStrBufPlain(ChrPtr(Line), aliaslen);
+				Put(Aliases, 
+				    IKEY(n),
+				    Token, 
+				    HFreeStrBuf);
+				n++;
+			}
+	}
+	else if (State == 550)
+		AppendImportantMessage(_("Higher access is required to access this function."), -1);
 
-int SortRoomsByFloorAndName(const void *room1, const void *room2) 
-{
-	folder *r1 = (folder*) room1;
-	folder *r2 = (folder*) room2;
-  
-	if (r1->Floor != r2->Floor)
-		return strcmp(ChrPtr(r1->Floor->Name), 
-			      ChrPtr(r2->Floor->Name));
-	return strcmp (ChrPtr(r1->name), 
-		       ChrPtr(r2->name));
-}
+	FreeStrBuf(&Line);
 
+	return Aliases;
+}
 
 
-void tmplput_ROOM_NAME(StrBuf *Target, WCTemplputParams *TP) 
+void AppendPossibleAliasWithDomain(
+	HashList *PossibleAliases,
+	long *nPossibleAliases,
+	const HashList *Domains, 
+	const char *prefix,
+	long len,
+	const char* Alias,
+	long AliasLen)
 {
-	folder *Folder = (folder *)(TP->Context);
-
-	StrBufAppendTemplate(Target, TP, Folder->name, 0);
+	const StrBuf *OneDomain;
+	StrBuf *Line;
+	HashPos *It = NULL;
+	const char *Key;
+	long KLen;
+	void *pV;
+	int n;
+
+	It = GetNewHashPos(Domains, 1);
+	n = *nPossibleAliases;
+	while (GetNextHashPos(Domains, It, &KLen, &Key, &pV))
+	{
+		OneDomain = (const StrBuf*) pV;
+		Line = NewStrBuf();
+		StrBufAppendBufPlain(Line, prefix, len, 0);
+		StrBufAppendBufPlain(Line, Alias, AliasLen, 0);
+		StrBufAppendBufPlain(Line, HKEY("@"), 0);
+		StrBufAppendBuf(Line, OneDomain, 0);
+
+		Put(PossibleAliases, 
+		    IKEY(n),
+		    Line, 
+		    HFreeStrBuf);
+		n++;
+	}
+	DeleteHashPos(&It);
+	*nPossibleAliases = n;
 }
 
-void tmplput_ROOM_ACL(StrBuf *Target, WCTemplputParams *TP) 
+HashList *GetThisRoomPossibleMAlias(StrBuf *Target, WCTemplputParams *TP) 
 {
-	folder *Folder = (folder *)(TP->Context);
-
-	StrBufAppendTemplate(Target, TP, Folder->ACL, 0);
+	wcsession *WCC = WC;
+	HashList *Domains;
+	StrBuf *Line;
+	StrBuf *Token;
+	StrBuf *RoomName;
+	HashList *PossibleAliases = NULL;
+	
+	const char *pComma;
+	const char *pAt;
+	long aliaslen;
+	long locallen;
+	long State;
+	long n = 0;
+
+	Domains = GetValidDomainNames(Target, TP);
+	if (Domains == NULL)
+		return NULL;
+	if (GetCount(Domains) == 0) {
+		DeleteHash(&Domains);
+		return NULL;
+	}
+	PossibleAliases = NewHash(1, NULL);
+	Line = NewStrBuf();
+	RoomName = NewStrBufDup(WCC->CurRoom.name);
+	StrBufAsciify(RoomName, '_');
+	StrBufReplaceChars(RoomName, ' ', '_');
+
+	AppendPossibleAliasWithDomain(PossibleAliases,
+				      &n,
+				      Domains,
+				      HKEY("room_"),
+				      SKEY(RoomName));
+
+
+	serv_puts("GNET "FILE_MAILALIAS);
+	StrBuf_ServGetln(Line);
+	if (GetServerStatus(Line, &State) == 1) 
+	{
+		int Done = 0;
+
+		while(!Done && (StrBuf_ServGetln(Line) >= 0))
+			if ( (StrLength(Line)==3) && 
+			     !strcmp(ChrPtr(Line), "000"))
+			{
+				Done = 1;
+			}
+			else
+			{
+				pComma = strchr(ChrPtr(Line), ',');
+				if (pComma == NULL)
+					continue;
+				aliaslen = pComma - ChrPtr(Line);
+				locallen = StrLength(Line) - 1 - aliaslen;
+				if (locallen - 5 != StrLength(WCC->CurRoom.name))
+					continue;
+				if (strncmp(pComma + 1, "room_", 5) != 0)
+					continue;
+
+				if (strcasecmp(pComma + 6, ChrPtr(WCC->CurRoom.name)) != 0)
+					continue;
+				pAt = strchr(ChrPtr(Line), '@');
+				if ((pAt == NULL) || (pAt > pComma))
+				{
+					AppendPossibleAliasWithDomain(PossibleAliases,
+								      &n,
+								      Domains,
+								      HKEY(""),
+								      ChrPtr(Line),
+								      aliaslen);
+					n++;
+				}
+				else
+				{
+					
+					Token = NewStrBufPlain(ChrPtr(Line), aliaslen);
+					Put(PossibleAliases,
+					    IKEY(n),
+					    Token,
+					    HFreeStrBuf);
+					n++;
+				}
+			}
+	}
+	else if (State == 550)
+		AppendImportantMessage(_("Higher access is required to access this function."), -1);
+	DeleteHash(&Domains);
+	FreeStrBuf(&Line);
+	FreeStrBuf(&RoomName);
+	return PossibleAliases;
 }
 
 
-void tmplput_ROOM_QRFLAGS(StrBuf *Target, WCTemplputParams *TP) 
+HashList *GetNetConfigHash(StrBuf *Target, WCTemplputParams *TP) 
 {
-	folder *Folder = (folder *)(TP->Context);
-	StrBufAppendPrintf(Target, "%d", Folder->QRFlags);
-}
+	wcsession *WCC = WC;
+	StrBuf *Line;
+	StrBuf *Token;
+	StrBuf *Content;
+	long WantThisOne;
+	long PutTo;
+	long State;
+	
+	WantThisOne = GetTemplateTokenNumber(Target, TP, 5, -1);
+	if ((WantThisOne < 0) || (WantThisOne > maxRoomNetCfg))
+		return NULL;
+	if (WCC->CurRoom.IgnetCfgs[maxRoomNetCfg] == (HashList*) StrBufNOTNULL)
+		return WCC->CurRoom.IgnetCfgs[WantThisOne];
+
+	WCC->CurRoom.IgnetCfgs[maxRoomNetCfg] = (HashList*) StrBufNOTNULL;
+	serv_puts("GNET");
+	Line = NewStrBuf();
+	Token = NewStrBuf();
+	StrBuf_ServGetln(Line);
+	if (GetServerStatus(Line, &State) == 1) 
+	{
+		const char *Pos = NULL;
+		int Done = 0;
+		int HaveRoomMailAlias = 0;
 
+		while(!Done && (StrBuf_ServGetln(Line) >= 0))
+		{
+			if (StrLength(Line) == 0)
+				continue;
+			if ( (StrLength(Line)==3) && 
+			     !strcmp(ChrPtr(Line), "000"))
+			{
+				Done = 1;
+			}
+			else
+			{
+				StrBufExtract_NextToken(Token, Line, &Pos, '|');
+				PutTo = GetTokenDefine(SKEY(Token), -1);
+				if (PutTo == roommailalias)
+				{
+					if (HaveRoomMailAlias > 0)
+						continue; /* Only ONE alias possible! */
+					HaveRoomMailAlias++;
+				}
+				if ((PutTo >= 0) && 
+				    (PutTo < maxRoomNetCfg) &&
+				    (Pos != StrBufNOTNULL))
+				{
+					int n;
+					HashList *SubH;
+					
+					if (WCC->CurRoom.IgnetCfgs[PutTo] == NULL)
+					{
+						n = 0;
+						WCC->CurRoom.IgnetCfgs[PutTo] = NewHash(1, NULL);
+					}
+					else 
+					{
+						n = GetCount(WCC->CurRoom.IgnetCfgs[PutTo]);
+					}
+					SubH = NewHash(1, NULL);
+					Put(WCC->CurRoom.IgnetCfgs[PutTo], 
+					    IKEY(n),
+					    SubH, 
+					    HDeleteHash);
+					n = 1; /* #0 is the type... */
+					while (Pos != StrBufNOTNULL) {
+						Content = NewStrBuf();
+						StrBufExtract_NextToken(Content, Line, &Pos, '|');
+
+						if ((PutTo == roommailalias) && n == 1)
+							WCC->CurRoom.RoomAlias = Content;
+
+						Put(SubH, 
+						    IKEY(n),
+						    Content, 
+						    HFreeStrBuf);
+						n++;
+					}
+				}
+				Pos = NULL;
+			}
+		}
+	}
+	else if (State == 550)
+		AppendImportantMessage(_("Higher access is required to access this function."), -1);
 
+	FreeStrBuf(&Line);
+	FreeStrBuf(&Token);
 
-void tmplput_ROOM_FLOORID(StrBuf *Target, WCTemplputParams *TP) 
-{
-	folder *Folder = (folder *)(TP->Context);
-	StrBufAppendPrintf(Target, "%d", Folder->floorid);
+	return WCC->CurRoom.IgnetCfgs[WantThisOne];
 }
 
-void tmplput_ROOM_LISTORDER(StrBuf *Target, WCTemplputParams *TP) 
-{
-	folder *Folder = (folder *)(TP->Context);
-	StrBufAppendPrintf(Target, "%d", Folder->listorder);
-}
-void tmplput_ROOM_VIEW(StrBuf *Target, WCTemplputParams *TP) 
-{
-	folder *Folder = (folder *)(TP->Context);
-	StrBufAppendPrintf(Target, "%d", Folder->view);
-}
-void tmplput_ROOM_DEFVIEW(StrBuf *Target, WCTemplputParams *TP) 
-{
-	folder *Folder = (folder *)(TP->Context);
-	StrBufAppendPrintf(Target, "%d", Folder->defview);
-}
-void tmplput_ROOM_LASTCHANGE(StrBuf *Target, WCTemplputParams *TP) 
+/** Unused function that orders rooms by the listorder flag */
+int SortRoomsByListOrder(const void *room1, const void *room2) 
 {
-	folder *Folder = (folder *)(TP->Context);
-	StrBufAppendPrintf(Target, "%d", Folder->lastchange);
+	folder *r1 = (folder*) GetSearchPayload(room1);
+	folder *r2 = (folder*) GetSearchPayload(room2);
+  
+	if (r1->Order == r2->Order) return 0;
+	if (r1->Order > r2->Order) return 1;
+	return -1;
 }
-void tmplput_ROOM_FLOOR_ID(StrBuf *Target, WCTemplputParams *TP) 
+
+int CompareRoomListByFloorRoomPrivFirst(const void *room1, const void *room2) 
 {
-	folder *Folder = (folder *)(TP->Context);
-	const floor *Floor = Folder->Floor;
+	folder *r1 = (folder*) GetSearchPayload(room1);
+	folder *r2 = (folder*) GetSearchPayload(room2);
+  
+	if ((r1->Floor == NULL)  ||
+	    (r2->Floor == NULL))
+		return 0;
+		
+	/**
+	 * are we on the same floor? else sort by floor.
+	 */
+	if (r1->Floor != r2->Floor)
+	{
+		/**
+		 * the private rooms are first in any case.
+		 */
+		if (r1->Floor->ID == VIRTUAL_MY_FLOOR)
+			return -1;
+		if (r2->Floor->ID == VIRTUAL_MY_FLOOR)
+			return 1;
+		/**
+		 * else decide alpaheticaly by floorname
+		 */
+		return (r1->Floor->AlphaN > r2->Floor->AlphaN)? 1 : -1;
+	}
+
+	/**
+	 * if we have different levels of subdirectories, 
+	 * we want the toplevel to be first, regardless of sort
+	 * sequence.
+	 */
+	if (((r1->nRoomNameParts > 1) || 
+	    (r2->nRoomNameParts > 1)    )&&
+	    (r1->nRoomNameParts != r2->nRoomNameParts))
+	{
+		int i, ret;
+		int nparts = (r1->nRoomNameParts > r2->nRoomNameParts)?
+			r2->nRoomNameParts : r1->nRoomNameParts;
+
+		for (i=0; i < nparts; i++)
+		{
+			ret = strcmp (ChrPtr(r1->name), 
+				      ChrPtr(r2->name));
+			/**
+			 * Deltas in common parts? exit here.
+			 */
+			if (ret != 0) 
+				return ret;
+		}
 
-	if (Floor == NULL)
-		return;
+		/**
+		 * who's a subdirectory of whom?
+		 */
+		if (r1->nRoomNameParts > r2->nRoomNameParts)
+			return 1;
+		else
+			return -1;
 
-	StrBufAppendPrintf(Target, "%d", Floor->ID);
+	}
+
+	/**
+	 * else just sort alphabeticaly.
+	 */
+	return strcmp (ChrPtr(r1->name), 
+		       ChrPtr(r2->name));
 }
 
-void tmplput_ROOM_FLOOR_NAME(StrBuf *Target, WCTemplputParams *TP) 
+int CompareRoomListByFloorRoomPrivFirstRev(const void *room1, const void *room2) 
 {
-	folder *Folder = (folder *)(TP->Context);
-	const floor *Floor = Folder->Floor;
+	folder *r1 = (folder*) GetSearchPayload(room1);
+	folder *r2 = (folder*) GetSearchPayload(room2);
 
-	if (Floor == NULL)
-		return;
+	if ((r1->Floor == NULL)  ||
+	    (r2->Floor == NULL))
+		return 0;
 
-	StrBufAppendTemplate(Target, TP, Floor->Name, 0);
+	/**
+	 * are we on the same floor? else sort by floor.
+	 */
+	if (r2->Floor != r1->Floor)
+	{
+		/**
+		 * the private rooms are first in any case.
+		 */
+		if (r1->Floor->ID == VIRTUAL_MY_FLOOR)
+			return -1;
+		if (r2->Floor->ID == VIRTUAL_MY_FLOOR)
+			return 1;
+		/**
+		 * else decide alpaheticaly by floorname
+		 */
+
+		return (r1->Floor->AlphaN < r2->Floor->AlphaN)? 1 : -1;
+	}
+
+	/**
+	 * if we have different levels of subdirectories, 
+	 * we want the toplevel to be first, regardless of sort
+	 * sequence.
+	 */
+	if (((r1->nRoomNameParts > 1) || 
+	    (r2->nRoomNameParts > 1)    )&&
+	    (r1->nRoomNameParts != r2->nRoomNameParts))
+	{
+		int i, ret;
+		int nparts = (r1->nRoomNameParts > r2->nRoomNameParts)?
+			r2->nRoomNameParts : r1->nRoomNameParts;
+
+		for (i=0; i < nparts; i++)
+		{
+			/**
+			 * special cases if one room is top-level...
+			 */
+			if (r2->nRoomNameParts == 1)
+				ret = strcmp (ChrPtr(r2->name), 
+					      ChrPtr(r1->RoomNameParts[i]));
+			else if (r1->nRoomNameParts == 1)
+				ret = strcmp (ChrPtr(r2->RoomNameParts[i]),
+					      ChrPtr(r1->name));
+			else 
+				ret = strcmp (ChrPtr(r2->RoomNameParts[i]), 
+					      ChrPtr(r1->RoomNameParts[i]));
+			/**
+			 * Deltas in common parts? exit here.
+			 */
+			if (ret != 0) 
+				return ret;
+		}
+
+		/**
+		 * who's a subdirectory of whom?
+		 */
+		if (r1->nRoomNameParts > r2->nRoomNameParts)
+			return 1;
+		else
+			return -1;
+	}
+
+	return strcmp (ChrPtr(r2->name), 
+		       ChrPtr(r1->name));
 }
 
-void tmplput_ROOM_FLOOR_NROOMS(StrBuf *Target, WCTemplputParams *TP) 
+int GroupchangeRoomListByFloorRoomPrivFirst(const void *room1, const void *room2) 
 {
-	folder *Folder = (folder *)(TP->Context);
-	const floor *Floor = Folder->Floor;
+	folder *r1 = (folder*) room1;
+	folder *r2 = (folder*) room2;
+  
 
-	if (Floor == NULL)
-		return;
-	StrBufAppendPrintf(Target, "%d", Floor->NRooms);
+	if ((r1->Floor == NULL)  ||
+	    (r2->Floor == NULL))
+		return 0;
+		
+	if (r1->Floor == r2->Floor)
+		return 0;
+	else 
+	{
+		wcsession *WCC = WC;
+		static int columns = 3;
+		int boxes_per_column = 0;
+		int nf;
+
+		nf = GetCount(WCC->Floors);
+		while (nf % columns != 0) ++nf;
+		boxes_per_column = (nf / columns);
+		if (boxes_per_column < 1)
+			boxes_per_column = 1;
+		if (r1->Floor->AlphaN % boxes_per_column == 0)
+			return 2;
+		else 
+			return 1;
+	}
 }
 
 
+int CompareRooms(const folder *room1, const folder *room2) 
+{
+	if ((room1 == NULL) || (room2 == NULL))
+		return -1;
+	return CompareRoomListByFloorRoomPrivFirst(room1, room2);
+}
 
+int ConditionalThisRoomIsStrBufContextAlias(StrBuf *Target, WCTemplputParams *TP)
+{
+	wcsession       *WCC = WC;
+	const char      *pVal;
+	long             len;
+	eRoomParamType   ParamType;
 
+	ParamType = GetTemplateTokenNumber(Target, TP, 2, eNotSet);
+	GetTemplateTokenString(Target, TP, 3, &pVal, &len);
 
+	if (ParamType == eNotSet)
+	{
+		return StrLength(WCC->CurRoom.RoomAlias) == 0;
+	}
+	else if (ParamType == eDomain)
+	{
+		const StrBuf *CtxStr = (const StrBuf*) CTX(CTX_STRBUF);
+		const char *pAt;
+
+		if (CtxStr == NULL) 
+			return 0;
+		
+		if (StrLength(WCC->CurRoom.RoomAlias) == 0)
+			return 0;
+
+		if (strncmp(ChrPtr(WCC->CurRoom.RoomAlias), "room_", 5) != 0)
+			return 0;
+
+		pAt = strchr(ChrPtr(WCC->CurRoom.RoomAlias), '@');
+		if (pAt == NULL)
+			return 0;
+		return strcmp(pAt + 1, ChrPtr(CtxStr)) == 0;
+	}
+	else if (ParamType == eAlias)
+	{
+		const StrBuf *CtxStr = (const StrBuf*) CTX(CTX_STRBUF);
 
+		if (CtxStr == NULL) 
+			return 0;
+		
+		if (StrLength(WCC->CurRoom.RoomAlias) == 0)
+			return 0;
 
+		return strcmp(ChrPtr(WCC->CurRoom.RoomAlias), ChrPtr(CtxStr)) == 0;
+	}
+	else
+	{
+		LogTemplateError(Target, "TokenParameter", 2, TP, 
+				 "Invalid paramtype; need one of [eNotSet|eDomain|eAlias]");
+		return 0;
+	}
 
+}
 
+int ConditionalRoomIsRESTSubRoom(StrBuf *Target, WCTemplputParams *TP)
+{
+	wcsession  *WCC = WC;
+	folder     *Folder = (folder *)CTX(CTX_ROOMS);
+	HashPos    *it;
+	StrBuf     * Dir;
+	void       *vDir;
+	long        len;
+        const char *Key;
+	int i, j, urlp;
+	int delta;
+
+
+	/* list only folders relative to the current floor... */
+	if (Folder->Floor != WCC->CurrentFloor)
+		return 0;
+
+	urlp = GetCount(WCC->Directory);
+	delta = Folder->nRoomNameParts - urlp + 1;
+
+	syslog(LOG_DEBUG, "\n->%s: %d - %ld ", 
+	       ChrPtr(Folder->name), 
+	       urlp, 
+	       Folder->nRoomNameParts);
+	/* list only the floors which are in relation to the dav_depth header */
+	if (WCC->Hdr->HR.dav_depth != delta) {
+		syslog(LOG_DEBUG, "1\n");
+		return 0;
+	}
 
 
+	it = GetNewHashPos(WCC->Directory, 0);
+	/* Fast forward the floorname we checked above... */
+	GetNextHashPos(WCC->Directory, it, &len, &Key, &vDir);
 
+	if (Folder->nRoomNameParts > 1) {		
+		for (i = 0, j = 1; 
+		     (i > Folder->nRoomNameParts) && (j > urlp); 
+		     i++, j++)
+		{
+			if (!GetNextHashPos(WCC->Directory, 
+					    it, &len, &Key, &vDir) ||
+			    (vDir == NULL))
+			{
+				DeleteHashPos(&it);
+
+				syslog(LOG_DEBUG, "3\n");
+				return 0;
+			}
+			Dir = (StrBuf*) vDir;
+			if (strcmp(ChrPtr(Folder->RoomNameParts[i]), 
+				   ChrPtr(Dir)) != 0)
+			{
+				DeleteHashPos(&it);
+				syslog(LOG_DEBUG, "4\n");
+				return 0;
+			}
+		}
+		DeleteHashPos(&it);
+		return 1;
+	}
+	else {
+		if (!GetNextHashPos(WCC->Directory, 
+				    it, &len, &Key, &vDir) ||
+		    (vDir == NULL))
+		{
+			DeleteHashPos(&it);
+			
+			syslog(LOG_DEBUG, "5\n");
+			return WCC->Hdr->HR.dav_depth == 1;
+		}
+		DeleteHashPos(&it);
+		Dir = (StrBuf*) vDir;
+		if (WCC->Hdr->HR.dav_depth == 0) {
+			return (strcmp(ChrPtr(Folder->name), 
+				       ChrPtr(Dir))
+				== 0);
 
-
-void jsonRoomFlr(void) 
-{
-	/* Send as our own (application/json) content type */
-	hprintf("HTTP/1.1 200 OK\r\n");
-	hprintf("Content-type: application/json; charset=utf-8\r\n");
-	hprintf("Server: %s / %s\r\n", PACKAGE_STRING, ChrPtr(WC->serv_info->serv_software));
-	hprintf("Connection: close\r\n");
-	hprintf("Pragma: no-cache\r\nCache-Control: no-store\r\nExpires:-1\r\n");
-	begin_burst();
-	DoTemplate(HKEY("json_roomflr"),NULL,&NoCtx);
-	end_burst(); 
+		}
+		return 0;
+	}
 }
 
 
-
 void 
 InitModule_ROOMLIST
 (void)
 {
-	WebcitAddUrlHandler(HKEY("json_roomflr"), jsonRoomFlr, 0);
+	/* we duplicate this, just to be shure its already done. */
+	RegisterCTX(CTX_ROOMS);
+	RegisterCTX(CTX_FLOORS);
 
+	RegisterIterator("ITERATE:THISROOM:WHO_KNOWS", 0, NULL, GetWhoKnowsHash, NULL, DeleteHash, CTX_STRBUF, CTX_NONE, IT_NOFLAG);
+	RegisterIterator("ITERATE:THISROOM:GNET", 1, NULL, GetNetConfigHash, NULL, NULL, CTX_STRBUFARR, CTX_NONE, IT_NOFLAG);
+	RegisterIterator("ITERATE:THISROOM:MALIAS", 1, NULL, GetThisRoomMAlias, NULL, DeleteHash, CTX_STRBUF, CTX_NONE, IT_NOFLAG);
+	RegisterIterator("ITERATE:THISROOM:POSSIBLE:MALIAS", 1, NULL, GetThisRoomPossibleMAlias, NULL, DeleteHash, CTX_STRBUF, CTX_NONE, IT_NOFLAG);
 
-	RegisterNamespace("FLOOR:ID", 0, 0, tmplput_FLOOR_ID, CTX_FLOORS);
-	RegisterNamespace("FLOOR:NAME", 0, 1, tmplput_FLOOR_NAME, CTX_FLOORS);
-	RegisterNamespace("FLOOR:NROOMS", 0, 0, tmplput_FLOOR_NROOMS, CTX_FLOORS);
+	RegisterIterator("LFLR", 0, NULL, GetFloorListHash, NULL, NULL, CTX_FLOORS, CTX_NONE, IT_FLAG_DETECT_GROUPCHANGE);
+	RegisterIterator("LKRA", 0, NULL, GetRoomListHashLKRA, NULL, NULL, CTX_ROOMS, CTX_NONE, IT_FLAG_DETECT_GROUPCHANGE);
+	RegisterIterator("LZRM", 0, NULL, GetZappedRoomListHash, NULL, DeleteHash, CTX_ROOMS, CTX_NONE, IT_FLAG_DETECT_GROUPCHANGE);
+	RegisterIterator("LPRM", 0, NULL, GetRoomListHashLPRM, NULL, DeleteHash, CTX_ROOMS, CTX_NONE, IT_FLAG_DETECT_GROUPCHANGE);
 
 
+	REGISTERTokenParamDefine(eNotSet);
+	REGISTERTokenParamDefine(eDomain);
+	REGISTERTokenParamDefine(eAlias);
 
-	RegisterIterator("LKRA", 0, NULL, GetRoomListHashLKRA, NULL, DeleteHash, CTX_ROOMS, CTX_NONE, IT_FLAG_DETECT_GROUPCHANGE);
 
-	RegisterNamespace("ROOM:INFO:FLOORID", 0, 1, tmplput_ROOM_FLOORID, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:NAME", 0, 1, tmplput_ROOM_NAME, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:ACL", 0, 1, tmplput_ROOM_ACL, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:QRFLAGS", 0, 1, tmplput_ROOM_QRFLAGS, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:LISTORDER", 0, 1, tmplput_ROOM_LISTORDER, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:VIEW", 0, 1, tmplput_ROOM_VIEW, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:DEFVIEW", 0, 1, tmplput_ROOM_DEFVIEW, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:LASTCHANGE", 0, 1, tmplput_ROOM_LASTCHANGE, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:FLOOR:ID", 0, 0, tmplput_ROOM_FLOOR_ID, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:FLOOR:NAME", 0, 1, tmplput_ROOM_FLOOR_NAME, CTX_ROOMS);
-	RegisterNamespace("ROOM:INFO:FLOOR:NROOMS", 0, 0, tmplput_ROOM_FLOOR_NROOMS, CTX_ROOMS);
+	RegisterConditional("COND:ROOM:REST:ISSUBROOM", 0, ConditionalRoomIsRESTSubRoom, CTX_ROOMS);
+
+	RegisterConditional("COND:THISROOM:ISALIAS:CONTEXTSTR", 0, ConditionalThisRoomIsStrBufContextAlias, CTX_NONE);
 
-/*
 	RegisterSortFunc(HKEY("byfloorroom"),
 			 NULL, 0,
 			 CompareRoomListByFloorRoomPrivFirst,
 			 CompareRoomListByFloorRoomPrivFirstRev,
 			 GroupchangeRoomListByFloorRoomPrivFirst,
 			 CTX_ROOMS);
-*/
+
 }