loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.86 and 1.87

-version 1.86, 2003/03/03 13:03:58
+version 1.87, 2003/03/10 20:21:45
  Line 674  sub home_server_option_list {
  ###############################################################
  ###############################################################
+ ###############################################################
+ =pod
+ =item &decode_user_agent()
+ Inputs: $r
+ Outputs:
+ =over 4
+ =item $httpbrowser
+ =item $clientbrowser
+ =item $clientversion
+ =item $clientmathml
+ =item $clientunicode
+ =item $clientos
+ =back
+ =cut
+ ###############################################################
+ ###############################################################
+ sub decode_user_agent {
+     my @browsertype=split(/\&/,$Apache::lonnet::perlvar{"lonBrowsDet"});
+     my %mathcap=split(/\&/,$$Apache::lonnet::perlvar{"lonMathML"});
+     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
+     my $clientbrowser='unknown';
+     my $clientversion='0';
+     my $clientmathml='';
+     my $clientunicode='0';
+     for (my $i=0;$i<=$#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) ||
+         ($httpbrowser=~/unix/i) ||
+         ($httpbrowser=~/ux/i) ||
+         ($httpbrowser=~/solaris/i)) { $clientos='unix'; }
+     if (($httpbrowser=~/vax/i) ||
+         ($httpbrowser=~/vms/i)) { $clientos='vms'; }
+     if ($httpbrowser=~/next/i) { $clientos='next'; }
+     if (($httpbrowser=~/mac/i) ||
+         ($httpbrowser=~/powerpc/i)) { $clientos='mac'; }
+     if ($httpbrowser=~/win/i) { $clientos='win'; }
+     if ($httpbrowser=~/embed/i) { $clientos='pda'; }
+     return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
+             $clientunicode,$clientos,);
+ }
+ ###############################################################
+ ###############################################################
+ ###############################################################
  ##    Authentication changing form generation subroutines    ##
  ###############################################################
  ##

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.86
changed lines
	Added in v.1.87