Changeset 636 for FOIAVistA/tag/r/MAILMAN-XM/XMRUCX.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• MAILMAN-XM/XMRUCX.m (modified) (3 diffs)

FOIAVistA/tag/r/MAILMAN-XM/XMRUCX.m

@@ -1 @@
-XMRUCX ;(WASH ISC)/THM/CAP-SMTP Receiver (RFC 821) for UCX ;03/25/2004  06:33
- ;;8.0;MailMan;**6,19,25,27**;Jun 28, 2002
+XMRUCX ;(WASH ISC)/THM/CAP-SMTP Receiver (RFC 821) for UCX ;6:10 AM  31 Jan 2008
+ ;;8.0;MailMan;**6,19,25,27,test**;Jun 28, 2002;Build 4
  ;
  ;Entry for Inet_servers interface RECEIVER
  ;SMTP service request invokes MailMan
+ ;Modified from FOIA VISTA,
+ ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 SOC25 ;
  ;S (XMRPORT,IO,IO(0))=%,X=$E(%_"-INETMM",1,15) D SETENV^%ZOSV
@@ -30 +47 @@
  N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
  S XMRPORT=IO
- D SETNM^%ZOSV($E(IO_"INETMM",1,15)),COUNT^XUSCNT(1) ;Process counting under GT.M
  N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
  S ER=0,XMS0C=1
@@ -41 +57 @@
  D LISTEN^%ZISTCPS(25,"GTM2^XMRUCX")
  Q
+ ;
+GTMLNX ;From Linux xinetd script
+ S U="^",$ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
+ ;GTM specific code
+ S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")
+ S (XMRPORT,IO,IO(0))=$P X "U XMRPORT:(nowrap:delimiter=$C(13))"
+ S %="",@("%=$ZTRNLNM(""REMOTE_HOST"")") S:$L(%) IO("GTM-IP")=%
+ D SETNM^%ZOSV($E(XMRPORT_"INETMM",1,15)),COUNT^XUSCNT(1) ;Process counting under GT.M
+ S XMCHAN="TCP/GTM",XMNO220=""
+ N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
+ D ENT^XMR
+ D COUNT^XUSCNT(-1) ;Check out GT.M counting
+ Q
 CACHEVMS ;Cache/VMS tcpip service entry point
  N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"