XMRONT ;(SF-ISC)/RWF - OpenM-NT TCP/IP INETD and Front End ;04/30/2002 07:24
;;8.0;MailMan;**27**;Jun 28, 2002
; Entry points used by MailMan options (not covered by DBIA):
; GO XMRONT
;This routine starts a listener for TCP mail Connects.
; It takes the place of the INETD Unix process
GO ;Open port 25 in Accept mode.
SOC25 ;This entry point is started as a new process by %ZISTCPS.
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D TRP^XMCTRAP"
E S X="TRP^XMCTRAP",@^%ZOSF("TRAP")
N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
HALT ;Unlock all locks, close the connection and quit
;L ;C IO The close caused a problem under OpenM 52e, so it was removed