|
Last change
on this file since 836 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
334 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | XMRINETD ;(WASH ISC)/LH-Process MSM-NT TCP Request ;04/17/2002 11:21
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | GO O 56 U 56::"TCP" W /SOCKET("",25)
|
|---|
| 4 | S X=^%ZOSF("VOL")
|
|---|
| 5 | CHK S CHECK=0 I $G(^%ZIS(14.5,"LOGON",X))=1 S CHECK=1 H 60
|
|---|
| 6 | J GO^XMRINETD
|
|---|
| 7 | I $G(CHECK) W "421 SMTP Service temporarily down.",$C(13,10),! C 56 Q
|
|---|
| 8 | S %="MSM TCP "_$J G SOC25^XMRMSM
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
