--- loncom/auth/lonlogout.pm 2006/08/29 20:34:39 1.20 +++ loncom/auth/lonlogout.pm 2007/01/12 15:54:12 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.20 2006/08/29 20:34:39 albertel Exp $ +# $Id: lonlogout.pm,v 1.24 2007/01/12 15:54:12 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,8 +49,7 @@ sub handler { } #check if cookie still valid - my $handle=$lonid->value; - $handle=~s/\W//g; + 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); @@ -59,23 +58,13 @@ sub handler { #we've got a valid user 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; - } + &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($sessionhash{'user.domain'}, - $sessionhash{'user.name'}, - $sessionhash{'user.home'}, + &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; @@ -102,13 +91,17 @@ sub handler { 'li' => 'log in again', 'pe' => 'Please either', 'or' => 'or'); - my $login_url = '/adm/'.($env{'request.sso.login'} ? 'roles' - : 'login'); - + 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'}. + $lt{'li'}. ENDRELOG if ($env{'request.sso.login'}