XMRONT.m

XMRONT ;(SF-ISC)/RWF - OpenM-NT TCP/IP INETD and Front End ;04/30/2002  07:24

 ;;8.0;MailMan;**27**;Jun 28, 2002;Build 1

 ; 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

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;Build 1

 +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