source: FOIAVistA/tag/r/MAILMAN-XM/XMCDNT.m@ 1746

Last change on this file since 1746 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 647 bytes
Line 
1XMCDNT ;(HINES ISC)/EEJ-NT Communications Diagnostics (shareware) ;08/28/2002 09:40
2 ;;8.0;MailMan;**3**;Jun 28, 2002
3 ;EEJ,hines ISC. Will test mailers in other domains for TCP/IP
4 N XMHOST,XMRG,DIR,X,Y
5 D HOME^%ZIS
6 W !,"TCP/IP Tester",!
7 S DIR(0)="F^3:30"
8 S DIR("A")="Enter the TCP/IP address of remote site"
9 D ^DIR Q:$D(DIRUT)
10 S XMHOST=Y
11 W !,"Trying Connection..."
12 D CALL^%ZISTCP(XMHOST,25) I POP W !,"TCP/IP link not open" Q
13 U IO(0) W !!,"Connection OPEN, Testing...",!
14 U IO R XMRG:10
15 I XMRG["220" U IO(0) W !,XMRG," Successful."
16 E U IO(0) W !,"No answer from mailer at ",XMHOST
17 U IO W "QUIT",$C(13,10),!
18 D CLOSE^%ZISTCP
19 Q
Note: See TracBrowser for help on using the repository browser.