source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMRUCX.m@ 691

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

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1XMRUCX ;(WASH ISC)/THM/CAP-SMTP Receiver (RFC 821) for UCX ;6:10 AM 31 Jan 2008
2 ;;8.0;MailMan;**6,19,25,27,test**;Jun 28, 2002;Build 4
3 ;
4 ;Entry for Inet_servers interface RECEIVER
5 ;SMTP service request invokes MailMan
6 ;Modified from FOIA VISTA,
7 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
8 ;General Public License See attached copy of the License.
9 ;
10 ;This program is free software; you can redistribute it and/or modify
11 ;it under the terms of the GNU General Public License as published by
12 ;the Free Software Foundation; either version 2 of the License, or
13 ;(at your option) any later version.
14 ;
15 ;This program is distributed in the hope that it will be useful,
16 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;GNU General Public License for more details.
19 ;
20 ;You should have received a copy of the GNU General Public License along
21 ;with this program; if not, write to the Free Software Foundation, Inc.,
22 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23SOC25 ;
24 ;S (XMRPORT,IO,IO(0))=%,X=$E(%_"-INETMM",1,15) D SETENV^%ZOSV
25 ;I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D R^XMCTRAP Q"
26 ;E S X="R^XMCTRAP",@^%ZOSF("TRAP")
27 ;D DT^DICRW,DUZ^XUP(.5)
28 ;S ER=0
29 ;O IO:(SHARE) U IO
30 ;S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
31 ;D ENT^XMR
32 ;;G HALT^XMRTCP
33 ;Q
34SOC ;
35 S (XMRPORT,IO,IO(0))="SYS$NET",X=$E(%_"INETMM",1,15) D SETENV^%ZOSV
36 I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
37 E S X="R^XMCTRAP",@^%ZOSF("TRAP")
38 D DT^DICRW,DUZ^XUP(.5)
39 S ER=0
40 O IO:(TCPDEV):33 U IO
41 S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
42 D ENT^XMR
43 ;G HALT^XMRTCP
44 Q
45GTM2 ;Entry point for %ZISTCPS to GT.M
46 ;The device has been open and setup in %ZISTCPS
47 N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
48 S XMRPORT=IO
49 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
50 S ER=0,XMS0C=1
51 U IO:(DELIMITER=$C(13))
52 S XMCHAN="TCP/GTM" ;,XMNO220=""
53 D ENT^XMR
54 D COUNT^XUSCNT(-1) ;Check out GT.M counting
55 Q
56STARTGTM ;Start the %ZISTCPS service
57 D LISTEN^%ZISTCPS(25,"GTM2^XMRUCX")
58 Q
59 ;
60GTMLNX ;From Linux xinetd script
61 S U="^",$ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
62 ;GTM specific code
63 S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")
64 S (XMRPORT,IO,IO(0))=$P X "U XMRPORT:(nowrap:delimiter=$C(13))"
65 S %="",@("%=$ZTRNLNM(""REMOTE_HOST"")") S:$L(%) IO("GTM-IP")=%
66 D SETNM^%ZOSV($E(XMRPORT_"INETMM",1,15)),COUNT^XUSCNT(1) ;Process counting under GT.M
67 S XMCHAN="TCP/GTM",XMNO220=""
68 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
69 D ENT^XMR
70 D COUNT^XUSCNT(-1) ;Check out GT.M counting
71 Q
72CACHEVMS ;Cache/VMS tcpip service entry point
73 N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
74 S (XMRPORT,IO,IO(0))="SYS$NET" D SETNM^%ZOSV($E("INETMM-"_$J,1,15))
75 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
76 S ER=0,XMS0C=1
77 O IO::33 U IO:(::"-M")
78 S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
79 D ENT^XMR
80 Q
Note: See TracBrowser for help on using the repository browser.