You are viewing a plain text version of this content. The canonical link for it is here.
Posted to axkit-dev@xml.apache.org by ma...@apache.org on 2002/07/31 21:50:26 UTC
cvs commit: xml-axkit/lib/Apache/AxKit/StyleChooser UserAgent.pm
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;