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 / mailing-confirm.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  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 '/web-cgi-bin/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 bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>
  29. <center><h1>Brain Opera Mailing List Confirmation</h1>
  30. <hr width=40% size=4>
  31. <p><font size=+2>Please Check the information below,<br> <strong>especially</strong> the email address you submitted !</font><p>
  32. <hr width=40% size=4>
  33. <table border=3 cellspacing=5 cellpadding=5>
  34. <tr><td align=center>Your Name: </td><th>$name</th></tr>
  35. <tr><td align=center><p>Your Email: </td><th>$email</th></tr>
  36. <tr><td align=center><p>Your Interests in the Brain Op: </td><td>$interests</td></tr>
  37. </table><p>
  38. <form method=post action=/cgi-bin/text/mailing-send.cgi>
  39. $hidden_arguments
  40. <input type=submit value=\"CONFIRM Mailing List subscription\">
  41. </form>
  42. <form method=post action=/cgi-bin/text/mailing-edit.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.