- BGUTCP ; IHS/OIT/MJL - Primary Control TCP listener ;
- ;;1.5;BGU;;MAY 26, 2005
- ;;Primary TCP Utility to start and stop Listener
- ;;BGUTSKT is the Socket port number for listening
- ;;
- EN ;EP-- entry point for interactive use
- N X1,X2,BGUTDBG S:'$D(DTIME) DTIME=300
- D EN^DDIOL("Enter client address: ") R X1:DTIME Q:'$T Q:X1="^"
- D EN^DDIOL(" Enter client port: ") R X2:DTIME Q:'$T Q:X2="^"
- S BGUTDBG=""
- D EN^BGUTCPH(X1,X2)
- Q
- STRT(BGUTSKT) D EN^DDIOL("Start TCP Listener...") ;EP--entry point for starting listener
- S U="^" D HOME^%ZIS
- STRTEN ;EP-- entry point for starting from startup
- I $G(BGUTSKT)="" S BGUTSKT=$G(^BGUSP(1,2),8000) ;default port
- ; -- see if 'running flag' for listener is set
- L +^BGUSP("TMP","RUNNING"):1
- I '$T D EN^DDIOL("TCP Listener appears to be running already.") Q
- L -^BGUSP("TMP","RUNNING"):1
- ;
- ; -- set stop flag to false and start the listener
- S ^BGUSP("TMP","STOP")=""
- ;D GETENV^%ZOSV
- ; -- START listener
- D
- .J EN^BGUTCPL(BGUTSKT)::5
- I '$T D EN^DDIOL("Unable to run TCP Listener in background.") Q
- D EN^DDIOL("TCP Listener started successfully.")
- Q
- ;
- STOAP(BGUTSKT) D EN^DDIOL("Stop TCP Listener...") ;EP--entry point for stoping listener
- ;
- I $G(BGUTSKT)="" S BGUTSKT=8000 ;default port
- ; -- make sure the listener is running
- L +^BGUSP("TMP","RUNNING"):1
- I $T D Q
- . L -^BGUSP("TMP","RUNNING"):1
- . D EN^DDIOL("TCP Listener does not appear to be running.")
- ;
- ; -- set the stop flag
- S ^BGUSP("TMP","STOP")=1
- ;
- ; -- send the shutdown message to the TCP Listener process
- S BGUVER=$G(^%ZOSF("OS")) S:'$L(BGUVER) BGUVER=$ZV
- S BGUMSM=$S(BGUVER["MSM":1,1:0)
- I BGUMSM D
- .O 56 U 56::"TCP"
- .W /SOCKET("127.0.0.1",BGUTSKT) ; -- connect to this machine
- .W $C(11),"TCPshutdown",! ; -- send the shutdown message
- .R X#3:5 ; -- get the three char 'ack' back
- .C 56
- I 'BGUMSM D
- .D CALL^%ZISTCP("127.0.0.1",BGUTSKT)
- .U IO
- .W $C(11),"TCPshutdown",! ; -- send the shutdown message
- .R X#3:5 ; -- get the three char 'ack' back
- .;C IO
- .;D CLOSE^%ZISTCP
- D EN^DDIOL("TCP Listener has been shutdown.")
- Q
- ;
- STOP(BGUTSKT) ;EP--entry point for stop TCP Listener. Interactive and TaskMan entry point
- STPEN ;EP -- entry point for stopping from option
- I $G(BGUTSKT)="" S BGUTSKT=$G(^BGUSP(1,2),8000) ;default port
- ;N IP,REF,X,DEV,XWBOS,XWBIP
- S U="^" D HOME^%ZIS
- D EN^DDIOL("Stop TCP Listener...")
- X ^%ZOSF("UCI") S REF=Y
- S IP="0.0.0.0" ;get server IP
- S XWBOS=$S(^%ZOSF("OS")["DSM":"DSM",^("OS")["MSM":"MSM",^("OS")["OpenM":"OpenM",1:"") ;RWF
- ;
- I $G(BGUTSKT)="" S BGUTSKT=8000 ;default port
- ; -- make sure the listener is running
- L +^BGUSP("TMP","RUNNING"):1
- I $T D Q
- . L -^BGUSP("TMP","RUNNING"):1
- . D EN^DDIOL("TCP Listener does not appear to be running.")
- ;
- ; -- set the stop flag
- S ^BGUSP("TMP","STOP")=1
- ;
- ; -- send the shutdown message to the TCP Listener process
- ; using loopback address
- S XWBTSKT=BGUTSKT
- S XWBIP="127.0.0.1"
- D CALL^%ZISTCP("127.0.0.1",XWBTSKT) I POP D Q
- . D EN^DDIOL("TCP Listener does not appear to be running.")
- U IO
- ;
- W $C(11),"TCPshutdown",! ; -- send the shutdown message
- R X#3:5
- D EN^DDIOL("TCP Listener Response to Shutdown Request: "_X)
- D CLOSE^%ZISTCP
- IF X="ack" D EN^DDIOL("TCP Listener has been shutdown.")
- ELSE D EN^DDIOL("Shutdown Failed!")
- ;change process name
- ;D CHPRN^XWBTCPC($J)
- Q
- RESTART(BGUTSKT) ;STOPS AND STARTS LISTENER
- D STOP(BGUTSKT)
- H 2
- D STRT(BGUTSKT)
- Q
- BGUTCP ; IHS/OIT/MJL - Primary Control TCP listener ;
- +1 ;;1.5;BGU;;MAY 26, 2005
- +2 ;;Primary TCP Utility to start and stop Listener
- +3 ;;BGUTSKT is the Socket port number for listening
- +4 ;;
- EN ;EP-- entry point for interactive use
- +1 NEW X1,X2,BGUTDBG
- IF '$DATA(DTIME)
- SET DTIME=300
- +2 DO EN^DDIOL("Enter client address: ")
- READ X1:DTIME
- IF '$TEST
- QUIT
- IF X1="^"
- QUIT
- +3 DO EN^DDIOL(" Enter client port: ")
- READ X2:DTIME
- IF '$TEST
- QUIT
- IF X2="^"
- QUIT
- +4 SET BGUTDBG=""
- +5 DO EN^BGUTCPH(X1,X2)
- +6 QUIT
- STRT(BGUTSKT) ;EP--entry point for starting listener
- DO EN^DDIOL("Start TCP Listener...")
- +1 SET U="^"
- DO HOME^%ZIS
- STRTEN ;EP-- entry point for starting from startup
- +1 ;default port
- IF $GET(BGUTSKT)=""
- SET BGUTSKT=$GET(^BGUSP(1,2),8000)
- +2 ; -- see if 'running flag' for listener is set
- +3 LOCK +^BGUSP("TMP","RUNNING"):1
- +4 IF '$TEST
- DO EN^DDIOL("TCP Listener appears to be running already.")
- QUIT
- +5 LOCK -^BGUSP("TMP","RUNNING"):1
- +6 ;
- +7 ; -- set stop flag to false and start the listener
- +8 SET ^BGUSP("TMP","STOP")=""
- +9 ;D GETENV^%ZOSV
- +10 ; -- START listener
- +11 Begin DoDot:1
- +12 JOB EN^BGUTCPL(BGUTSKT)::5
- End DoDot:1
- +13 IF '$TEST
- DO EN^DDIOL("Unable to run TCP Listener in background.")
- QUIT
- +14 DO EN^DDIOL("TCP Listener started successfully.")
- +15 QUIT
- +16 ;
- STOAP(BGUTSKT) ;EP--entry point for stoping listener
- DO EN^DDIOL("Stop TCP Listener...")
- +1 ;
- +2 ;default port
- IF $GET(BGUTSKT)=""
- SET BGUTSKT=8000
- +3 ; -- make sure the listener is running
- +4 LOCK +^BGUSP("TMP","RUNNING"):1
- +5 IF $TEST
- Begin DoDot:1
- +6 LOCK -^BGUSP("TMP","RUNNING"):1
- +7 DO EN^DDIOL("TCP Listener does not appear to be running.")
- End DoDot:1
- QUIT
- +8 ;
- +9 ; -- set the stop flag
- +10 SET ^BGUSP("TMP","STOP")=1
- +11 ;
- +12 ; -- send the shutdown message to the TCP Listener process
- +13 SET BGUVER=$GET(^%ZOSF("OS"))
- IF '$LENGTH(BGUVER)
- SET BGUVER=$ZV
- +14 SET BGUMSM=$SELECT(BGUVER["MSM":1,1:0)
- +15 IF BGUMSM
- Begin DoDot:1
- +16 OPEN 56
- USE 56::"TCP"
- +17 ; -- connect to this machine
- WRITE /SOCKET("127.0.0.1",BGUTSKT)
- +18 ; -- send the shutdown message
- WRITE $CHAR(11),"TCPshutdown",!
- +19 ; -- get the three char 'ack' back
- READ X#3:5
- +20 CLOSE 56
- End DoDot:1
- +21 IF 'BGUMSM
- Begin DoDot:1
- +22 DO CALL^%ZISTCP("127.0.0.1",BGUTSKT)
- +23 USE IO
- +24 ; -- send the shutdown message
- WRITE $CHAR(11),"TCPshutdown",!
- +25 ; -- get the three char 'ack' back
- READ X#3:5
- +26 ;C IO
- +27 ;D CLOSE^%ZISTCP
- End DoDot:1
- +28 DO EN^DDIOL("TCP Listener has been shutdown.")
- +29 QUIT
- +30 ;
- STOP(BGUTSKT) ;EP--entry point for stop TCP Listener. Interactive and TaskMan entry point
- STPEN ;EP -- entry point for stopping from option
- +1 ;default port
- IF $GET(BGUTSKT)=""
- SET BGUTSKT=$GET(^BGUSP(1,2),8000)
- +2 ;N IP,REF,X,DEV,XWBOS,XWBIP
- +3 SET U="^"
- DO HOME^%ZIS
- +4 DO EN^DDIOL("Stop TCP Listener...")
- +5 XECUTE ^%ZOSF("UCI")
- SET REF=Y
- +6 ;get server IP
- SET IP="0.0.0.0"
- +7 ;RWF
- SET XWBOS=$SELECT(^%ZOSF("OS")["DSM":"DSM",^("OS")["MSM":"MSM",^("OS")["OpenM":"OpenM",1:"")
- +8 ;
- +9 ;default port
- IF $GET(BGUTSKT)=""
- SET BGUTSKT=8000
- +10 ; -- make sure the listener is running
- +11 LOCK +^BGUSP("TMP","RUNNING"):1
- +12 IF $TEST
- Begin DoDot:1
- +13 LOCK -^BGUSP("TMP","RUNNING"):1
- +14 DO EN^DDIOL("TCP Listener does not appear to be running.")
- End DoDot:1
- QUIT
- +15 ;
- +16 ; -- set the stop flag
- +17 SET ^BGUSP("TMP","STOP")=1
- +18 ;
- +19 ; -- send the shutdown message to the TCP Listener process
- +20 ; using loopback address
- +21 SET XWBTSKT=BGUTSKT
- +22 SET XWBIP="127.0.0.1"
- +23 DO CALL^%ZISTCP("127.0.0.1",XWBTSKT)
- IF POP
- Begin DoDot:1
- +24 DO EN^DDIOL("TCP Listener does not appear to be running.")
- End DoDot:1
- QUIT
- +25 USE IO
- +26 ;
- +27 ; -- send the shutdown message
- WRITE $CHAR(11),"TCPshutdown",!
- +28 READ X#3:5
- +29 DO EN^DDIOL("TCP Listener Response to Shutdown Request: "_X)
- +30 DO CLOSE^%ZISTCP
- +31 IF X="ack"
- DO EN^DDIOL("TCP Listener has been shutdown.")
- +32 IF '$TEST
- DO EN^DDIOL("Shutdown Failed!")
- +33 ;change process name
- +34 ;D CHPRN^XWBTCPC($J)
- +35 QUIT
- RESTART(BGUTSKT) ;STOPS AND STARTS LISTENER
- +1 DO STOP(BGUTSKT)
- +2 HANG 2
- +3 DO STRT(BGUTSKT)
- +4 QUIT
