IINT ;Tied terminal program (Caché) ;IINT; [ 04/27/01  7:45 PM ]
 ;
T0 ;Tied terminal program (Caché) ;
T1 ;De terminal is niet meer verbonden ;
T2 ;Scherm ; Job ;. U mag momenteel niet werken.;
T3 ;Wachtwoord: ;Verkeerd wachtwoord;Verkeerde toegangscode;
 ;
T0F ;Tied terminal program (Caché);
T1F ;Le terminal n'est plus connecté ;
T2F ;Ecran ; Job ;. Actuellement, on ne peut pas travailler.;
T3F ;Mot de passe: ;Mot de passe incorrect;Code d'accès incorrect;
 ;
T0E ;Tied terminal program (Caché) ;
T1E ;The terminal is no longer connected ;
T2E ;Terminal ; Job ;. At this moment, nobody is allowed to work.;
T3E ;Password: ;Password is incorrect;Access Code is incorrect;
 ;
 ; ;Conditioneel opstarten van PMODE of GEPINNED
   Kill ^cJOB($J)
   Do AUTO^BLDSYSLOG($I) K
   Set io=$$IO^cQ5()
   If '$D(^cLOG(boot,"PIN",io)) Goto 1
   If $D(^cLOG(boot,"PIN",io)) Do  Goto 1:Select=""
   . New Input,NSArray,NSList 
   . 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.
   . set NSList=$$NSList(boot)
   . Write $J("",20),"*** ",boot," ***",!!
   . Write " Pin = []" 
   . For I=1:1:$LL(NSList) Do
   . . Write !
   . . For J=1:1:$LL($LI(NSList,I)) Do
   . . . Write $J($LI($LI($LI(NSList,I),J),1),2),"=",$LI($LI($LI(NSList,I),J),2),$J("",13-$L($LI($LI($LI(NSList,I),J),2)))
   . . . Set NSArray($LI($LI($LI(NSList,I),J),1))=$LI($LI($LI(NSList,I),J),2,3)
   . Read !!,"Namespace ? ",Input
   . Set Select=""
   . Set:Input?1.2N Select=$G(NSArray(Input))
   
   ; Volgende 2 lijnen werden gecopieerd uit ^%PMODE (programmer mode)
   ZN:$LL(Select) $LI(Select,1)
   i $zu(67,10,1,$j)
   V:'($ZJ#2) 0:-1:$ZU(40,0,1):$V(0,-1,$ZU(40,0,1))+1
   I $LG(Select,2) D INIT^vhTERMINA,USR^cA5000(^cLOG(boot,"PIN",io)) Write @FCS
   
   I $P($G(^cLOG(boot,"DAM",2)),D) D ^cAN325(QU)   ; initialisatie printers;
   I $P($G(^cLOG(boot,"DAM",3)),D) D ^cAN3250(QU)  ; initialisatie locaties;
 
   
   Q
   
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
   set NSList=$$NSList(boot)
   Write $J("",20),"*** ",boot," ***",!!
   For I=1:1:$LL(NSList) Do
    . Write !
    . For J=1:1:$LL($LI(NSList,I)) Do
    . . Write $J($LI($LI($LI(NSList,I),J),1),2),"=",$LI($LI($LI(NSList,I),J),2),$J("",13-$L($LI($LI($LI(NSList,I),J),2)))
   . . Set NSArray($LI($LI($LI(NSList,I),J),1))=$LI($LI($LI(NSList,I),J),2,3)
   Read Input
   Set Select=""
   Set:Input?1.2N Select=$G(NSArray(Input))
 
   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")
			continue:(Namespace="SAMPLES")
			set Index = $increment(Index)
			set NSList=NSList_$listbuild($listbuild(Index,Namespace,$G(^|Namespace|SYS("IsDataMOmgeving"),0)))
		}
		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
 I $D(^cLOG(boot,"LOGIN","QT")) S QT=$TR(^("QT"),"N")
 D QT^cQ5 S $ZT="ER^"_$T(+0),io=$G(io,$$IO^cQ5)
 I '$G(^cLOG(boot,"LOGON",0)) S K=$P($G(^cLOG(boot,"DEV",io),0),"\") I $D(^cLOG(0,"LOGON",K)) X ^(K)
 D BX^cQ13
 I $D(^cLOG(boot,"LOGIN",io)) H:'^(io)  S K=$P(^(io),"\",2) I $L(K),K'["^II" G @K
11 I $D(^cLOG(boot,"MODEM",io)),^(io,1) U 0:(:"S") F I=1:1:20 H 1 R !,K:0 I '$T,'$L(K) Q
12 I io>1!workst I '$G(^cLOG(boot,"TTT"),1) D  G 33
 . W !!?2,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,$P($T(@("T2"_QT)),";",4)
 . W !!?2,$P($T(@("T1"_QT)),";",2),!!
 . B 0 U 0:(:"S") R "",*K:2 U 0:(:"") I K=25 W "." R K:9 W !!!!!!!!!!!!!!!!!!!!!!!! D ^cA106 G 12:DD_DM_DJ#$H'=K K  D ^cQQ G 1
13 U 0:(:"")
 ;
2 I $D(^cLOG(boot,"PW",io)),$L(^(io)) D  I K'=P S QU=$P($T(@("T3"_QT)),";",3) D IN^cQLOG G 3
 . S P=^(io) U 0:(:"S") W !!!!!!?2,$P($T(@("T3"_QT)),";",2) R K:10 U 0:(:"")
21 D ^cA5000 S:K QU=$P($T(@("T3"_QT)),";",4) D IN^cQLOG  ;toegangscontrole
 I K G 3  ;toegang geweigerd
 D ^cA501 ;starten menu
25 I $G(^cLOG(cs,"LOGIN",0)) G 21
 ;
3 D MASTER^cQ5 S io=$G(io,$$IO^cQ5)
31 S K=$P($T(@("T1"_QT)),";",2),FP=1318+$L(K) W @F11,@F1,@F,@F5 S FP=1317 W @F,@F4,K,@F5 D OUT^cQLOG
 I $G(QW) D E^cA612    ; End zwintem
32 S K=0 S:$D(^cLOG(boot,"DEV",io)) K=$P(^(io),"\") I $D(^cLOG(0,"LOGOUT",K)) X ^(K)
33 I $D(^cLOG(boot,"MODEM",io)),^(io,1) D  I ^cLOG(boot,"MODEM",io,8) D  U $P:(:"")
 . F I=1:1:^cLOG(boot,"MODEM",io,4) X ^cLOG(boot,"MODEM",io,4,I) F J=1:1:5 R K:1 I '$T,'$L(K) Q
34 H
 ;
YZ Q
 ;
ER S $ZT="ERZ^"_$T(+0),%=$ZE I %["<EDITED>",%[$T(+0) G 25
 S %ZTRAP="ER^"_$T(+0)
 D ^cA400 H:%["<DSCON>"  U 0 W !!?2,"ERROR : ",$ZE,! D KON^cQ4
ERZ W ! R %2 H
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8