|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
854 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
