XMRINETD.m

XMRINETD ;(WASH ISC)/LH-Process MSM-NT TCP Request ;04/17/2002  11:21

 ;;8.0;MailMan;;Jun 28, 2002

GO O 56 U 56::"TCP" W /SOCKET("",25)

 S X=^%ZOSF("VOL")

CHK S CHECK=0 I $G(^%ZIS(14.5,"LOGON",X))=1 S CHECK=1 H 60

 J GO^XMRINETD

 I $G(CHECK) W "421 SMTP Service temporarily down.",$C(13,10),! C 56 Q

 S %="MSM TCP "_$J G SOC25^XMRMSM

XMRINETD  ;(WASH ISC)/LH-Process MSM-NT TCP Request ;04/17/2002  11:21

 +1       ;;8.0;MailMan;;Jun 28, 2002

GO         OPEN 56

           USE 56::"TCP"

           WRITE /SOCKET("",25)

 +1        SET X=^%ZOSF("VOL")

CHK        SET CHECK=0

           IF $GET(^%ZIS(14.5,"LOGON",X))=1

               SET CHECK=1

               HANG 60

 +1        JOB GO^XMRINETD

 +2        IF $GET(CHECK)

               WRITE "421 SMTP Service temporarily down.",$CHAR(13,10),!

               CLOSE 56

               QUIT 

 +3        SET %="MSM TCP "_$JOB

           GOTO SOC25^XMRMSM