loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/switchserver.pm between versions 1.35 and 1.36

version 1.35, 2016/12/16 15:31:11	version 1.36, 2017/02/25 20:00:36
Line 106 sub handler {	Line 106 sub handler {
if ($env{'user.name'} eq 'public'	if ($env{'user.name'} eq 'public'
&& $env{'user.domain'} eq 'public') {	&& $env{'user.domain'} eq 'public') {
my $url = $protocol.'://'.$switch_to.$r->uri;	my $url = $protocol.'://'.$switch_to.$r->uri;
	unlink($handle);
	#expire the cookie
	my $c = new CGI::Cookie(-name => 'lonPubID',
	-value => '',
	-expires => '-10y',);
	$r->header_out('Set-cookie' => $c);
return &do_redirect($r,$url,1)	return &do_redirect($r,$url,1)
}	}

Line 157 sub handler {	Line 163 sub handler {

#remove session env, and log event	#remove session env, and log event
unlink($handle);	unlink($handle);
	if ($env{'user.linkedenv'} ne '') {
	my $lonidsdir=$r->dir_config('lonIDsDir');
	if ((-l $env{'user.linkedenv'}) &&
	(readlink($env{'user.linkedenv'}) eq "$lonidsdir/$handle.id")) {
	unlink($env{'user.linkedenv'});
	}
	}
my %temp=('switchserver' => time.':'.$env{'form.otherserver'},	my %temp=('switchserver' => time.':'.$env{'form.otherserver'},
$env{'form.role'});	$env{'form.role'});
&Apache::lonnet::put('email_status',\%temp);	&Apache::lonnet::put('email_status',\%temp);
Line 176 sub handler {	Line 189 sub handler {
my $c = new CGI::Cookie(-name => 'lonID',	my $c = new CGI::Cookie(-name => 'lonID',
-value => '',	-value => '',
-expires => '-10y',);	-expires => '-10y',);
$r->header_out('Set-cookie' => $c);	$r->headers_out->add('Set-cookie' => $c);
	if ($env{'user.linkedenv'}) {
	my $linked = new CGI::Cookie(-name => 'lonLinkID',
	-value => '',
	-expires => '-10y',);
	$r->headers_out->add('Set-cookie' => $linked);
	}

if ($r->header_only) {	if ($r->header_only) {
$r->send_http_header;	$r->send_http_header;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.35
changed lines
	Added in v.1.36