--- loncom/auth/lonlogout.pm 2005/09/20 07:33:54 1.15
+++ loncom/auth/lonlogout.pm 2006/11/23 01:49:41 1.22
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Logout Handler
#
-# $Id: lonlogout.pm,v 1.15 2005/09/20 07:33:54 albertel Exp $
+# $Id: lonlogout.pm,v 1.22 2006/11/23 01:49:41 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -39,37 +39,36 @@ 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'}");
- &Apache::loncommon::content_type($r,'text/html');
- $r->send_http_header;
- return OK if $r->header_only;
+ if (!$lonid) {
+ return FORBIDDEN;
+ }
+
+ #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 '')) {
+ $r->log_reason("Cookie $handle not valid", $r->filename);
+ return FORBIDDEN;
+ }
+
+ #we've got a valid user
+ my @profile;
+ &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');
+ $r->send_http_header;
+ return OK if $r->header_only;
# -------------------------------------------------------- Menu script and info
my $windowinfo=&Apache::lonmenu::close();
@@ -77,44 +76,47 @@ sub handler {
# ---------------------------------------------------------------- Get handover
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']);
my $switch='';
- my $bodytag='';
+ my $start_page='';
my $relogmessage='';
if ($env{'form.handover'}) {
- $switch='';
- $bodytag=&Apache::loncommon::bodytag('Switching Server ...');
- } else {
- $bodytag=&Apache::loncommon::bodytag('Logged Out');
- my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye',
- 'cw' => 'close this window',
- 'li' => 'log in again',
- 'pe' => 'Please either',
- 'or' => 'or');
- $relogmessage=(<$lt{'gb'}!
- $lt{'pe'} $lt{'cw'} $lt{'or'}
-$lt{'li'}.
+ $switch='';
+ $start_page=&Apache::loncommon::start_page('Switching Server ...',
+ $switch);
+ } 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 $login_url = '/adm/'.($env{'request.sso.login'} ? 'roles'
+ : 'login');
+
+ $relogmessage=(<$lt{'gb'}!
+ $lt{'pe'} $lt{'cw'} $lt{'or'}
+ $lt{'li'}.
ENDRELOG
- }
+
+ if ($env{'request.sso.login'}
+ && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) {
+ open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile'));
+ $relogmessage.= join('',<$fh>);
+ }
+
+ }
+ my $end_page=&Apache::loncommon::end_page();
# --------------------------------------------------------------- Screen Output
- $r->print(<
-The LearningOnline Network with CAPA Logout
-$switch
-
-$bodytag
+ $r->print(<
-