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

Diff for /loncom/auth/lonauth.pm between versions 1.95 and 1.99

version 1.95, 2008/10/01 11:11:08 version 1.99, 2009/07/03 10:22:00
Line 78  sub success { Line 78  sub success {
     my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);      my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
     my $setflags=&Apache::lonmenu::setflags();      my $setflags=&Apache::lonmenu::setflags();
     my $maincall=&Apache::lonmenu::maincall();      my $maincall=&Apache::lonmenu::maincall();
       my $brcrum = [{'href' => '',
                      'text' => 'Successful Login'},];
     my $start_page=&Apache::loncommon::start_page('Successful Login',      my $start_page=&Apache::loncommon::start_page('Successful Login',
   $startupremote,                                                    $startupremote,
   {'no_inline_link' => 1,});                                                    {'no_inline_link' => 1,
                                                      'bread_crumbs' => $brcrum,});
     my $end_page  =&Apache::loncommon::end_page();      my $end_page  =&Apache::loncommon::end_page();
   
     my $continuelink;      my $continuelink;
     if (($env{'browser.interface'} eq 'textual') ||      if ($env{'environment.remote'} eq 'off') {
         ($env{'environment.remote'} eq 'off')) {  
  $continuelink="<a href=\"$lowerurl\">".&mt('Continue')."</a>";   $continuelink="<a href=\"$lowerurl\">".&mt('Continue')."</a>";
     }      }
 # ------------------------------------------------- Output for successful login  # ------------------------------------------------- Output for successful login
Line 122  sub failed { Line 124  sub failed {
     {'no_inline_link' => 1,});      {'no_inline_link' => 1,});
     my $end_page   = &Apache::loncommon::end_page();      my $end_page   = &Apache::loncommon::end_page();
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     sleep 1; # brute force counteraction: slow down attackers, which try to hack user authentication with automated scripts  
     $r->send_http_header;      $r->send_http_header;
     $r->print(      $r->print(
        $start_page         $start_page
Line 173  sub handler { Line 174  sub handler {
         $r->print(          $r->print(
            $start_page             $start_page
           .'<h1>'.&mt('You are already logged in!').'</h1>'            .'<h1>'.&mt('You are already logged in!').'</h1>'
           .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].'            .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].'
                     ,'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>')                      ,'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>')
           .'</p>'            .'</p>'
           .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'            .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'
Removed from v.1.95  
changed lines
  Added in v.1.99

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