26 lines
854 B
Mathematica
26 lines
854 B
Mathematica
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.
|
|
S XMRSOCK=25
|
|
D LISTEN^%ZISTCPS(XMRSOCK,"SOC25^XMRONT")
|
|
;HALT
|
|
G HALT
|
|
;
|
|
SOC25 ;This entry point is started as a new process by %ZISTCPS.
|
|
S (XMRPORT,IO,IO(0))=$IO,IOT="TCP"
|
|
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)
|
|
S ER=0,XMCHAN="TCP/IP-MAILMAN",XMNO220=""
|
|
U IO
|
|
D ENT^XMR
|
|
HALT ;Unlock all locks, close the connection and quit
|
|
;L ;C IO The close caused a problem under OpenM 52e, so it was removed
|
|
G ^XUSCLEAN
|
|
Q
|