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.11 and 1.13

version 1.11, 2007/01/12 15:44:27	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; }
Line 89 sub handler {	Line 89 sub handler {
"Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");	"Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');

	#expire the cookie
	my $c = new CGI::Cookie(-name => 'lonID',
	-value => '',
	-expires => '-10y',);
	$r->header_out('Set-cookie' => $c);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

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

Removed from v.1.11
changed lines
	Added in v.1.13