loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.3, 2005/10/25 19:14:32	version 1.4, 2005/10/28 21:51:43
Line 65 sub handler {	Line 65 sub handler {

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['otherserver','role']);	['otherserver','role']);

my $switch_to=$Apache::lonnet::hostname{$env{'form.otherserver'}};	my $switch_to=$Apache::lonnet::hostname{$env{'form.otherserver'}};
	if (!$env{'form.otherserver'}) {
	$env{'form.otherserver'}=&Apache::lonnet::spareserver(30000,undef,1);
	$switch_to=$Apache::lonnet::hostname{$env{'form.otherserver'}};
	}
if (!defined($switch_to)) { return FORBIDDEN; }	if (!defined($switch_to)) { return FORBIDDEN; }
if (!exists($env{'user.role.'.$env{'form.role'}})) { return FORBIDDEN; }
	if ($env{'form.role'} &&
	!exists($env{'user.role.'.$env{'form.role'}})) { return FORBIDDEN; }

#remove session env, and log event	#remove session env, and log event
unlink($r->dir_config('lonIDsDir')."/$handle.id");	unlink($r->dir_config('lonIDsDir')."/$handle.id");