Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • FOIAVistA/tag/r/MAILMAN-XM/XMRUCX.m

    r628 r636  
    1 XMRUCX ;(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
     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
    33 ;
    44 ;Entry for Inet_servers interface RECEIVER
    55 ;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.
    623SOC25 ;
    724 ;S (XMRPORT,IO,IO(0))=%,X=$E(%_"-INETMM",1,15) D SETENV^%ZOSV
     
    3047 N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
    3148 S XMRPORT=IO
    32  D SETNM^%ZOSV($E(IO_"INETMM",1,15)),COUNT^XUSCNT(1) ;Process counting under GT.M
    3349 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
    3450 S ER=0,XMS0C=1
     
    4157 D LISTEN^%ZISTCPS(25,"GTM2^XMRUCX")
    4258 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
    4372CACHEVMS ;Cache/VMS tcpip service entry point
    4473 N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
Note: See TracChangeset for help on using the changeset viewer.