loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.35.2.8, 2024/10/08 02:46:19	version 1.35.2.9, 2024/10/09 15:33:08
Line 31 package Apache::switchserver;	Line 31 package Apache::switchserver;
use strict;	use strict;
use Apache::Constants qw(:common :remotehost);	use Apache::Constants qw(:common :remotehost);
use Apache::lonnet;	use Apache::lonnet;
	use Apache::loncommon;
	use Apache::lonmenu;
use Digest::MD5 qw(md5_hex);	use Digest::MD5 qw(md5_hex);
use CGI::Cookie();	use CGI::Cookie();
use Apache::lonlocal;	use Apache::lonlocal;
Line 270 sub handler {	Line 272 sub handler {
}	}
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

	my $windowinfo = &Apache::lonmenu::close();

# ---------------------------------------------------------------- Get handover	# ---------------------------------------------------------------- Get handover

my ($is_balancer,$setcookie,$newcookieid,$otherbalcookie);	my ($is_balancer,$setcookie,$newcookieid,$otherbalcookie);
Line 336 sub handler {	Line 340 sub handler {
'&username='.$env{'user.name'}.	'&username='.$env{'user.name'}.
'&token='.$token;	'&token='.$token;
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
return &do_redirect($r, $url, $only_body, $ssologoutscript);	return &do_redirect($r, $url, $only_body, $windowinfo.$ssologoutscript);
}	}

1;	1;