XMCDNT ;(HINES ISC)/EEJ-NT Communications Diagnostics (shareware) ;08/28/2002 09:40
;;8.0;MailMan;**3,48**;Jun 28, 2002;Build 5
;EEJ,hines ISC. Will test mailers in other domains for TCP/IP
N XMHOST,XMRG,DIR,X,Y
D HOME^%ZIS
W !,"TCP/IP Tester",!
S DIR(0)="F^3:39" ;XM*8.0*48 updated for IPv6 compatibility
S DIR("A")="Enter the TCP/IP address of remote site"
D ^DIR Q:$D(DIRUT)
S XMHOST=Y
W !,"Trying Connection..."
D CALL^%ZISTCP(XMHOST,25) I POP W !,"TCP/IP link not open" Q
U IO(0) W !!,"Connection OPEN, Testing...",!
U IO R XMRG:10
I XMRG["220" U IO(0) W !,XMRG," Successful."
E U IO(0) W !,"No answer from mailer at ",XMHOST
U IO W "QUIT",$C(13,10),!
D CLOSE^%ZISTCP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMCDNT 719 printed Nov 22, 2024@17:21:21 Page 2
XMCDNT ;(HINES ISC)/EEJ-NT Communications Diagnostics (shareware) ;08/28/2002 09:40
+1 ;;8.0;MailMan;**3,48**;Jun 28, 2002;Build 5
+2 ;EEJ,hines ISC. Will test mailers in other domains for TCP/IP
+3 NEW XMHOST,XMRG,DIR,X,Y
+4 DO HOME^%ZIS
+5 WRITE !,"TCP/IP Tester",!
+6 ;XM*8.0*48 updated for IPv6 compatibility
SET DIR(0)="F^3:39"
+7 SET DIR("A")="Enter the TCP/IP address of remote site"
+8 DO ^DIR
if $DATA(DIRUT)
QUIT
+9 SET XMHOST=Y
+10 WRITE !,"Trying Connection..."
+11 DO CALL^%ZISTCP(XMHOST,25)
IF POP
WRITE !,"TCP/IP link not open"
QUIT
+12 USE IO(0)
WRITE !!,"Connection OPEN, Testing...",!
+13 USE IO
READ XMRG:10
+14 IF XMRG["220"
USE IO(0)
WRITE !,XMRG," Successful."
+15 IF '$TEST
USE IO(0)
WRITE !,"No answer from mailer at ",XMHOST
+16 USE IO
WRITE "QUIT",$CHAR(13,10),!
+17 DO CLOSE^%ZISTCP
+18 QUIT
