XMCDNT.m

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 ---XMCDNT   719     printed  Apr 09, 2024@21:15:16                                                                                                                                                                                                       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