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 / sign-in.cgi < prev    next >
Text File  |  2017-09-21  |  827b  |  36 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Script written by Ben (benjamin@media.mit.edu) to sign in people 
  4. # visiting the Brain Opera Web Site
  5. # Brain Opera, MIT Media Lab
  6.  
  7. $cgibin_dir="/web-cgi-bin";
  8.  
  9. do "$cgibin_dir/cgi-hacks.pl";
  10. do "$cgibin_dir/mail-utilities";
  11. do "$cgibin_dir/redirect.pl";
  12.  
  13. require 'flush.pl';
  14.  
  15. &find_form_args("name|email");
  16.  
  17. $message="NEW SIGN IN AT THE BRAIN OP :
  18.  
  19. Name : $name
  20. Email : $email";
  21.  
  22. $user_info="";
  23.  
  24. # &mailer("BRAINOP MAILER","benjamin@media.mit.edu","the Webmaster","benjamin@media.mit.edu","NEW SIGN IN","$message","$user_info");
  25.  
  26. # The Development Server does NOT log visitors.
  27.  
  28. # Add name to list of visitors
  29. open(list,">> /users/benjamin/lists/visitors");
  30. print list "$email\t\t$name\n";
  31. close(list);
  32.  
  33. # Redirect the person to the homepage
  34. &redirect("http://brainop.media.mit.edu:8000/home.html");
  35.  
  36.