home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Pavilions / BrainOpera / index.bjb < prev    next >
Text File  |  2017-09-21  |  1KB  |  45 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # This script written by Ben Adida (benjamin@media.mit.edu)
  4. # Finds out which browser, if not compatible, redirects to a no-netscape page.
  5.  
  6.  
  7. #$LOGFILE="/users/benjamin/LOGS/visitors";
  8. #$TEXTSITE_LOGFILE="/users/benjamin/LOGS/text-visitors";
  9. #$BAD_LOGFILE="/users/benjamin/LOGS/bad-visitors";
  10. #$CGI_DIR="/cgi-bin";
  11.  
  12. $brain_root = "$ENV{'DOCUMENT_ROOT'}/Events/BrainOpera";
  13.  
  14. $LOGFILE="$brain_root/LOGS/visitors";
  15. $TEXTSITE_LOGFILE="$brain_root/LOGS/text-visitors";
  16. $BAD_LOGFILE="$brain_root/LOGS/bad-visitors";
  17. $CGI_DIR="$brain_root/cgi-bin";
  18.  
  19. do "$CGI_DIR/referer.pl";
  20. do "$CGI_DIR/user-agent.pl";
  21. do "$CGI_DIR/redirect.pl";
  22.  
  23. $USER_AGENT=&get_user_agent();
  24. &get_referer();
  25. &get_remote_host();
  26.  
  27. chop($date= `date +%x%t%X`);
  28.  
  29.  
  30. if ((grep(/Mozilla\/2.0/,"$USER_AGENT"))||(grep(/Mozilla\/3/,"$USER_AGENT"))
  31.      ||(grep(/Mozilla\/1/,"$USER_AGENT"))                       ) {
  32.     &redirect("first-page.html");
  33.     open(logfile,">> $LOGFILE");
  34.     print logfile "$date\t\t$REMOTE_HOST\n $REFERER\t $USER_AGENT\n\n";
  35.     close(logfile);
  36. } else {
  37.     &redirect("text-site/intro/textintro.html");
  38.     open(bad_logfile,">> $TEXTSITE_LOGFILE");
  39.     print bad_logfile "$date\t\t$REMOTE_HOST\n $REFERER\t $USER_AGENT\n\n";
  40.     close(bad_logfile);
  41. }
  42.  
  43.  
  44.  
  45.