home *** CD-ROM | disk | FTP | other *** search
/ Teach Yourself CGI Programming with Perl in a Week / CGIPROGRAMMINGPERL.iso / booksrc / 02cgil03.cgi < prev    next >
Encoding:
Text File  |  1995-12-05  |  571 b   |  56 lines
  1. #!/usr/local/bin/perl 
  2. push(@INC, "~yawp/public-web/cgi-bin");
  3. require("cgi-lib.pl");
  4.  
  5. &ReadParse;
  6.  
  7. @user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'});
  8.  
  9.  
  10. if ($user_agent[0] eq "Mozilla"){
  11.     @version = split(/ /,$user_agent[1]);
  12.  
  13.     $version_number = substr($version[0], 0, 3);
  14.  
  15.     if ($version_number < 1.1){
  16.     print "Location: http://www.accn.com\n\n";
  17.     }
  18.     else{
  19.     print "Location: http://www.accn.com/clbbq\n\n";
  20.     }
  21. }
  22. else{
  23.     print "Location: http://www.accn.com\n\n";
  24. }
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.