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 / user-agent.pl < prev    next >
Perl Script  |  2017-09-21  |  423b  |  25 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # written by Ben Adida(benjamin@media.mit.edu)
  4. # Procedure for finding the User Agent.
  5.  
  6.  
  7. sub get_user_agent {
  8.     $USER_AGENT=$ENV{'HTTP_USER_AGENT'};
  9. }
  10.  
  11. sub is_netscape2_compatible {
  12.     &get_user_agent;
  13.     if (grep(/Mozilla\/2.0/i,$USER_AGENT)) {
  14.     return true;
  15.     } else {
  16.     return false;
  17.     }
  18. }
  19.  
  20. sub get_http_referer {
  21.     local($HTTP_REFERER)=$ENV{'HTTP_REFERER'};
  22.     return $HTTP_REFERER;
  23. }
  24.  
  25.