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 / browser.cgi < prev    next >
Text File  |  2017-09-21  |  974b  |  36 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. $BAD_LOGFILE="/users/benjamin/LOGS/bad-visitors";
  9. $CGI_DIR="/www-admin/old-httpd2/cgi-bin";
  10.  
  11. do "$CGI_DIR/referer.pl";
  12. do "$CGI_DIR/user-agent.pl";
  13. do "$CGI_DIR/redirect.pl";
  14.  
  15. $USER_AGENT=&get_user_agent();
  16. &get_referer();
  17. &get_remote_host();
  18.  
  19. chop($date= `date +%x%t%X`);
  20.  
  21.  
  22. if ((grep(/Mozilla\/2.0/,"$USER_AGENT"))||(grep(/Mozilla\/3/,"$USER_AGENT"))) {
  23.     &redirect("http://brainop.media.mit.edu/first-page.html");
  24.     open(logfile,">> $LOGFILE");
  25.     print logfile "$date\t\t$REMOTE_HOST\n $REFERER\t $USER_AGENT\n\n";
  26.     close(logfile);
  27. } else {
  28.     &redirect("http://brainop.media.mit.edu/no-netscape/index.html");
  29.     open(bad_logfile,">> $BAD_LOGFILE");
  30.     print bad_logfile "$date\t\t$REMOTE_HOST\n $REFERER\t $USER_AGENT\n\n";
  31.     close(bad_logfile);
  32. }
  33.  
  34.  
  35.  
  36.