- XMCDNT ;(HINES ISC)/EEJ-NT Communications Diagnostics (shareware) ;08/28/2002 09:40
- ;;8.0;MailMan;**3**;Jun 28, 2002
- ;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:30"
- 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
- XMCDNT ;(HINES ISC)/EEJ-NT Communications Diagnostics (shareware) ;08/28/2002 09:40
- +1 ;;8.0;MailMan;**3**;Jun 28, 2002
- +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 SET DIR(0)="F^3:30"
- +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