source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMUCXPOP.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 502 bytes
Line 
1XMUCXPOP ;ISC-SF/GMB-POP3 Server for UCX (RFC 1939) ;04/17/2002 11:46
2 ;;8.0;MailMan;;Jun 28, 2002
3 ;Entry for Inet_servers interface RECEIVER
4 ;SMTP service request invokes MailMan POP Server
5SOC110 ;
6 I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER H"
7 E S X="D ^%ZTER H",@^%ZOSF("TRAP")
8 S (XMRPORT,IO,IO(0))=%,X=$E(%_"-XMPOP",1,15) D SETENV^%ZOSV
9 D DT^DICRW,DUZ^XUP(.5)
10 S ER=0
11 ;O IO:(SHARE) U IO
12 O IO:(TCPDEV):33 U IO
13 S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
14 D ENTRY^XMRPOP
15 G HALT^XMRTCP
Note: See TracBrowser for help on using the repository browser.