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-confirm.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  59 lines
  1. #!/usr/local/bin/perl
  2. # This script written by Ben (benjamin@media.mit.edu) to process email to 
  3. # a team member of the Brain Op pages
  4.  
  5. do 'cgi-hacks.pl';
  6.  
  7. require 'flush.pl';
  8.  
  9. &find_form_args("name|email|recipient_name|recipient_email|subject|message");
  10.  
  11. sub html_header { 
  12.     print "Content-type: text/html\n\n";
  13.     &flush(STDOUT);
  14.     }
  15.  
  16. # Define all the hidden arguments
  17. $hidden_arguments= "<input type=hidden name=name value=\"$name\">\n
  18. <input type=hidden name=email value=\"$email\">
  19. <input type=hidden name=recipient_name value=\"$recipient_name\">
  20. <input type=hidden name=recipient_email value=\"$recipient_email\">
  21. <input type=hidden name=subject value=\"$subject\">
  22. <input type=hidden name=message value=\"$message\">";
  23.  
  24.  
  25. # Get an HTML'ized version of the email
  26. $html_message=$message;
  27. $html_message=~ s/\n(\s*)\n/<p>/g;
  28.  
  29. &html_header;
  30. print "<HEAD>\n";
  31. print "<TITLE>Brain Op Letter Confirmation</TITLE></HEAD>\n";
  32. print "<body bgcolor=#000000 text=#eeeeee link=#bbbbbb vlink=#bbbbbb>\n";
  33. print "<center><h1>Brain Opera Letter Confirmation</h1>\n";
  34. print "<hr width=40% size=4>";
  35. print "<p><font size=+2>Please Check the information below,<br> <strong>especially</strong> the email address you submitted !</font>.<p>";
  36. print "<hr width=40% size=4>";
  37. print "<table border=6 cellspacing=3 cellpadding=5>";
  38. print "<tr><td align=center>Your Name</td><th>$name</th></tr>";
  39. print "<tr><td align=center>Your Email</td><th>$email</th></tr>";
  40. print "<tr><td align=center>Subject</td><td>$subject</td></tr>";
  41. print "<tr><td align=center>Recipient</td><th>$recipient_name</th></tr>";
  42. print "</table><p>";
  43. print "<font size=+2>Message</font>\n";
  44. print "<table noborder cellspacing=5 cellpadding=5><tr><td>$html_message</td></tr></table><p>";
  45. print "<hr width=30% size=3>";
  46. print "<table cellspacing=20><tr>\n";
  47. print "<td><form method=post action=/cgi-bin/letter-send.cgi>";
  48. print "$hidden_arguments";
  49. print "<input type=submit value=\"CONFIRM Letter\"></form></td>\n";
  50. print "<td><form method=post action=/cgi-bin/letter-edit.cgi>";
  51. print "$hidden_arguments";
  52. print "<input type=submit value=\"EDIT Letter\"></form></td></tr></table>\n";
  53. print "<hr>";
  54. print "<address>webmaster@brainop.media.mit.edu</address>";
  55.  
  56.  
  57.  
  58.  
  59.