|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
