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 / text / letter-send.cgi < prev    next >
Text File  |  2017-09-21  |  1KB  |  45 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Script written by Ben (benjamin@media.mit.edu) to confirm and send
  4. # email from a web page
  5. # The Brain Opera, MIT Media Lab
  6.  
  7. do 'cgi-hacks.pl';
  8. do 'mail-utilities';
  9.  
  10. require 'flush.pl';
  11.  
  12. &find_form_args("name|email|recipient_name|recipient_email|subject|message");
  13.  
  14.  
  15. sub html_header { 
  16.     print "Content-type: text/html\n\n";
  17.     &flush(STDOUT);
  18.     }
  19.  
  20. $user_info = "Remote Host: $REMOTE_HOST
  21. Remote IP Address: $REMOTE_ADDR
  22. User Agent: $HTTP_USER_AGENT";
  23.  
  24. &mailer("$name","$email","$recipient_name","$recipient_email","$subject","$message","$user_info");
  25.  
  26. &html_header;
  27. print "<HTML><HEAD><TITLE>Message sent to $recipient_name</TITLE></HEAD>
  28. <BODY bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>
  29. <center><h1>Thank you for you Message !</h1>
  30. <hr size=4 width=40%>
  31. <p>
  32. <font size=+2>
  33. We will do our best to answer your message soon.<br>
  34. In the meantime, you can<br>
  35. <a href=\"/home.html\">browse the rest of our site</a><p>
  36. </font>
  37. <font size=+1>
  38. Have you thought about joining our <a href=\"/online/register/mailing.html\">Mailing List</a> ?<br>
  39. </font>
  40. <p>
  41. <p>
  42. <hr size=3>
  43. <address>webmaster@brainop.media.mit.edu</address>
  44. </BODY></HTML>";
  45.