version 1.32, 2002/09/14 05:45:45
|
version 1.34, 2003/01/16 01:37:26
|
Line 83 sub success {
|
Line 83 sub success {
|
my $clientbrowser='unknown'; |
my $clientbrowser='unknown'; |
my $clientversion='0'; |
my $clientversion='0'; |
my $clientmathml=''; |
my $clientmathml=''; |
|
my $clientunicode='0'; |
for ($i=0;$i<=$#browsertype;$i++) { |
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)) { |
if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { |
$clientbrowser=$bname; |
$clientbrowser=$bname; |
$httpbrowser=~/$vreg/i; |
$httpbrowser=~/$vreg/i; |
$clientversion=$1; |
$clientversion=$1; |
$clientmathml=($clientversion>=$minv); |
$clientmathml=($clientversion>=$minv); |
} |
$clientunicode=($clientversion>=$univ); |
|
} |
} |
} |
my $clientos='unknown'; |
my $clientos='unknown'; |
if (($httpbrowser=~/linux/i) || |
if (($httpbrowser=~/linux/i) || |
Line 132 sub success {
|
Line 134 sub success {
|
print $idf "browser.type=$clientbrowser\n"; |
print $idf "browser.type=$clientbrowser\n"; |
print $idf "browser.version=$clientversion\n"; |
print $idf "browser.version=$clientversion\n"; |
print $idf "browser.mathml=$clientmathml\n"; |
print $idf "browser.mathml=$clientmathml\n"; |
|
print $idf "browser.unicode=$clientunicode\n"; |
print $idf "browser.os=$clientos\n"; |
print $idf "browser.os=$clientos\n"; |
print $idf "request.course.fn=\n"; |
print $idf "request.course.fn=\n"; |
print $idf "request.course.uri=\n"; |
print $idf "request.course.uri=\n"; |
Line 214 function main() {
|
Line 217 function main() {
|
</script> |
</script> |
$windowinfo |
$windowinfo |
<h1>Welcome!</h1> |
<h1>Welcome!</h1> |
|
Welcome to the Learning<i>Online</i> Network with CAPA. |
|
Please wait while your session |
|
is being set up.<p> |
|
<a href="/adm/loginproblems.html">Problems?</a></p> |
<script> |
<script> |
main(); |
main(); |
</script> |
</script> |