--- loncom/auth/lonlogout.pm 2001/12/29 21:09:47 1.5 +++ loncom/auth/lonlogout.pm 2010/03/22 20:11:08 1.41 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.5 2001/12/29 21:09:47 www Exp $ +# $Id: lonlogout.pm,v 1.41 2010/03/22 20:11:08 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,10 +25,19 @@ # # http://www.lon-capa.org/ # -# (Cookie Based Access Handler -# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, -# 01/06,01/13 Gerd Kortemeyer) -# 05/31,11/29,12/29 Gerd Kortemeyer + +=head1 NAME + +Apache::lonlogout + +=head1 SYNOPSIS + + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + + +=cut package Apache::lonlogout; @@ -38,61 +47,117 @@ use Apache::File; use Apache::lonnet; use Apache::lonmenu; use CGI::Cookie(); +use Apache::lonlocal; sub handler { my $r = shift; + #Check for cookie my $requrl=$r->uri; - my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); - my $lonid=$cookies{'lonID'}; - my $cookie; - if ($lonid) { - my $handle=$lonid->value; - $handle=~s/\W//g; - my $lonidsdir=$r->dir_config('lonIDsDir'); - if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { - my @profile; - my %sessionhash; - { - my $idf=Apache::File->new("$lonidsdir/$handle.id"); - @profile=<$idf>; - } - my $envi; - for ($envi=0;$envi<=$#profile;$envi++) { - chomp($profile[$envi]); - my ($envname,$envvalue)=split(/=/,$profile[$envi]); - $sessionhash{$envname}=$envvalue; - } - unlink("$lonidsdir/$handle.id"); - my %temp=('logout' => time); - &Apache::lonnet::put('email_status',\%temp); - &Apache::lonnet::log($sessionhash{'user.domain'}, - $sessionhash{'user.name'}, - $sessionhash{'user.home'}, - "Logout $ENV{'REMOTE_ADDR'}"); - $r->content_type('text/html'); - $r->send_http_header; - return OK if $r->header_only; + my $handle = &Apache::lonnet::check_for_valid_session($r); + #check if cookie still valid + if ($handle eq '') { + $r->log_reason("Cookie $handle not valid", $r->filename); + return FORBIDDEN; + } + + #we've got a valid user + #any locks in place? + my $locknum=&Apache::lonnet::get_locks(); + if ($locknum) { return 409; } + #nope, go ahead + my @profile; + my $lonidsdir=$r->dir_config('lonIDsDir'); + &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); + unlink("$lonidsdir/$handle.id"); + my %temp=('logout' => time); + &Apache::lonnet::put('email_status',\%temp); + &Apache::lonnet::log($env{'user.domain'}, + $env{'user.name'}, + $env{'user.home'}, + "Logout $ENV{'REMOTE_ADDR'}"); + + &Apache::loncommon::content_type($r,'text/html'); + + #expire the cookie + my $c = new CGI::Cookie(-name => 'lonID', + -value => '', + -expires => '-10y',); + $r->header_out('Set-cookie' => $c); + + $r->send_http_header; + return OK if $r->header_only; # -------------------------------------------------------- Menu script and info - my $windowinfo=&Apache::lonmenu::close(); +# ---------------------------------------------------------------- Get handover + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); + my $switch=''; + my $start_page=''; + my $relogmessage=''; + if ($env{'form.handover'}) { + $switch=''; + $start_page=&Apache::loncommon::start_page('Switching Server ...', + $switch); + } else { + $start_page=&Apache::loncommon::start_page('Logged Out',undef, + {'no_nav_bar' => 1,}); + + $relogmessage.='
'.&mt('Thank you for using LON-CAPA.').'
'; + + if (!$env{'request.sso.norelogin'}) { + my $relogin_server; + if ($env{'request.sso.reloginserver'}) { + $relogin_server = $env{'request.sso.reloginserver'}; + } + my $login_url = $relogin_server.'/adm/'. + ($env{'request.sso.login'} ? 'roles': 'login'); + + $relogmessage.=''.&mt('You have been successfully logged out.').' ' + .&mt('You can [_1]close this window[_2] now.' + ,'','') # ,'','') + .'
'; +=pod -# --------------------------------------------------------------- Screen Output - $r->print(<