Newsgroups: vmsnet.mail.mx
Path: rpi!rpigate!x
From: bed_gdg%SHSU.BITNET@vms.ecs.rpi.edu (George D. Greenwade)
Subject: RE: All-in-1 addresses for MX?
Message-ID: <0094739E.BAA9E320.20746@SHSU.BITNET>
Date: 17 Apr 91 00:17:56 GMT
Lines: 110

Some time back, I asked about addressing mail in All-in-1 so it was
compatible with MX.  A few people said that they were interested, as well,
and requested that I report what I found.  A very kind soul, Jim Gaynor,
<gaynor%agvax2.ag.ohio-state.edu@RPIECSVX.BITNET> contacted me today and
provided a fix in the OALIB:SPECIAL.COM file which drives a part of A1's
mail interface so it supports MX (address to _user@host.net in A1).

Many, many thanks to Jim for the code (I was beginning to think this was a
lost cause).  Since I have lost the messages from those asking for a report
on this and it may be of wider interest, I include the SPECIAL.COM file
below (in hopes that, although it isn't a direct MX application, it might
make it to .CONTRIB for others who might need it).

Regards (on my last post of the day to the list -- promise!),   George
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
George D. Greenwade, Ph.D.                            Bitnet:  BED_GDG@SHSU
Department of Economics and Business Analysis         THEnet: SHSU::BED_GDG
P. O. Box 2118                                        Voice: (409) 294-1266
Sam Houston State University                          FAX:   (409) 294-3612
Huntsville, TX 77341            Internet: bed_gdg%shsu.decnet@relay.the.net
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

                        Customization Management
                Element Print as of 02:36pm on 16-Apr-1991

Element name:     SPECIAL                                       Type:    COM
Language:         SHARE
Description:      SPECIAL mail destination processing
Created on:       11-Mar-1991 11:08am by MANAGER
Last Modified on: 11-Mar-1991 11:08am by MANAGER
Made live on:     11-Mar-1991
Reference:        Changed for MX% mailing...                    Live:    Y
Application:                                                    Digital: Y

Status:           Free
Last User:        MANAGER

Details:
Changed in order to support MX% mailing (SMTP).

File contents:


$ !     OALIB:SPECIAL.COM       V2.1A   Last edited: 4-Nov-1985
$ !     Electronic Mail Subsystem
$ !     Deliver mail to the "SPECIAL" destination
$ !
$       ASSIGN/USER NLA0: SYS$OUTPUT
$       ASSIGN/USER NLA0: SYS$ERROR
$       ON WARNING THEN GOTO NOT_SENT
$       ORIG_DIR :==    'F$LOGICAL("SYS$DISK")''F$DIRECTORY()'
$       MY_NODE :=      'F$LOGICAL("SYS$NODE")
$
$ UNDERLINE_LOOP:
$       IF "''F$EXTRACT(0,1,MY_NODE)'" .NES. "_" THEN GOTO SETUP_PARAM
$       MY_NODE :=      'F$EXTRACT(1,99,MY_NODE)
$       GOTO UNDERLINE_LOOP
$
$ SETUP_PARAM:
$       WRITE OAMAILBOX "OA GET PROFIL.DIRECT[OA$USER]"
$       @DCLMAILBOX:
$       HOME_DIR        :=      "''RESULT'"
$       WRITE OAMAILBOX "OA GET #MAILSUBJ"
$       @DCLMAILBOX:
$       SUBJ    :=      "''RESULT'"
$       WRITE OAMAILBOX "OA GET #MAILFILE"
$       @DCLMAILBOX:
$       FILE    :=      'RESULT
$       WRITE OAMAILBOX "OA GET #MAILNODE"
$       @DCLMAILBOX:
$       NODE    :=      'RESULT
$       IF NODE .EQS. "" THEN GOTO SEND_IT
$       IF 'F$LOCATE("::",NODE) .EQ. 'F$LENGTH(NODE) THEN NODE := 'NODE'::
$       IF "''MY_NODE'" .EQS. "''NODE'" THEN NODE := ""
$       WRITE OAMAILBOX "OA GET OA$STATUS=""1"""
$       @DCLMAILBOX:
$
$ SEND_IT:
$       WRITE OAMAILBOX "OA GET #MAILADDR"
$       @DCLMAILBOX:
$       TO      :=      "''NODE'''RESULT'"
$ LOOP1:
$       IF F$EXTRACT(0,1,TO) .NES. "_" THEN GOTO REALLY_SEND
$       TO      :=      'F$EXTRACT(1,99,TO)
$       GOTO LOOP1
$ REALLY_SEND:
$       ASSIGN/USER NLA0: SYS$OUTPUT
$       ASSIGN/USER NLA0: SYS$ERROR
$       SET DEFAULT 'HOME_DIR
$       TO = "MX%" + """""" + F$EDIT(TO,"LOWERCASE") + """"""
$       OPEN/WRITE OUTFILE SPECIAL_TEMP.COM
$       WRITE OUTFILE "$MAIL"
$       WRITE OUTFILE "SEND/NOEDIT/NOSELF ''FILE'"
$       WRITE OUTFILE "''TO'"
$       WRITE OUTFILE "''SUBJ'"
$       WRITE OUTFILE "EXIT"
$       WRITE OUTFILE "$EXIT"
$       CLOSE OUTFILE
$       @SPECIAL_TEMP
$       DELETE/NOCONFIRM SPECIAL_TEMP.COM.*
$!      MAIL/SUBJ="''SUBJ'" 'FILE' 'TO'
$!      IF $STATUS THEN GOTO DONE
$!
$! NOT_SENT:
$!      Status = '$STATUS
$!      WRITE OAMAILBOX "OA GET OA$STATUS=""''STATUS'"""
$!      @DCLMAILBOX:
$ DONE:
$       SET DEFAULT 'ORIG_DIR
$       EXIT