|
version 1.1075.2.76, 2014/06/16 05:41:23
|
version 1.1075.2.77, 2014/06/18 06:15:58
|
|
Line 2341 Outputs:
|
Line 2341 Outputs:
|
| |
|
| =item * $clientinfo |
=item * $clientinfo |
| |
|
| |
=item * $clientosversion |
| |
|
| =back |
=back |
| |
|
| =back |
=back |
|
Line 2360 sub decode_user_agent {
|
Line 2362 sub decode_user_agent {
|
| my $clientmathml=''; |
my $clientmathml=''; |
| my $clientunicode='0'; |
my $clientunicode='0'; |
| my $clientmobile=0; |
my $clientmobile=0; |
| |
my $clientosversion=''; |
| for (my $i=0;$i<=$#browsertype;$i++) { |
for (my $i=0;$i<=$#browsertype;$i++) { |
| my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\%/,$browsertype[$i]); |
my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\%/,$browsertype[$i]); |
| if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { |
if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { |
|
Line 2381 sub decode_user_agent {
|
Line 2384 sub decode_user_agent {
|
| if ($httpbrowser=~/next/i) { $clientos='next'; } |
if ($httpbrowser=~/next/i) { $clientos='next'; } |
| if (($httpbrowser=~/mac/i) || |
if (($httpbrowser=~/mac/i) || |
| ($httpbrowser=~/powerpc/i)) { $clientos='mac'; } |
($httpbrowser=~/powerpc/i)) { $clientos='mac'; } |
| if ($httpbrowser=~/win/i) { $clientos='win'; } |
if ($httpbrowser=~/win/i) { |
| |
$clientos='win'; |
| |
if ($httpbrowser =~/Windows\s+NT\s+(\d+\.\d+)/i) { |
| |
$clientosversion = $1; |
| |
} |
| |
} |
| if ($httpbrowser=~/embed/i) { $clientos='pda'; } |
if ($httpbrowser=~/embed/i) { $clientos='pda'; } |
| if ($httpbrowser=~/(Android|iPod|iPad|iPhone|webOS|Blackberry|Windows Phone|Opera m(?:ob|in)|Fennec)/i) { |
if ($httpbrowser=~/(Android|iPod|iPad|iPhone|webOS|Blackberry|Windows Phone|Opera m(?:ob|in)|Fennec)/i) { |
| $clientmobile=lc($1); |
$clientmobile=lc($1); |
|
Line 2392 sub decode_user_agent {
|
Line 2400 sub decode_user_agent {
|
| $clientinfo = 'chromeframe-'.$1; |
$clientinfo = 'chromeframe-'.$1; |
| } |
} |
| return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml, |
return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml, |
| $clientunicode,$clientos,$clientmobile,$clientinfo); |
$clientunicode,$clientos,$clientmobile,$clientinfo, |
| |
$clientosversion); |
| } |
} |
| |
|
| ############################################################### |
############################################################### |
|
Line 14519 sub init_user_environment {
|
Line 14528 sub init_user_environment {
|
| } |
} |
| # ------------------------------------ Check browser type and MathML capability |
# ------------------------------------ Check browser type and MathML capability |
| |
|
| my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml, |
my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,$clientunicode, |
| $clientunicode,$clientos,$clientmobile,$clientinfo) = &decode_user_agent($r); |
$clientos,$clientmobile,$clientinfo,$clientosversion) = &decode_user_agent($r); |
| |
|
| # ------------------------------------------------------------- Get environment |
# ------------------------------------------------------------- Get environment |
| |
|
|
Line 14553 sub init_user_environment {
|
Line 14562 sub init_user_environment {
|
| "browser.os" => $clientos, |
"browser.os" => $clientos, |
| "browser.mobile" => $clientmobile, |
"browser.mobile" => $clientmobile, |
| "browser.info" => $clientinfo, |
"browser.info" => $clientinfo, |
| |
"browser.osversion" => $clientosversion, |
| "server.domain" => $Apache::lonnet::perlvar{'lonDefDomain'}, |
"server.domain" => $Apache::lonnet::perlvar{'lonDefDomain'}, |
| "request.course.fn" => '', |
"request.course.fn" => '', |
| "request.course.uri" => '', |
"request.course.uri" => '', |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface