loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.21, 2007/11/15 01:17:16	version 1.22, 2009/04/14 23:52:07
Line 73 sub handler {	Line 73 sub handler {
if (!defined($handle)) { return FORBIDDEN; }	if (!defined($handle)) { return FORBIDDEN; }

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

my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});	my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});
if (! $env{'form.otherserver'}) {	if (! $env{'form.otherserver'}) {
Line 132 sub handler {	Line 132 sub handler {
'username' => $env{'user.name'},	'username' => $env{'user.name'},
'role' => $env{'form.role'},	'role' => $env{'form.role'},
'server' => $r->dir_config('lonHostID'));	'server' => $r->dir_config('lonHostID'));
	if ($env{'form.origurl'}) {
	$info{'origurl'} = $env{'form.origurl'};
	}
	if ($env{'form.symb'}) {
	$info{'symb'} = $env{'form.symb'};
	}
if ($env{'request.sso.login'}) {	if ($env{'request.sso.login'}) {
$info{'sso.login'} = $env{'request.sso.login'};	$info{'sso.login'} = $env{'request.sso.login'};
}	}