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.8 and 1.11

version 1.8, 2006/06/02 19:38:21	version 1.11, 2007/01/12 15:44:27
Line 47 sub init_env {	Line 47 sub init_env {
my $cookie;	my $cookie;
if (!$lonid) { return undef; }	if (!$lonid) { return undef; }

my $handle=$lonid->value;	my $handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if ((!-e "$lonidsdir/$handle.id") \|\| ($handle eq '')) {	if ((!-e "$lonidsdir/$handle.id") \|\| ($handle eq '')) {
$r->log_reason("Cookie $handle not valid", $r->filename);	$r->log_reason("Cookie $handle not valid", $r->filename);
Line 106 sub handler {	Line 105 sub handler {
if ($env{'request.sso.login'}) {	if ($env{'request.sso.login'}) {
$info{'sso.login'} = $env{'request.sso.login'};	$info{'sso.login'} = $env{'request.sso.login'};
}	}
	if ($env{'request.sso.reloginserver'}) {
	$info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};
	}
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});	my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/login?domain='.$env{'user.domain'}.'&username='.$env{'user.name'}.'&token='.$token.'">';	my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/login?domain='.$env{'user.domain'}.'&username='.$env{'user.name'}.'&token='.$token.'">';
my $start_page = &Apache::loncommon::start_page('Switching Server ...',	my $start_page = &Apache::loncommon::start_page('Switching Server ...',
$switch);	$switch,
	{'no_inline_link' => 1,});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
$r->print($start_page.$windowinfo.$end_page);	$r->print($start_page.$windowinfo.$end_page);

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

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