e-mail within meta sites

Richard Tietjen (rtietjen@kale.connix.com)
Thu, 20 Nov 1997 23:22:26 -0500 (EST)

There are email libraries with MetaHTML. Depending on your version,
they may be compiled into the engine. There's send-mail
and form-to-email. In 5.05 there's also e-mail::sendmail which is
documented only in the network appendix.

In case you're using 5.05, here's form-to-email:

;;; form-to-email.mhtml: -*- Meta-HTML -*-

;;; Copyright (c) 1996 Brian J. Fox
;;; Author: Brian J. Fox (bfox@ai.mit.edu) Fri Jul 19 08:34:34 1996.
;;; redirect-to, to, action-name, subject

<defmacro form-to-email package=local>
<alist-to-package <package-to-alist posted> "">
<set-var %attributes>
<FORM METHOD="POST" ACTION="<get-var mhtml::current-doc>">
%body
<p>
<INPUT TYPE="SUBMIT" NAME="ACTION"
VALUE="<or <get-var action-name> "Submit Form">">
</FORM>

<when <string-eq <get-var-once posted::action>
<or <get-var action-name> "Submit Form">>>
<with-open-stream s <get-var mhtml::server-name>:25 type=tcp mode=write-create>
<stream-put s "HELO <get-var env::server_name>\r\n">
<stream-put s "MAIL FROM: webmaster@<get-var env::server_name>\r\n">
<stream-put s "RCPT TO: <get-var to>\r\n">
<stream-put s "DATA\r\n">
<stream-put s "From webmaster@<get-var env::server_name>\r\n">
<stream-put s "To: <get-var to>\r\n">
<if <get-var subject>
<stream-put s "Subject: <get-var subject>\r\n">>
<stream-put s "\r\n">
<stream-put s "<get-var body>\r\n">
<stream-put s "\r\n.\r\n">
<stream-put s "QUIT\r\n">
<stream-get-contents s ignore>
</with-open-stream>

<if <get-var redirect-to>
<redirect <get-var redirect-to>>>
</when>
</defmacro>

<defmacro email-format>
<set-var body=<prog %body>>
</defmacro>

which lets you say:

<form-to-email to="some@where" subject="something" redirect-to="../home.mhtml">
Name: <input type=text name=user><BR>
<email-format>
Name: <get-var user> just wrote.
</email-format>
</form-to-email>


SO you can use form-to-email to let the visitor create email, or you
can use sendmail to generate email programatically.

I have no idea how many people are on the list. UA would know.

>>>>> On Thu, 20 Nov 1997 18:15:24 -0500, "Daxon Flynn" <yio@netinc.ca> said:

Daxon> Hello everyone, I am curious, has anyone integrated the use
Daxon> of email into the sites they design with Meta-HTML? I have
Daxon> many uses for such a thing but I thought I would ask the
Daxon> list for the logic behind this handy little feature before
Daxon> I rack my brain. Is this part of the Meta engine that I am
Daxon> unaware of? Thank-you in advance for any help in this
Daxon> matter.

Daxon> Btw, I am also curious, does anyone know how many people
Daxon> are on this list?

Daxon> Enjoy your day,

Daxon> Daxon