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-edit.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  71 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. # this scrip has been amended by Zoe Teegarden (zct@mit.edu) for 
  6. # the text based site
  7.  
  8. do 'cgi-hacks.pl';
  9.  
  10. require 'flush.pl';
  11.  
  12. &find_form_args("name|email|recipient_name|recipient_email|subject|message");
  13.  
  14. sub html_header { 
  15.     print "Content-type: text/html\n\n";
  16.     &flush(STDOUT);
  17.     }
  18.  
  19. $hidden_arguments="<input type=hidden name=recipient_name value=\"$recipient_name\">
  20. <input type=hidden name=recipient_email value=\"$recipient_email\">";
  21.  
  22. $subject_menu="<select name=subject>
  23. <option>General Comment
  24. <option>Lincoln Center Games
  25. <option>Internet Activities
  26. <option>Questions
  27. <option>Ideas
  28. <option>Other...
  29. </select>";
  30.  
  31. $subject_menu=~ s/<option>$subject/<option selected>$subject/;
  32.  
  33. &html_header;
  34. print "<HTML>
  35. <HEAD><TITLE> Send a Letter to the Brain Op Team</TITLE></HEAD>
  36. <BODY>
  37. <center><h1>Brain Opera Letters</h1>
  38. <hr width=40% size=4>
  39. <p>
  40. Please hi feel free to send us any question, comment or suggestion you may have !<br>
  41. 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>
  42.  
  43. <center>
  44. <form method=post action=\"/cgi-bin/text/letter-confirm.cgi\">
  45. $hidden_arguments
  46. <table border=6 cellspacing=3>
  47. <tr>
  48. <th>Your Name</th><td><input type=text size=40 name=name value=\"$name\"></td></tr>
  49. <p>
  50. <tr>
  51. <th>Your Email</th><td><input type=text size=40 name=email value=\"$email\"></td></tr><p>
  52. <th colspan=2>This letter is being sent to the<br>Webmaster (webmaster@brainop.media.mit.edu)</th></tr></table>.<p>
  53. <font size=+1>
  54. Subject of your letter :<br>$subject_menu<p>
  55. Your message :<br>
  56. <textarea name=message rows=12 cols=30>
  57. $message
  58. </textarea>
  59. <p>
  60. <input type=submit value=\"Send Letter\">
  61. </form></center>
  62. <hr>
  63. <address>webmaster@brainop.media.mit.edu</address>
  64. ";
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.