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-edit-text.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  59 lines
  1. #!/usr/local/bin/perl
  2. # This script written by Ben (benjamin@media.mit.edu) to edit an email
  3. # message resent to it by letter-confirm.cgi
  4. # Brain Op project, Media Lab
  5.  
  6. do 'cgi-hacks.pl';
  7.  
  8. require 'flush.pl';
  9.  
  10. &find_form_args("name|email|recipient_name|recipient_email|subject|message");
  11.  
  12. sub html_header { 
  13.     print "Content-type: text/html\n\n";
  14.     &flush(STDOUT);
  15.     }
  16.  
  17. $hidden_arguments="<input type=hidden name=recipient_name value=\"$recipient_name\">
  18. <input type=hidden name=recipient_email value=\"$recipient_email\">";
  19.  
  20. $subject_menu="<select name=subject>
  21. <option>General Comment
  22. <option>Lincoln Center Games
  23. <option>Internet Activities
  24. <option>Questions
  25. <option>Ideas
  26. <option>Other...
  27. </select>";
  28.  
  29. $subject_menu=~ s/<option>$subject/<option selected>$subject/;
  30.  
  31. &html_header;
  32. print "<HTML>
  33. <HEAD><TITLE> Send a Letter to the Brain Op Team</TITLE></HEAD>
  34. <BODY>
  35. <center><h1>Brain Opera Letters</h1>
  36. <hr>
  37. <p>
  38. Please feel free to send us any question, comment or suggestion you may have !<br>
  39. If you are interested in finding out more about any aspect of the Brain Opera, about how <strong>YOU</strong> can make a personal contribution to the development of the project, this is your chance ! We will do our best to answer your email personally within 2 days. <p></center>
  40.  
  41. <center>
  42. <form method=post action=\"letter-confirm-text.cgi\">
  43. $hidden_arguments
  44. <th>Your Name</th><input type=text size=40 name=name value=\"$name\"><p>
  45. <th>Your Email</th><input type=text size=40 name=email value=\"$email\"><p>
  46. This letter is being sent to the<br>Webmaster (webmaster@brainop.media.mit.edu).<p>
  47. <h2>
  48. Subject of your letter :<br>$subject_menu<p>
  49. Your message :<br>
  50. <textarea name=message rows=12 cols=30>
  51. $message
  52. </textarea>
  53. <p>
  54. <input type=submit value=\"Send Letter\">
  55. </form></center>
  56. <hr>
  57. <address>webmaster@brainop.media.mit.edu</address>
  58. ";
  59.