Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!cbatt!ucbvax!YALEVAX5.BITNET!SUN
From: SUN@YALEVAX5.BITNET.UUCP
Newsgroups: comp.os.vms
Subject: Re: INFO-VAX, VAX-KIDS, NET-KIDS ?
Message-ID: <8704281148.AA17461@ucbvax.Berkeley.EDU>
Date: Tue, 28-Apr-87 07:48:57 EDT
Article-I.D.: ucbvax.8704281148.AA17461
Posted: Tue Apr 28 07:48:57 1987
Date-Received: Wed, 29-Apr-87 05:57:03 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 105

==========================================================================
To info-vax@sri-kl.arpa through gateway
--------------------------------------------------------------------------
Hello,
        I think some people don't like the info-vax on ARPA because they
cannot contribute; the bitnet sub-distributor don't accept contributions. I
have been asked for forwarding messages to info-vax by several users who
have no access to ARPAnet; for example, some VAXs that run JNET.

        There is a way to send mails to practically any network provided it
has a gateway on a BITNET site. I use the following procedure to send mails
to info-vax. For more informations on sending mails to foreign network, you
can get file ARPACSNE.GATEWAY by
        TELL NICSERVE AT BITNIC SENDME ARPACSNE GATEWAY         (VMX)
or      SEND/REMOTE BITNIC NICSERVE
                SENDME ARPACSNE GATEWAY                         (VMS)

$! INFO-VAX.COM
$! Send a mail to INFO-VAX on ARPA
$! RELEASE: 2.1
$!*********************************************************************
$!
$! parameters
$ SENDER_NODE = "YALEVAX5.BITNET"       !chage these definition to your sites
$ SENDER_NAME = "SUN@YALEVAX5.BITNET"
$ GATE ="smtpuser@wiscvm"
$ NAME ="INFO-VAX@SRI-KL.ARPA
$! The command to invoke your editor
$ EDITOR = "@mailedit.com "
$!
$ ON CONTROL_Y THEN GOTO PANIC
$ ON CONTROL_C THEN GOTO PANIC
$! The subject
$ read sys$command SUBJECT /prompt="Subject: "
$! The file name
$ read sys$command FILENAME /prompt="File name: "
$ if FILENAME .nes. "" then FILENAME = f$parse("''FILENAME'")
$ DEFDIR = f$directory()
$ SET DEFAULT SYS$LOGIN
$!
$! generate message number
$ MSGNO = f$time()
$ MSGNO = f$element(1," ",MSGNO)
$ MSGNO = MSGNO-":"
$ MSGNO = MSGNO-":"
$ MSGNO = f$extract(0,6,MSGNO)
$ MSGMSG = MSGNO + ".MSG"
$ MSGJOB = MSGNO + ".JOB"
$ MSGHEAD = MSGNO + ".MED"
$!
$! prepare the message body
$ if FILENAME .nes. "" then  copy 'FILENAME' 'MSGMSG'
$ EDITOR 'MSGMSG' 'MSGMSG'
$!
$ clear
$ open/append   out     'MSGMSG'
$! put here you disclaimer and address
$ write out     "---------------------------------------------------------------
-----------"
$ write out     " From ''SENDER_NAME'  @''f$time()' EST"
$ write out     "===============================================================
==========="
$ write out     "."
$ write out     "QUIT"
$ close out
$!
$ open/write out 'MSGHEAD'
$ write out     "HELO ''SENDER_NODE'"
$! next line is out if you don't want a transaction record from gateway
$! write        out     "VERB ON"
$ write out     "TICK 2157"
$ write out     "MAIL FROM: <''SENDER_NAME'>
$ write out     "RCPT TO:    <''NAME'>
$ write out     "DATA"
$ write out     "Date: ''f$time()' EST"
$ write out     "From:    ''SENDER_NAME'"
$ write out     "Subject: ''SUBJECT'"
$ write out     "To:    ''NAME'"
$ write out     ""
$ write out     "===============================================================
==========="
$ write out     "To ''NAME' through gateway ''GATE'"
$ write out     "---------------------------------------------------------------
-----------"
$ close out
$!
$ open/write job 'MSGJOB'
$ write job     "$ convert/append ''MSGMSG' ''MSGHEAD'"
$ write job     "$ Convert /Fdl=Dclconv ''MSGHEAD' ''MSGHEAD'"
$ write job     "$ send/file/punch ''MSGHEAD' ''GATE'"
$ write job     "$ delete/noconfirm ''MSGNO'*.*;*"
$ write job     "$ exit"
$ close job
$
$ submit/nolog/nopring 'MSGJOB'
$ goto END
$panic:
$       write sys$output "Quit without sending message."
$       if f$logical("out") .nes. "" then close out
$END:
$ set default 'DEFDIR'
$ exit
--------------------------------------------------------------------------
 From Kang Sun SUN@YALEVAX5.BITNET  @27-APR-1987 10:57:48.77 EST
==========================================================================