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.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  62 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 bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>
  35. <center><h1>Brain Opera Letters</h1>
  36. <hr width=40% size=4>
  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=\"/cgi-bin/letter-confirm.cgi\">
  43. $hidden_arguments
  44. <table border=6 cellspacing=3>
  45. <tr>
  46. <th>Your Name</th><td><input type=text size=40 name=name value=\"$name\"></td></tr>
  47. <tr>
  48. <th>Your Email</th><td><input type=text size=40 name=email value=\"$email\"></td></tr>
  49. <th colspan=2>This letter is being sent to the<br>Webmaster (webmaster@brainop.media.mit.edu)</th></tr></table>.<p>
  50. <font size=+1>
  51. Subject of your letter :<br>$subject_menu<p>
  52. Your message :<br>
  53. <textarea name=message rows=12 cols=30>
  54. $message
  55. </textarea>
  56. <p>
  57. <input type=submit value=\"Send Letter\">
  58. </form></center>
  59. <hr>
  60. <address>webmaster@brainop.media.mit.edu</address>
  61. ";
  62.