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 >
Text File  |  2017-09-21  |  1KB  |  49 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. do 'user_info.pl';
  10.  
  11. require 'flush.pl';
  12.  
  13. &find_form_args("name|email|recipient_name|recipient_email|subject|message");
  14.  
  15.  
  16.  
  17.  
  18. $user_info = &get_user_info();
  19. $message_content= "$message\n$user_info\n";
  20.  
  21.  
  22. &mailer("$name","$email","$recipient_name","$recipient_email","$subject","$message_content");
  23.  
  24.  
  25. sub html_header { 
  26.     print "Content-type: text/html\n\n";
  27.     &flush(STDOUT);
  28.     }
  29.  
  30. &html_header;
  31. print "<HTML><HEAD><TITLE>Message sent to $recipient_name</TITLE></HEAD>
  32. <BODY bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>
  33. <center><h1>Thank you for your Message !</h1>
  34. <hr size=4 width=40%>
  35. <p>
  36. <font size=+2>
  37. We will do our best to answer your message soon.<br>
  38. In the meantime, you can<br>
  39. <a href=\"/home.html\">browse the rest of our site</a><p>
  40. </font>
  41. <font size=+1>
  42. Have you thought about joining our <a href=\"/online/register/mailing.html\">Mailing List</a> ?<br>
  43. </font>
  44. <p>
  45. <p>
  46. <hr size=3>
  47. <address>webmaster@brainop.media.mit.edu</address>
  48. </BODY></HTML>";
  49.