XMCDNTI.m

XMCDNTI ;(HINES ISC)/EEJ-NT COMMUNICATIONS DIAGNOSTICS ; 3/28/95 9:00 AM ; [ 12/05/95  2:36 PM ]

 ;;7.1;Mailman;**1003**;OCT 27, 1998

 ;;7.1;MailMan;**8**;Jun 02, 1994

 ;IHS/MFD IHS version of XMCDNT

 ; modified to loop and use parameter passing for silent calls

 ;EEJ,hines ISC.  Will test mailers in other domains for TCP/IP

 S PORT=3601   ;IHS standard mailer socket port

START ;

 S TALK=1     ; interactive flag

 W !,"TCP/IP tester using port "_PORT D  G END:ZHOST=""

 .W !!,"Enter the TCP/IP address of remote site: "

 .R ZHOST

 W !!,"Testing...",! H 1

 D ENT(ZHOST,PORT) K ZHOST G START

END K PORT,ZHOST,KEY,TALK Q

ENT(ZHOST,PORT) ; enter here for silent call, KEY and QF returned

 ; return var QF=0   attempt was successful

 ;            QF=1   mailer not listening at requested site

 ;            QF=2   could not open device 56

 N ZANSWER

 O 56::10 E  S QF=2 Q

 U 56::"TCP"

 W /SOCKET(ZHOST,PORT) S KEY=$KEY

 U 56 R ZANSWER:30

 I $D(TALK) U 0 W !,"$KEY=",KEY

 I ZANSWER["220" S QF=0 

 E  U 0 S QF=1 I $D(TALK) W !,"No answer from mailer at ",ZHOST

 U 0 I $D(TALK),QF=0 W !,ZANSWER,"     Successful."

 C 56 Q

25 S PORT=25 G START   ;standard mailer socket port for SMTP

XMCDNTI   ;(HINES ISC)/EEJ-NT COMMUNICATIONS DIAGNOSTICS ; 3/28/95 9:00 AM ; [ 12/05/95  2:36 PM ]

 +1       ;;7.1;Mailman;**1003**;OCT 27, 1998

 +2       ;;7.1;MailMan;**8**;Jun 02, 1994

 +3       ;IHS/MFD IHS version of XMCDNT

 +4       ; modified to loop and use parameter passing for silent calls

 +5       ;EEJ,hines ISC.  Will test mailers in other domains for TCP/IP

 +6       ;IHS standard mailer socket port

           SET PORT=3601

START     ;

 +1       ; interactive flag

           SET TALK=1

 +2        WRITE !,"TCP/IP tester using port "_PORT

           Begin DoDot:1

 +3            WRITE !!,"Enter the TCP/IP address of remote site: "

 +4            READ ZHOST

           End DoDot:1

           IF ZHOST=""

               GOTO END

 +5        WRITE !!,"Testing...",!

           HANG 1

 +6        DO ENT(ZHOST,PORT)

           KILL ZHOST

           GOTO START

END        KILL PORT,ZHOST,KEY,TALK

           QUIT 

ENT(ZHOST,PORT) ; enter here for silent call, KEY and QF returned

 +1       ; return var QF=0   attempt was successful

 +2       ;            QF=1   mailer not listening at requested site

 +3       ;            QF=2   could not open device 56

 +4        NEW ZANSWER

 +5        OPEN 56::10

          IF '$TEST

               SET QF=2

               QUIT 

 +6        USE 56::"TCP"

 +7        WRITE /SOCKET(ZHOST,PORT)

           SET KEY=$KEY

 +8        USE 56

           READ ZANSWER:30

 +9        IF $DATA(TALK)

               USE 0

               WRITE !,"$KEY=",KEY

 +10       IF ZANSWER["220"

               SET QF=0

 +11      IF '$TEST

               USE 0

               SET QF=1

               IF $DATA(TALK)

                   WRITE !,"No answer from mailer at ",ZHOST

 +12       USE 0

           IF $DATA(TALK)

               IF QF=0

                   WRITE !,ZANSWER,"     Successful."

 +13       CLOSE 56

           QUIT 

25        ;standard mailer socket port for SMTP

           SET PORT=25

           GOTO START