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 / mailing-edit.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  46 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Script written by Ben (benjamin@media.mit.edu)
  4. # This script edits personal information for mailing list subscription.
  5. # Brain Opera, MIT Media Lab
  6.  
  7. do 'cgi-hacks.pl';
  8.  
  9. require 'flush.pl';
  10.  
  11. &find_form_args("name|email|interests");
  12.  
  13. sub html_header { 
  14.     print "Content-type: text/html\n\n";
  15.     &flush(STDOUT);
  16.     }
  17.  
  18. # Define all the hidden arguments
  19. $hidden_arguments= "<input type=hidden name=name value=\"$name\">
  20. <input type=hidden name=email value=\"$email\">
  21. <input type=hidden name=interests value=\"$interests\">";
  22.  
  23. &html_header;
  24. print "<HEAD>
  25. <HEAD><TITLE>Join the Brain Opera Mailing List</TITLE></HEAD>
  26. <BODY bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>
  27. <center><h1>The Brain Opera Mailing List</h1>
  28. <hr size=4 width=40%>
  29. <font size=+1>
  30. The Brain Opera is an interactive experience where you are the performer. Stay in touch with the Brain Opera by joining our mailing list. You will get a newsletter every two weeks informing you of the new Brain Opera developments, and of ways in which you can become an active participant in the project from your own computer !
  31. </font><p></center>
  32. <hr size=4 width=40%>
  33. <font size=+2>
  34. <form method=post action=\"/cgi-bin/mailing-confirm.cgi\">
  35. Name : <input type=text name=name value=\"$name\" size=50><p>
  36. Email : <input type=text name=email value=\"$email\" size=50><p>
  37. </font><font size=+1>
  38. Specific Interests in the Brain Opera (optional):<br>
  39. <textarea name=interests cols=60 rows=5>
  40. $interests
  41. </textarea>
  42. </font>
  43. <input type=submit value=\"Join the Mailing List\">
  44. <hr size=3>
  45. <address>webmaster@brainop.media.mit.edu</address>
  46. </BODY></HTML>";