source:
WorldVistAEHR/trunk/r/MAILMAN-XM/XMRINETD.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 334 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | XMRINETD ;(WASH ISC)/LH-Process MSM-NT TCP Request ;04/17/2002 11:21 |
2 | ;;8.0;MailMan;;Jun 28, 2002 | |
3 | GO O 56 U 56::"TCP" W /SOCKET("",25) | |
4 | S X=^%ZOSF("VOL") | |
5 | CHK S CHECK=0 I $G(^%ZIS(14.5,"LOGON",X))=1 S CHECK=1 H 60 | |
6 | J GO^XMRINETD | |
7 | I $G(CHECK) W "421 SMTP Service temporarily down.",$C(13,10),! C 56 Q | |
8 | S %="MSM TCP "_$J G SOC25^XMRMSM |
Note:
See TracBrowser
for help on using the repository browser.