Earlier this month, I promised that if several people asked, I would write a
program to send e-mail from an HP3000 to an SMTP server.  The program was
completed some weeks ago, and has been tested by several external sites.
Unfortunately our gatekeeper here on the list is off fishing (?) so I'll
have to tell you about it myself.
 
The program, complete with source code, is now on opus at utc.edu. and is
named 'jtmailtr.bin' and 'jtmailtr.wrq'.  The former is a straight binary
copy, while the latter is a WRQ Reflection labelled format.  I don't know
the subdirectory Jeff put them on.  I'll explain the installation procedure
further on.
 
The purpose of the program is to allow you to directly send an unnumbered
text file from the HP3000 to any valid e-mail address.  It does this from
the command line (not an SL/XL).  Most of the parameters are specified
within an INFO= clause, but an included script file lets you invoke it
similar to the way you would on unix or dos.
 
For example
 
:jtmail -h george -p 25 -u jim.devel@fred -s A Test &
 -r [log in to unmask] -f myfile
 
will send the file "myfile" using our SMTP server george, on port 25, with
the return e-mail address of jim.devel@fred, showing a subject line of "A
Test", to a destination of this mailing list.
 
By using environement variables, this can be simplified.
 
:SETVAR MAILHOST "george"
:SETVAR MAILPORT "SMTP"                 <- as defined in SERVICES.NET.SYS
:SETVAR MAILUSER "jim.devel@fred"
 
:jtmail -s A Test -r [log in to unmask] -f myfile
 
The MAILUSER does not have to be a valid HP3000 user...just one that can
receive return mail somewhere in your system.
 
The program is for sending mail only, not receiving *AND* it requires that
you have an SMTP service somewhere in your domain.  Other than that, it is
very useful for having job streams send you mail when they complete (or
crash), or just for sending HP3000 files out to users.
 
It does not automatically UUENCODE or MIME the contents for binary files.
If you want that, then you may need to alter the source code (which is in
'C').  As I've only a Native Mode 'C' compiler, the program *DOES NOT* not
run on MPE/V machines.  Since it also uses BSD Sockets, it will not run on
versions of MPE/iX before 4.0.
 
The program works on MPE 4.0/iX, but makes no intrinsic calls directly.  As
a result, it works when compiled using Microsoft VC++ 1.5 on a Windows PC.
Only one routine was duplicated to account for differences in asynchronous
calls.  I suspect that under MPE 5.0, the PC version would be the correct
model to use (better POSIX compliance).
 
INSTALLATION INSTRUCTIONS
 
In both the binary and WRQ cases the file is a UHAUL format truck file.
That means, when transported to the 3000 there should be a file, JTMAILTR,
of the format "REC=128,1,U,BINARY;DISC=337;CODE=72".  Reflection will do
this automatically if uploaded using the Labelled file transfer option.
Otherwise, you will have to build the file yourself and upload into it (or
whatever it is you have to do :).
 
When resident on the 3000, run UHAUL.PUBXL.TELESUP to extract all the
component files.  There is only a single program file, but look through the
other files too.
 
Hopefully I'll contribute the same program to the Interex CSL soon as I hear
from John Sullivan.
 
If you've any further questions or results I'd be pleased to hear from you.
I hope the program demonstrates how easily the 3000 can fit into the Intenet
world to all our benefit.  Even with MPE/iX 4.0 it is surprising to see how
'open' the HP3000 really is!
 
Regards.
----
Jim "seMPEr" Wowchuk           Internet:    [log in to unmask]
Vanguard Computer Services     Compu$erve:  100036,106
 _--_|\                        Post:        PO Box 18, North Ryde, NSW 2113
/      \                       Phone:       +61 (2) 888-9688
\.--.__/ <---Sydney NSW        Fax:         +61 (2) 888-3056
      v      Australia