Description:
<HTML><HEAD> <TITLE>Sending email from the MOO.</TITLE><%=$html_utils:nav_links(this:www_nav_links())%></HEAD><%=this.header%><H3>Sending email from the MOO.</H3><%if (player.user == $no_one) "The web user isn't logged in.";%>Sorry, the demonstration of how to send mail only works if you are logged into one of our MOO accounts. The MOO can send email to anyone, but it isn't our policy to allow an unrestricted email gateway.<%elseif (iobjstr) "We have data; lets send some mail."; if (player.referer && $www:previous_object() != this) "We have a rogue form refering a mail request to us."; "Only a hacker would try this."; $msg:mtell("www_error", "Warning! Previous page doesn't appear to be this one!"); player:tell("For security reasons the eval will not be executed. Refering page: [", player.referer, "]"); else to = player.user.email_address; subject = $www:parse_POST("subject"); text = $www:parse_POST("text"); text = {tostr("This email was sent from ", $www.url, toint(this)), "", @text}; error = $network:sendmail(to, subject, @text); if (error) $msg:mtell("www_error", "Error! Email was not sent."); player:tell(error); else player:tell("<H3>Mail successfully sent to ", to, ".</H3>"); endif endifelse "Show the email form.";%><form action="/<%=toint(this)%>" method="POST"> <center> <table> <tr><td><b>To: </b></td><td><TT><%=player.user.email_address%></TT></td></tr> <tr><td><b>Subject: </b></td><td><input type="Text" name="subject" size="30" value="MOO Canada's MSP demo"></td></tr> <tr><td><b>Message: </b></td><td><textarea cols="30" rows="5" name="text" wrap="virtual">Moo Server Pages are a great way to create dynamic web applications quickly and easilly.</textarea></td></tr> <tr><td colspan=2 align=center><input type="Submit" value="Send Mail"></td></tr> </table> </center> </form><%endif%><P><%=this:viewsourcelink()%><%=this.footer%><% this:tell_www_tail(@args); %></BODY></HTML><!-- Last modified by Dax (#789) on Thu Aug 8 15:02:07 2002 MDT. --> |