[LON-CAPA-cvs] cvs: loncom / loncapa_apache.conf /auth lonauth.pm

[albertel]

albertel		Sat Nov  9 17:11:17 2002 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
    /loncom	loncapa_apache.conf 
  Log:
  - adding code for setting the browser.unicode ENV
  - extended lonBrowseDet, adding a new field, which is the version of the 
    browser wihch needs -u1 rather than -u0 
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.32 loncom/auth/lonauth.pm:1.33
--- loncom/auth/lonauth.pm:1.32	Sat Sep 14 01:45:45 2002
+++ loncom/auth/lonauth.pm	Sat Nov  9 17:11:17 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.32 2002/09/14 05:45:45 albertel Exp $
+# $Id: lonauth.pm,v 1.33 2002/11/09 22:11:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -83,14 +83,16 @@
     my $clientbrowser='unknown';
     my $clientversion='0';
     my $clientmathml='';
+    my $clientunicode='0';
     for ($i=0;$i<=$#browsertype;$i++) {
-        my ($bname,$match,$notmatch,$vreg,$minv)=split(/\:/,$browsertype[$i]);
+        my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\:/,$browsertype[$i]);
 	if (($httpbrowser=~/$match/i)  && ($httpbrowser!~/$notmatch/i)) {
 	    $clientbrowser=$bname;
             $httpbrowser=~/$vreg/i;
 	    $clientversion=$1;
             $clientmathml=($clientversion>=$minv);
-        }
+            $clientunicode=($clientversion>=$univ);
+	}
     }
     my $clientos='unknown';
     if (($httpbrowser=~/linux/i) ||
@@ -132,6 +134,7 @@
             print $idf "browser.type=$clientbrowser\n";
             print $idf "browser.version=$clientversion\n";
             print $idf "browser.mathml=$clientmathml\n";
+            print $idf "browser.unicode=$clientunicode\n";
             print $idf "browser.os=$clientos\n";
             print $idf "request.course.fn=\n";
             print $idf "request.course.uri=\n";
Index: loncom/loncapa_apache.conf
diff -u loncom/loncapa_apache.conf:1.24 loncom/loncapa_apache.conf:1.25
--- loncom/loncapa_apache.conf:1.24	Sat Nov  9 17:08:17 2002
+++ loncom/loncapa_apache.conf	Sat Nov  9 17:11:17 2002
@@ -1,7 +1,7 @@
 ##
 ## loncapa_apache.conf -- Apache HTTP LON-CAPA configuration file
 ##
-## $Id: loncapa_apache.conf,v 1.24 2002/11/09 22:08:17 albertel Exp $
+## $Id: loncapa_apache.conf,v 1.25 2002/11/09 22:11:17 albertel Exp $
 ##
 ## 1/11/2002 - Scott Harrison
 ## 2/19/2002 - Scott Harrison
@@ -672,7 +672,7 @@
 PerlSetVar       lonSockDir   /home/httpd/sockets
 PerlSetVar       lonDocRoot   /home/httpd/html
 PerlSetVar       lonIncludes  /home/httpd/html/res/adm/includes
-PerlSetVar       lonBrowsDet  netscape:mozilla:msie:mozilla\/(\d+\.\d+)\s:9999&explorer:msie:netscape:msie\s(\d+\.\d+)\;:9999&mozilla:mozilla\/[5-9]:msie:mozilla\/(\d+\.\d+)\s:9999&amaya:amaya:mozilla:V(\d+\.\d+)\s:1
+PerlSetVar       lonBrowsDet  netscape:mozilla:msie:mozilla\/(\d+\.\d+)\s:9999:9999&explorer:msie:netscape:msie\s(\d+\.\d+)\;:9999:9999&mozilla:mozilla\/[5-9]:msie:mozilla\/(\d+\.\d+)\s:9999:1&amaya:amaya:mozilla:V(\d+\.\d+)\s:1:1
 
 # -----------------------------------------------------------------------------
 # NOTE: lonSqlAccess key is the password for the MySQL user