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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMRONT 879 printed Nov 22, 2024@17:23:07 Page 2
XMRONT ;(SF-ISC)/RWF - OpenM-NT TCP/IP INETD and Front End ;04/30/2002 07:24
+1 ;;8.0;MailMan;**27**;Jun 28, 2002
+2 ; Entry points used by MailMan options (not covered by DBIA):
+3 ; GO XMRONT
+4 ;This routine starts a listener for TCP mail Connects.
+5 ; It takes the place of the INETD Unix process
+6 ;
GO ;Open port 25 in Accept mode.
+1 SET XMRSOCK=25
+2 DO LISTEN^%ZISTCPS(XMRSOCK,"SOC25^XMRONT")
+3 ;HALT
+4 GOTO HALT
+5 ;
SOC25 ;This entry point is started as a new process by %ZISTCPS.
+1 SET (XMRPORT,IO,IO(0))=$IO
SET IOT="TCP"
+2 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D TRP^XMCTRAP"
+3 IF '$TEST
SET X="TRP^XMCTRAP"
SET @^%ZOSF("TRAP")
+4 NEW DIQUIET
SET DIQUIET=1
DO DT^DICRW
DO DUZ^XUP(.5)
+5 SET ER=0
SET XMCHAN="TCP/IP-MAILMAN"
SET XMNO220=""
+6 USE IO
+7 DO ENT^XMR
HALT ;Unlock all locks, close the connection and quit
+1 ;L ;C IO The close caused a problem under OpenM 52e, so it was removed
+2 GOTO ^XUSCLEAN
+3 QUIT
