XMUCXPOP ;ISC-SF/GMB-POP3 Server for UCX (RFC 1939) ;04/17/2002 11:46
;;8.0;MailMan;;Jun 28, 2002
;Entry for Inet_servers interface RECEIVER
;SMTP service request invokes MailMan POP Server
SOC110 ;
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER H"
E S X="D ^%ZTER H",@^%ZOSF("TRAP")
S (XMRPORT,IO,IO(0))=%,X=$E(%_"-XMPOP",1,15) D SETENV^%ZOSV
D DT^DICRW,DUZ^XUP(.5)
S ER=0
;O IO:(SHARE) U IO
O IO:(TCPDEV):33 U IO
S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
D ENTRY^XMRPOP
G HALT^XMRTCP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMUCXPOP 517 printed Dec 13, 2024@02:13:23 Page 2
XMUCXPOP ;ISC-SF/GMB-POP3 Server for UCX (RFC 1939) ;04/17/2002 11:46
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ;Entry for Inet_servers interface RECEIVER
+3 ;SMTP service request invokes MailMan POP Server
SOC110 ;
+1 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ^%ZTER H"
+2 IF '$TEST
SET X="D ^%ZTER H"
SET @^%ZOSF("TRAP")
+3 SET (XMRPORT,IO,IO(0))=%
SET X=$EXTRACT(%_"-XMPOP",1,15)
DO SETENV^%ZOSV
+4 DO DT^DICRW
DO DUZ^XUP(.5)
+5 SET ER=0
+6 ;O IO:(SHARE) U IO
+7 OPEN IO:(TCPDEV):33
USE IO
+8 SET XMCHAN="TCP/IP-MAILMAN"
SET XMNO220=""
+9 DO ENTRY^XMRPOP
+10 GOTO HALT^XMRTCP
