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 / bug-report.cgi < prev    next >
Text File  |  2017-09-21  |  688b  |  26 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # script written by Ben Adida (benjamin@media.mit.edu) on April 15th, 1996.
  4. # This script sends a bug report to the webmaster.
  5.  
  6. $thank_you_page="http://brainop.media.mit.edu/feedback/thank-you-bug.html";
  7.  
  8. do '/web-cgi-bin/cgi-hacks.pl';
  9. do '/web-cgi-bin/mail-utilities';
  10. do '/web-cgi-bin/user_info.pl';
  11. do '/web-cgi-bin/redirect.pl';
  12.  
  13. require 'flush.pl';
  14.  
  15. &find_form_args("name|email|bug");
  16.  
  17. $subject="BUG REPORT";
  18. $recipient_name="Brain Opera Webmaster";
  19. $recipient_email="webmaster@brainop.media.mit.edu";
  20. $user_info=&get_user_info();
  21.  
  22.  
  23. &mailer("$name","$email","$recipient_name","$recipient_email","$subject","$bug","$user_info");
  24.  
  25. &redirect("$thank_you_page");
  26.