loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.12, 2007/03/01 23:14:12	version 1.13, 2007/03/02 23:17:48
Line 68 sub handler {	Line 68 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'}) {	if (!$env{'form.otherserver'}) {
$env{'form.otherserver'}=&Apache::lonnet::spareserver(30000,undef,1);	$env{'form.otherserver'}=&Apache::lonnet::spareserver(30000,undef,1);
$switch_to=$Apache::lonnet::hostname{$env{'form.otherserver'}};	$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});
}	}

if (!defined($switch_to)) { return FORBIDDEN; }	if (!defined($switch_to)) { return FORBIDDEN; }