source: FOIAVistA/tag/r/MAILMAN-XM/XMRONT.m@ 1424

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

initial load of FOIAVistA 6/30/08 version

File size: 854 bytes
Line 
1XMRONT ;(SF-ISC)/RWF - OpenM-NT TCP/IP INETD and Front End ;04/30/2002 07:24
2 ;;8.0;MailMan;**27**;Jun 28, 2002
3 ; Entry points used by MailMan options (not covered by DBIA):
4 ; GO XMRONT
5 ;This routine starts a listener for TCP mail Connects.
6 ; It takes the place of the INETD Unix process
7 ;
8GO ;Open port 25 in Accept mode.
9 S XMRSOCK=25
10 D LISTEN^%ZISTCPS(XMRSOCK,"SOC25^XMRONT")
11 ;HALT
12 G HALT
13 ;
14SOC25 ;This entry point is started as a new process by %ZISTCPS.
15 S (XMRPORT,IO,IO(0))=$IO,IOT="TCP"
16 I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D TRP^XMCTRAP"
17 E S X="TRP^XMCTRAP",@^%ZOSF("TRAP")
18 N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
19 S ER=0,XMCHAN="TCP/IP-MAILMAN",XMNO220=""
20 U IO
21 D ENT^XMR
22HALT ;Unlock all locks, close the connection and quit
23 ;L ;C IO The close caused a problem under OpenM 52e, so it was removed
24 G ^XUSCLEAN
25 Q
Note: See TracBrowser for help on using the repository browser.