Index: TECH/Install.cls.xml
===================================================================
diff -u
--- TECH/Install.cls.xml	(revision 0)
+++ TECH/Install.cls.xml	(revision 926)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-10 11:52:56">
+<Class name="TECH.Install">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62160,42775.73056</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="SetupLocal">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set $piece(^DATA(0,"SYS",1000,0),"\",1)=$$$NSpace
+	
+	merge ^cLOG($$$Server)=^cLOG("CACHE01")
+	
+	set device = ""
+	for { set device = $order(^cLOG($$$Server,"QQM",device)) quit:device=""
+		set ^cLOG($$$Server,"QQM",device,$$$NSpace)="K\1\"
+	}
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3376579642"/>
+</Export>
Index: BLDSYSLOG.mac.rou
===================================================================
diff -u -r734 -r926
--- BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 734)
+++ BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 926)
@@ -33,6 +33,8 @@
     Quit:$E(IONaam,1,5)'="|TNT|"
     Set CNaam=$ZCVT($P($E(IONaam,6,99),":",1),"U")
     
+    if CNaam="LOCALHOST" Set CNaam=$ZU(110)
+    
     ; de computer naam is gekend maar nakijken of het bijhorend IP-adres veranderd is
     If $D(^cQSYS(0,"FIXED","NBN",$P(CNaam,"."))) Do  Quit
     . Set IP=$$GetIP(CNaam,1)
@@ -44,7 +46,10 @@
     Quit:$D(^cQSYS(0,"FIXED","IP",CNaam))
     
     ; de computer naam of IPadres is niet gekend
-    Set Status=$$SendMiniMail^vhLib($ZU(110)_"@VANHOECKE.BE",$LB("PV@VANHOECKE.BE","WRO@VANHOECKE.BE"),"Nieuwe telnet gebruiker "_CNaam,"$I = "_IONaam)
+    if (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BLDSYSLOG_SendMail")) {
+    	Set Status=$$SendMiniMail^vhLib($ZU(110)_"@VANHOECKE.BE",$LB("PV@VANHOECKE.BE","WRO@VANHOECKE.BE"),"Nieuwe telnet gebruiker "_CNaam,"$I = "_IONaam)
+    }
+    
     If CNaam'?1.3N1"."1.3N1"."1.3N1"."1.3N Do
     . Set IP=$$GetIP(CNaam,1)
     Else  Do
Index: TECH/System.cls.xml
===================================================================
diff -u
--- TECH/System.cls.xml	(revision 0)
+++ TECH/System.cls.xml	(revision 926)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-10 11:52:42">
+<Class name="TECH.System">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62160,42761.656223</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefActieveNamespaces">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set arNamespaces = ##class(%ArrayOfDataTypes).%New()
+	For Loop=1:1:$zutil(90,0) do arNamespaces.SetAt($zutil(90,2,0,Loop),$zutil(90,2,0,Loop))
+	Quit arNamespaces
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2237934181"/>
+</Export>
Index: IINT.mac.rou
===================================================================
diff -u -r734 -r926
--- IINT.mac.rou	(.../IINT.mac.rou)	(revision 734)
+++ IINT.mac.rou	(.../IINT.mac.rou)	(revision 926)
@@ -25,8 +25,7 @@
    . Write !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    . ; List = SelectieNr; NameSpace; Initialisatie
    . // [??] Dit kan eventueel ook in een config parameter komen? Alhoewel het ook kan zijn dat dit technisch niet mogelijk is.
-   . If boot="CACHE01" Set NSList=$LB($LB($LB(1,"ADMIN1",1),$LB(2,"ADMIN2"),$LB(3,"HALUX"),$LB(9,"%SYS")))
-   . If boot="CACHE02" Set NSList=$LB($LB($LB(1,"DEV-ADMIN1",1),$LB(2,"DEV-ADMIN2"),$LB(3,"DEV-HALUX"),$LB(9,"%SYS")),$LB($LB(5,"JRNL-ADMIN1"),$LB(6,"JRNL-ADMIN2"),$LB(7,"JRNL-HALUX"),$LB(8,"TST-ADMIN1",1)))
+   . set NSList=$$NSList(boot)
    . Write $J("",20),"*** ",boot," ***",!!
    . Write " Pin = []" 
    . For I=1:1:$LL(NSList) Do
@@ -48,8 +47,7 @@
 SWITCH ;gecopieerd in ^|%SYS|%S
    // [??] Dit kan eventueel ook in een config parameter komen? Alhoewel het ook kan zijn dat dit technisch niet mogelijk is.
    Set boot=$zutil(110) ; which system
-   If boot="CACHE01" Set NSList=$LB($LB($LB(1,"ADMIN1",1),$LB(2,"ADMIN2"),$LB(3,"HALUX"),$LB(9,"%SYS")))
-   If boot="CACHE02" Set NSList=$LB($LB($LB(1,"DEV-ADMIN1",1),$LB(2,"DEV-ADMIN2"),$LB(3,"DEV-HALUX"),$LB(9,"%SYS")),$LB($LB(5,"JRNL-ADMIN1"),$LB(6,"JRNL-ADMIN2"),$LB(7,"JRNL-HALUX")))
+   set NSList=$$NSList(boot)
    Write $J("",20),"*** ",boot," ***",!!
    For I=1:1:$LL(NSList) Do
     . Write !
@@ -62,7 +60,26 @@
  
    ZN:$LL(Select) $LI(Select,1)
    Q
-   
+ 
+NSList(Server)
+	new NSList set NSList=""
+	if Server = "CACHE01" { Set NSList=$LB($LB($LB(1,"ADMIN1",1),$LB(2,"ADMIN2"),$LB(3,"HALUX"),$LB(9,"%SYS"))) }
+	elseif Server = "CACHE02" { Set NSList=$LB($LB($LB(1,"DEV-ADMIN1",1),$LB(2,"DEV-ADMIN2"),$LB(3,"DEV-HALUX"),$LB(9,"%SYS")),$LB($LB(5,"JRNL-ADMIN1"),$LB(6,"JRNL-ADMIN2"),$LB(7,"JRNL-HALUX"),$LB(8,"TST-ADMIN1",1)))}
+	else { 
+		new itNamespaces,Namespace,Index
+		set itNamespaces = ##class(TECH.ListIterator).%New(##class(TECH.System).GeefActieveNamespaces())
+		while itNamespaces.HasNext() {
+			set Namespace = itNamespaces.Next()
+			continue:(Namespace="DOCBOOK")
+			continue:(Namespace="%CACHELIB")
+			continue:(Namespace="CACHETEMP")
+			set Index = $increment(Index)
+			set NSList=NSList_$listbuild($listbuild(Index,Namespace))
+		}
+		if $listlength(NSList) set NSList=$listbuild(NSList)
+	}
+	quit NSList
+ 
 1 ;Do AUTO^BLDSYSLOG($I) 
   K  ; alle locale variabelen worden verwijderd 
   B 0 D QQM^cQ6,MASTER^cQ5