loncom/auth/lonlogout.pm - diff

Return to lonlogout.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.44, 2012/01/08 23:24:08	version 1.46, 2013/02/08 17:03:41
Line 70 sub handler {	Line 70 sub handler {
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
unlink("$lonidsdir/$handle.id");	unlink("$lonidsdir/$handle.id");
	if (!$Apache::lonlocal::lh) {
	&Apache::lonlocal::get_language_handle($r);
	}
my %temp=('logout' => time);	my %temp=('logout' => time);
&Apache::lonnet::put('email_status',\%temp);	&Apache::lonnet::put('email_status',\%temp);
&Apache::lonnet::log($env{'user.domain'},	&Apache::lonnet::log($env{'user.domain'},
Line 124 sub handler {	Line 127 sub handler {
'://'.$server.$path;	'://'.$server.$path;
if (($path eq '') && (!$isredirect)) {	if (($path eq '') && (!$isredirect)) {
my $serverhomeID =	my $serverhomeID =
&Apache::lonnet::get_server_homeID($lonhost);	&Apache::lonnet::get_server_homeID($server);
my $serverhomedom =	my $serverhomedom =
&Apache::lonnet::host_domain($serverhomeID);	&Apache::lonnet::host_domain($serverhomeID);
if ($serverhomedom ne $domain) {	if ($serverhomedom ne $domain) {