Script: cgiemailer.r

#!rebol -cs

REBOL [
    Title: "Sends Email via CGI Form"
    Date:  20-July-1999
    File:  %cgiemailer.r
    Purpose: {
        Uses a Web form to send an email message.
    }
    Category: [cgi email markup net 3] 
]

print "Content-Type: text/html^/"  ;-- Required Page Header

print "<html><body><h2>Results:</h2>"

cgi: make system/standard/email decode-cgi system/options/cgi/query-string

either all [
    email? try [cgi/to: load cgi/to]
    email? try [cgi/from: load cgi/from]
][
    print [<B> "Sending Email to" cgi/to </B>]
    send/header cgi/to cgi/content cgi
][
    print "<B>Invalid email to or from address</B>"
]

print "</body><html>"