Hello Rebolers !
REBOL and AS$00
Here's my first rebolation with this new stuff.
Picture the scenario:-(
An AS400 and lots of "green" screen terminal.
Office Vision running as messaging groupware.
(i.e Mail, Calendar, Text, Notes, Application menus and mail to other AS400
users etc.)
How to integrate internet emails without buying an expensive Software?
(to update the AS400 System distribution directories - kind of complicated -
so I won't explain)
The REBOLATION - Outgoing mails:-)
Setup a mail linux box (smtp/pop) with isdn connection (fetchmail)
Setup DNS and Firewall ... (security is an issue)
Setup POP on AS400 and make this the default Office Vision mailbox
(Easy to do - any AS400 admin can set it up quickly)
Make an account called EMAIL on AS400 and Mail Server
Connect a default template document to be filled in when Office Vision User
send a note.
This has a field called REFERENCE:
The user fills this field with the real email address.
The user send this email to EMAIL on the AS400
Tell AS400 to send all mail for EMAIL to Email@Mail Server
REBOL reads the mailbox and resends the mail to the correct address
(Thanks to -pekr- for the script and sterling for the explanation.)
The REBOLATION - Incoming mails:
Fetchmail collects a multidrop mailaccount
A well maintained Alias table sends incoming mails for *@mydomain to AS400
The Office Vision user gets emails (with attachements:-) using POP
Most of the stuff is ordinary IP netdoctoring but REBOL solved the Email
Parsing
nice and quickly with the help of this list. - so here's to you ::-)
The wait loop in the script worked on a local console but I coudn't get it
going in a start script, as a process or over a remote login. (it kept
dying)
so I stripped "forever" added a "q" for quit and crond it every 2
minutes.
This is not the most elegant solution but it works, can be implemented on a
wet monday morning and continues without human intervention even on a
reboot.
Maybe all this can be done on the AS400 another way, I don't know.
Whens the AS400 Release coming ? - advancing smoothly ?
Well now for the REBwebSite and REBDatabank stuff...:-)
I'd better get to work.
regards and thanks again,
Gawain
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 07, 2000 1:26 AM
Subject: [REBOL] Newbie Help with Email Processing Re:
> email: open pop://email:[EMAIL PROTECTED]
>
> while [not tail? email][
> msg: import-email first email
# resend first msg/reference msg/from msg/content
# remove email
> ]
# close email
# q
>
Email example from AS400
> >
> > >From [EMAIL PROTECTED] Wed May 31 16:25:54 2000
> > Return-Path: <[EMAIL PROTECTED]>
> > Delivered-To: [EMAIL PROTECTED]
> > Received: from mailer1.mydomain.com
> > by mailf.mydomain.com (Postfix) with SMTP id BC2B11FA0A
> > for <[EMAIL PROTECTED]>; Wed, 31 May 2000 16:25:54 +0200 (CEST)
> > Received: from mailer1.mydomain.com with TCP; Wed, 31 May 2000 16:19:43
> > +0000
> > Date: Wed, 31 May 2000 16:19:43 +0000
+ AS400 Office Vision Note within Email
> > From: [EMAIL PROTECTED]
> > To: [EMAIL PROTECTED]
> > Subject: Testmail 1
> > Reference: [EMAIL PROTECTED]
> > Message-Id: <[EMAIL PROTECTED]>
> >
> > Body Text for email 1.
> >
