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-confirm-text.cgi < prev    next >
Text File  |  2017-09-21  |  1KB  |  48 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Script written by Ben (benjamin@media.mit.edu) to confirm the adding of
  4. # someone to the mailing list
  5. # The 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. # Send the HTML for confirmation
  24.  
  25. &html_header;
  26. print "<HEAD>\n";
  27. print "<TITLE>Brain Opera Mailing List Confirmation</TITLE></HEAD>\n";
  28. print "<body>
  29. <center><h1>Brain Opera Mailing List Confirmation</h1>
  30. <hr>
  31. <p><h3>Please Check the information below,<br> <strong>especially</strong> the email address you submitted !<h3><p>
  32. <hr>
  33. <center>
  34. Your Name <th>$name</th><p>
  35. Your Email <th>$email</th><p>
  36. Your Interests in the Brain Opera $interests<p>
  37. <p>
  38. <form method=post action=mailing-send-text.cgi>
  39. $hidden_arguments
  40. <input type=submit value=\"CONFIRM Mailing List subscription\">
  41. </form>
  42. <form method=post action=mailing-edit-text.cgi>
  43. $hidden_arguments
  44. <input type=submit value=\"EDIT Mailing List subscription\">
  45. </form><p>
  46. <hr>
  47. <address>webmaster@brainop.media.mit.edu</address>";
  48.