version 1.199, 2022/06/18 02:10:18
|
version 1.200, 2022/06/26 04:03:47
|
Line 262 sub handler {
|
Line 262 sub handler {
|
if ($info{'linkprotuser'} ne '') {
|
if ($info{'linkprotuser'} ne '') {
|
$linkprotuser = $info{'linkprotuser'};
|
$linkprotuser = $info{'linkprotuser'};
|
}
|
}
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
} else {
|
} else {
|
$linkprot = $env{'form.linkprot'};
|
$linkprot = $env{'form.linkprot'};
|
$linkprotuser = $env{'form.linkprotuser'};
|
$linkprotuser = $env{'form.linkprotuser'};
|
Line 277 sub handler {
|
Line 276 sub handler {
|
linkprot => $linkprot,
|
linkprot => $linkprot,
|
linkprotuser => $linkprotuser,
|
linkprotuser => $linkprotuser,
|
);
|
);
|
|
if ($env{'form.ltoken'}) {
|
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
}
|
&Apache::migrateuser::logout($r,$ip,$handle,undef,undef,\%linkprotinfo);
|
&Apache::migrateuser::logout($r,$ip,$handle,undef,undef,\%linkprotinfo);
|
return OK;
|
return OK;
|
}
|
}
|
Line 325 sub handler {
|
Line 327 sub handler {
|
}
|
}
|
}
|
}
|
}
|
}
|
|
if ($env{'form.ltoken'}) {
|
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
}
|
$r->print(
|
$r->print(
|
$start_page
|
$start_page
|
.'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
|
.'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
|
Line 1149 sub redirect_page {
|
Line 1154 sub redirect_page {
|
$path = '/'.$path;
|
$path = '/'.$path;
|
}
|
}
|
my $url = $protocol.'://'.$hostname.$path;
|
my $url = $protocol.'://'.$hostname.$path;
|
|
my $args = {};
|
if ($env{'form.firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
|
if ($env{'form.firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
|
$url = $protocol.'://'.$hostname.$env{'form.firsturl'};
|
$url = $protocol.'://'.$hostname.$env{'form.firsturl'};
|
if (($env{'form.ltoken'}) || ($env{'form.linkprot'} ne '') ||
|
if (($env{'form.ltoken'}) || ($env{'form.linkprot'} ne '') ||
|
Line 1157 sub redirect_page {
|
Line 1163 sub redirect_page {
|
if ($env{'form.ltoken'}) {
|
if ($env{'form.ltoken'}) {
|
%link_info = &Apache::lonnet::tmpget($env{'form.ltoken'});
|
%link_info = &Apache::lonnet::tmpget($env{'form.ltoken'});
|
&Apache::lonnet::tmpdel($env{'form.ltoken'});
|
&Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
$args->{'only_body'} = 1;
|
} elsif ($env{'form.linkprot'}) {
|
} elsif ($env{'form.linkprot'}) {
|
$link_info{'linkprot'} = $env{'form.linkprot'};
|
$link_info{'linkprot'} = $env{'form.linkprot'};
|
if ($env{'form.linkprotuser'}) {
|
if ($env{'form.linkprotuser'}) {
|
$link_info{'linkprotuser'} = $env{'form.linkprotuser'};
|
$link_info{'linkprotuser'} = $env{'form.linkprotuser'};
|
}
|
}
|
|
$args->{'only_body'} = 1;
|
} elsif ($env{'form.linkkey'} ne '') {
|
} elsif ($env{'form.linkkey'} ne '') {
|
$link_info{'linkkey'} = $env{'form.linkkey'};
|
$link_info{'linkkey'} = $env{'form.linkkey'};
|
}
|
}
|
Line 1196 sub redirect_page {
|
Line 1204 sub redirect_page {
|
}
|
}
|
$url .= $querystring;
|
$url .= $querystring;
|
}
|
}
|
my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,
|
$args->{'redirect'} = [0,$url];
|
{'redirect' => [0,$url],});
|
my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,$args);
|
my $end_page = &Apache::loncommon::end_page();
|
my $end_page = &Apache::loncommon::end_page();
|
return $start_page.$end_page;
|
return $start_page.$end_page;
|
}
|
}
|