home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
Pavilions
/
BrainOpera
/
cgi-bin
/
letter-send.cgi
< prev
next >
Wrap
Text File
|
2017-09-21
|
1KB
|
49 lines
#!/usr/local/bin/perl
# Script written by Ben (benjamin@media.mit.edu) to confirm and send
# email from a web page
# The Brain Opera, MIT Media Lab
do 'cgi-hacks.pl';
do 'mail-utilities';
do 'user_info.pl';
require 'flush.pl';
&find_form_args("name|email|recipient_name|recipient_email|subject|message");
$user_info = &get_user_info();
$message_content= "$message\n$user_info\n";
&mailer("$name","$email","$recipient_name","$recipient_email","$subject","$message_content");
sub html_header {
print "Content-type: text/html\n\n";
&flush(STDOUT);
}
&html_header;
print "<HTML><HEAD><TITLE>Message sent to $recipient_name</TITLE></HEAD>
<BODY bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>
<center><h1>Thank you for your Message !</h1>
<hr size=4 width=40%>
<p>
<font size=+2>
We will do our best to answer your message soon.<br>
In the meantime, you can<br>
<a href=\"/home.html\">browse the rest of our site</a><p>
</font>
<font size=+1>
Have you thought about joining our <a href=\"/online/register/mailing.html\">Mailing List</a> ?<br>
</font>
<p>
<p>
<hr size=3>
<address>webmaster@brainop.media.mit.edu</address>
</BODY></HTML>";