xml-axkit-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ma...@apache.org
Subject cvs commit: xml-axkit/lib/Apache/AxKit/StyleChooser UserAgent.pm
Date Wed, 31 Jul 2002 19:50:26 GMT
matts       2002/07/31 12:50:26

  Modified:    lib/Apache/AxKit/StyleChooser UserAgent.pm
  Log:
  ENV patch
  
  Revision  Changes    Path
  1.4       +3 -3      xml-axkit/lib/Apache/AxKit/StyleChooser/UserAgent.pm
  
  Index: UserAgent.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/StyleChooser/UserAgent.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- UserAgent.pm	30 Jul 2002 10:33:42 -0000	1.3
  +++ UserAgent.pm	31 Jul 2002 19:50:26 -0000	1.4
  @@ -17,10 +17,10 @@
           push (@UAMap, [ split /\s*=>\s*/, $_ ]);
       }
   
  -#    warn "checking UA: $ENV{HTTP_USER_AGENT}\n";
  +#    warn "checking UA: ", $r->header_in('User-Agent'), "\n";
   
       UA: foreach my $ua (@UAMap) {
  -        if ($ENV{HTTP_USER_AGENT} =~ /$ua->[1]/g) {
  +        if ($r->header_in('User-Agent') =~ /$ua->[1]/g) {
   #            warn "found UA $ua->[1], setting 'preferred_style' to $ua->[0]\n";
               $r->notes('preferred_style', $ua->[0]);
               last UA;
  
  
  

Mime
View raw message