- Timestamp:
- May 22, 2011, 9:30:52 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/routines/BMXMON.m
r1181 r1192 1 BMXMON ; IHS/OIT/HMW - BMXNet MONITOR ; 5/ 9/11 10:16am1 BMXMON ; IHS/OIT/HMW - BMXNet MONITOR ; 5/22/11 3:35pm 2 2 ;;4.1000;BMX;;Apr 17, 2011 3 3 ; … … 18 18 ; --> This reduces the need for custom error trap handling which is very difficult to do 19 19 ; --> in Mumps for new programmers. Mumps errors now are thrown on the client. 20 ; - CHSTAT now has code to get the port for GT.M when using xinetd 20 21 ; 21 22 ;IHS/OIT/HMW Patch 1 added validity check for passed-in namespace … … 368 369 ; 369 370 CKSTAT(OUT,IN) ; EP - RPC: BMX CONNECT STATUS ; CONFIRMS THAT THAT A VALID PROCESS HAS BEEN SPAWNED BY BMXMON 370 N PORT,STATUS,JOBID 371 S PORT=+$P($P,"|",3) 371 ; On GT.M on xinetd, get port from ZSHOW "D":^SAM -- thanks to Wally Fort in VistaLink for the Idea 372 ;^SAM("D",1)="/dev/null OPEN " 373 ;^SAM("D",2)="0 OPEN SOCKET TOTAL=1 CURRENT=0 " 374 ;^SAM("D",3)=" SOCKET[0]=h13060671680 DESC=0 CONNECTED ACTIVE TRAP REMOTE=172.16.16.56@54531 LOCAL=172.16.16.142@9260 " 375 ;^SAM("D",4)=" ZDELAY ZBFSIZE=1024 ZIBFSIZE=0 NODELIMITER " 376 ; 377 N PORT,STATUS,JOBID 378 S PORT=+$P($P,"|",3) ; On Cache, port would be the 3rd piece of $Principle 379 I PORT=0,^%ZOSF("OS")["GT.M" DO ; if port is blank and we are on GT.M, then we must be using Xinetd 380 . N BMXTMP ; holds device data 381 . X "ZSHOW ""D"":BMXTMP" ; dump data 382 . N % S %="" ; loop var 383 . F S %=$O(BMXTMP("D",%)) Q:'% Q:BMXTMP("D",%)["LOCAL" ; Cycle % to the right value 384 . S PORT=+$P($P(BMXTMP("D",%),"LOCAL=",2),"@",2) ; Get port 372 385 S JOBID=$P($J,":",1) 373 386 I $G(^BMXTMP("CONNECT STATUS",JOBID))="" HANG 1 ;Wait for job to spawn ZCHILD to be set in MON^
Note:
See TracChangeset
for help on using the changeset viewer.