[BACK]Return to lonauth.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonauth.pm between versions 1.27 and 1.33

version 1.27, 2001/11/29 19:12:44 version 1.33, 2002/11/09 22:11:17
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 103  sub success { Line 105  sub success {
     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=~/embed/i) { $clientos='pda'; }
   
 # ------------------------------------------------------------- Get environment  # ------------------------------------------------------------- Get environment
   
     my $userenv=Apache::lonnet::reply("dump:$domain:$username:environment",      my $userenv;
                                       $authhost);      my %userenv=Apache::lonnet::dump('environment',$domain,$username);
     if (($userenv eq 'con_lost') ||       my ($tmp) = keys(%userenv);
         ($userenv =~ /^error\:/)) {      if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
         $userenv='';   foreach my $key (keys(%userenv)) {
     }      $userenv.="environment.$key=$userenv{$key}\n";
     $userenv=~s/\&/\nenvironment\./g;   }
     if ($userenv ne '') {  
  $userenv='environment.'.$userenv;  
     }      }
 # --------------------------------------------------------- Write first profile  # --------------------------------------------------------- Write first profile
   
Line 133  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 143  sub success { Line 145  sub success {
     $idf->close();      $idf->close();
         }          }
          $ENV{'request.role'}='cm';           $ENV{'request.role'}='cm';
            $ENV{'browser.type'}=$clientbrowser;
 # -------------------------------------------------------------------- Log this  # -------------------------------------------------------------------- Log this
   
     &Apache::lonnet::log($domain,$username,$authhost,      &Apache::lonnet::log($domain,$username,$authhost,
Line 161  sub success { Line 164  sub success {
   
     $cookie="lonID=$cookie; path=/";      $cookie="lonID=$cookie; path=/";
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
     my $windowinfo=&Apache::lonmenu::open();      my $windowinfo=&Apache::lonmenu::open($clientos);
 # ------------------------------------------------------------- Info for Remote  # ------------------------------------------------------------- Info for Remote
     my $configmenu=&Apache::lonmenu::rawconfig();      my $configmenu=&Apache::lonmenu::rawconfig($r);
 # ------------------------------------------------- Output for successful login  # ------------------------------------------------- Output for successful login
   
     $r->send_cgi_header(<<ENDHEADER);      $r->send_cgi_header(<<ENDHEADER);
Line 184  function checkdef() { Line 187  function checkdef() {
 }  }
   
 // ---------------------------------------------------------- The wait function  // ---------------------------------------------------------- The wait function
   var canceltim;
 function wait() {  function wait() {
    if ((menuloaded==1) || (tim==1)) {     if ((menuloaded==1) || (tim==1)) {
       if (tim==0) {        if (tim==0) {
Removed from v.1.27  
changed lines
  Added in v.1.33

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