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

Diff for /loncom/auth/lonauth.pm between versions 1.100 and 1.101.8.1

version 1.100, 2009/07/22 20:24:07 version 1.101.8.1, 2010/05/27 22:05:47
Line 40  use Apache::lonmenu(); Line 40  use Apache::lonmenu();
 use Apache::createaccount;  use Apache::createaccount;
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
 use Apache::lonlocal;  use Apache::lonlocal;
   use HTML::Entities;
     
 # ------------------------------------------------------------ Successful login  # ------------------------------------------------------------ Successful login
 sub success {  sub success {
Line 85  sub success { Line 86  sub success {
             &Apache::lonnet::role_status($envkey,$then,$refresh,$now,\$role,\$where,              &Apache::lonnet::role_status($envkey,$then,$refresh,$now,\$role,\$where,
                                          \$trolecode,\$tstatus,\$tstart,\$tend);                                           \$trolecode,\$tstatus,\$tstart,\$tend);
             if ($tstatus eq 'is') {              if ($tstatus eq 'is') {
                 if ($destination =~ /\?/) {                  $destination  .= ($destination =~ /\?/) ? '&' : '?';
                     $destination .= '&';                  my $newrole = &HTML::Entities::encode($form->{role},'"<>&');
                 } else {                  $destination .= 'selectrole=1&'.$newrole.'=1';
                     $destination .= '?';  
                 }  
                 $destination .= 'selectrole=1&'.$form->{role}.'=1';  
                 if (defined($form->{symb})) {  
                     my $destsymb = $form->{symb};  
                     if ($destsymb =~ /___/) {  
                         # FIXME Need to deal with encrypted symbs and urls as needed.  
                         my ($map,$resid,$desturl)=split(/___/,$destsymb);  
                         unless ($desturl=~/^(adm|uploaded|editupload|public)/) {  
                             $desturl = &Apache::lonnet::clutter($desturl);  
                         }  
                         $destination .= '&destinationurl='.$desturl.  
                                         '&destsymb='.$destsymb;  
                     } else {  
                         $destination .= '&destinationurl='.$destsymb;  
                     }  
                 }  
             }              }
         }          }
     }      }
       if (defined($form->{symb})) {
           my $destsymb = $form->{symb};
           $destination  .= ($destination =~ /\?/) ? '&' : '?';
           if ($destsymb =~ /___/) {
               # FIXME Need to deal with encrypted symbs and urls as needed.
               my ($map,$resid,$desturl)=split(/___/,$destsymb);
               unless ($desturl=~/^(adm|uploaded|editupload|public)/) {
                   $desturl = &Apache::lonnet::clutter($desturl);
               }
               $desturl = &HTML::Entities::encode($desturl,'"<>&');
               $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
               $destination .= '&destinationurl='.$desturl.
                               '&destsymb='.$destsymb;
           } else {
               $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
               $destination .= '&destinationurl='.$destsymb;
           }
       }
   
     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});      my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
     my $startupremote=&Apache::lonmenu::startupremote($destination);      my $startupremote=&Apache::lonmenu::startupremote($destination);
Line 207  sub handler { Line 209  sub handler {
 # -------------------------------- Prevent users from attempting to login twice  # -------------------------------- Prevent users from attempting to login twice
     my $handle = &Apache::lonnet::check_for_valid_session($r);      my $handle = &Apache::lonnet::check_for_valid_session($r);
     if ($handle ne '') {      if ($handle ne '') {
           my $lonidsdir=$r->dir_config('lonIDsDir');
           if ($handle=~/^publicuser\_/) {
   # For "public user" - remove it, we apparently really want to login
               unlink($r->dir_config('lonIDsDir')."/$handle.id");
           } else {
 # Indeed, a valid token is found  # Indeed, a valid token is found
  &Apache::loncommon::content_type($r,'text/html');              &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
  $r->send_http_header;              &Apache::loncommon::content_type($r,'text/html');
  my $start_page =               $r->send_http_header;
     &Apache::loncommon::start_page('Already logged in');              my $start_page =
  my $end_page =                   &Apache::loncommon::start_page('Already logged in');
     &Apache::loncommon::end_page();              my $end_page =
         $r->print(                  &Apache::loncommon::end_page();
            $start_page              my $dest = '/adm/roles';
           .'<h1>'.&mt('You are already logged in!').'</h1>'              if ($env{'form.firsturl'} ne '') {
           .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].'                  $dest = $env{'form.firsturl'};
                     ,'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>')              }
           .'</p>'              $r->print(
           .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'                 $start_page
           .$end_page                .'<h1>'.&mt('You are already logged in!').'</h1>'
         );                .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].'
         return OK;                      ,'<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>')
                 .'</p>'
                 .$end_page
               );
               return OK;
           }
     }      }
   
 # ---------------------------------------------------- No valid token, continue  # ---------------------------------------------------- No valid token, continue
Removed from v.1.100  
changed lines
  Added in v.1.101.8.1

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