Last change
on this file since 1693 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
647 bytes
|
Line | |
---|
1 | XMCDNT ;(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.