source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMRINETD.m@ 1133

Last change on this file since 1133 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 334 bytes
Line 
1XMRINETD ;(WASH ISC)/LH-Process MSM-NT TCP Request ;04/17/2002 11:21
2 ;;8.0;MailMan;;Jun 28, 2002
3GO O 56 U 56::"TCP" W /SOCKET("",25)
4 S X=^%ZOSF("VOL")
5CHK 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.