Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMCDNT

XMCDNT.m

Go to the documentation of this file.
  1. XMCDNT ;(HINES ISC)/EEJ-NT Communications Diagnostics (shareware) ;08/28/2002 09:40
  1. ;;8.0;MailMan;**3**;Jun 28, 2002
  1. ;EEJ,hines ISC. Will test mailers in other domains for TCP/IP
  1. N XMHOST,XMRG,DIR,X,Y
  1. D HOME^%ZIS
  1. W !,"TCP/IP Tester",!
  1. S DIR(0)="F^3:30"
  1. S DIR("A")="Enter the TCP/IP address of remote site"
  1. D ^DIR Q:$D(DIRUT)
  1. S XMHOST=Y
  1. W !,"Trying Connection..."
  1. D CALL^%ZISTCP(XMHOST,25) I POP W !,"TCP/IP link not open" Q
  1. U IO(0) W !!,"Connection OPEN, Testing...",!
  1. U IO R XMRG:10
  1. I XMRG["220" U IO(0) W !,XMRG," Successful."
  1. E U IO(0) W !,"No answer from mailer at ",XMHOST
  1. U IO W "QUIT",$C(13,10),!
  1. D CLOSE^%ZISTCP
  1. Q