Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
854 bytes
|
Line | |
---|
1 | XMRONT ;(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 | ;
|
---|
8 | GO ;Open port 25 in Accept mode.
|
---|
9 | S XMRSOCK=25
|
---|
10 | D LISTEN^%ZISTCPS(XMRSOCK,"SOC25^XMRONT")
|
---|
11 | ;HALT
|
---|
12 | G HALT
|
---|
13 | ;
|
---|
14 | SOC25 ;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
|
---|
22 | HALT ;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.