source: FOIAVistA/trunk/r/MAILMAN-XM/XMRUCX.m@ 1704

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1XMRUCX ;(WASH ISC)/THM/CAP-SMTP Receiver (RFC 821) for UCX ;03/25/2004 06:33
2 ;;8.0;MailMan;**6,19,25,27**;Jun 28, 2002
3 ;
4 ;Entry for Inet_servers interface RECEIVER
5 ;SMTP service request invokes MailMan
6SOC25 ;
7 ;S (XMRPORT,IO,IO(0))=%,X=$E(%_"-INETMM",1,15) D SETENV^%ZOSV
8 ;I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D R^XMCTRAP Q"
9 ;E S X="R^XMCTRAP",@^%ZOSF("TRAP")
10 ;D DT^DICRW,DUZ^XUP(.5)
11 ;S ER=0
12 ;O IO:(SHARE) U IO
13 ;S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
14 ;D ENT^XMR
15 ;;G HALT^XMRTCP
16 ;Q
17SOC ;
18 S (XMRPORT,IO,IO(0))="SYS$NET",X=$E(%_"INETMM",1,15) D SETENV^%ZOSV
19 I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
20 E S X="R^XMCTRAP",@^%ZOSF("TRAP")
21 D DT^DICRW,DUZ^XUP(.5)
22 S ER=0
23 O IO:(TCPDEV):33 U IO
24 S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
25 D ENT^XMR
26 ;G HALT^XMRTCP
27 Q
28GTM2 ;Entry point for %ZISTCPS to GT.M
29 ;The device has been open and setup in %ZISTCPS
30 N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
31 S XMRPORT=IO
32 D SETNM^%ZOSV($E(IO_"INETMM",1,15)),COUNT^XUSCNT(1) ;Process counting under GT.M
33 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
34 S ER=0,XMS0C=1
35 U IO:(DELIMITER=$C(13))
36 S XMCHAN="TCP/GTM" ;,XMNO220=""
37 D ENT^XMR
38 D COUNT^XUSCNT(-1) ;Check out GT.M counting
39 Q
40STARTGTM ;Start the %ZISTCPS service
41 D LISTEN^%ZISTCPS(25,"GTM2^XMRUCX")
42 Q
43CACHEVMS ;Cache/VMS tcpip service entry point
44 N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
45 S (XMRPORT,IO,IO(0))="SYS$NET" D SETNM^%ZOSV($E("INETMM-"_$J,1,15))
46 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
47 S ER=0,XMS0C=1
48 O IO::33 U IO:(::"-M")
49 S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
50 D ENT^XMR
51 Q
Note: See TracBrowser for help on using the repository browser.