--- loncom/auth/lonlogout.pm 2007/01/12 15:54:12 1.24 +++ loncom/auth/lonlogout.pm 2008/05/13 15:06:34 1.31 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.24 2007/01/12 15:54:12 raeburn Exp $ +# $Id: lonlogout.pm,v 1.31 2008/05/13 15:06:34 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,23 +41,20 @@ sub handler { #Check for cookie my $requrl=$r->uri; - my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); - my $lonid=$cookies{'lonID'}; - my $cookie; - if (!$lonid) { - return FORBIDDEN; - } - + my $handle = &Apache::lonnet::check_for_valid_session($r); #check if cookie still valid - my $handle=&LONCAPA::clean_handle($lonid->value); - my $lonidsdir=$r->dir_config('lonIDsDir'); - if ((!-e "$lonidsdir/$handle.id") || ($handle eq '')) { + 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); @@ -66,7 +63,15 @@ sub handler { $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 @@ -86,25 +91,28 @@ sub handler { } else { $start_page=&Apache::loncommon::start_page('Logged Out',undef, {'no_inline_link' => 1,}); - my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye', - 'cw' => 'close this window', - 'li' => 'log in again', - 'pe' => 'Please either', - 'or' => 'or'); - 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=(<$lt{'gb'}! - $lt{'pe'} $lt{'cw'} $lt{'or'} - $lt{'li'}. -ENDRELOG + + $relogmessage.='

'.&mt('Goodbye').'

'; + 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('Please either [_1]close this window[_2] or [_3]log in again[_4].' + ,'','' + ,'',''); + } + my $domain = $env{'user.domain'}; if ($env{'request.sso.login'} + && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) { + open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain")); + $relogmessage.= join('',<$fh>); + } + if ($env{'request.sso.login'} && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) { open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile')); $relogmessage.= join('',<$fh>); @@ -119,10 +127,15 @@ $windowinfo $relogmessage $end_page ENDDOCUMENT - &Apache::lonnet::flushcourselogs(); + $r->register_cleanup(\&flush_course_logs); return OK; } +sub flush_course_logs { + &Apache::lonnet::flushcourselogs(); + return OK; +} + 1; __END__