|
version 1.147, 2017/08/08 18:17:13
|
version 1.148, 2017/08/08 18:26:34
|
|
Line 489 sub handler {
|
Line 489 sub handler {
|
| # (b) same primary library server for the two domains
|
# (b) same primary library server for the two domains
|
| # (c) same "internet domain" for primary library server(s) for home servers' domains
|
# (c) same "internet domain" for primary library server(s) for home servers' domains
|
| #
|
#
|
| my $uprim = &Apache::lonnet::domain($sudom,'primary');
|
my $suprim = &Apache::lonnet::domain($sudom,'primary');
|
| my $uintdom = &Apache::lonnet::internet_dom($uprim);
|
my $suintdom = &Apache::lonnet::internet_dom($suprim);
|
| unless ($sudom eq $form{'udom'}) {
|
unless ($sudom eq $form{'udom'}) {
|
| my $suprim = &Apache::lonnet::domain($sudom,'primary');
|
my $uprim = &Apache::lonnet::domain($form{'udom'},'primary');
|
| my $suintdom = &Apache::lonnet::internet_dom($suprim);
|
my $uintdom = &Apache::lonnet::internet_dom($uprim);
|
| unless ($suprim eq $uprim) {
|
unless ($suprim eq $uprim) {
|
| unless ($suintdom eq $uintdom) {
|
unless ($suintdom eq $uintdom) {
|
| &Apache::lonnet::logthis('Attempted switch user '
|
&Apache::lonnet::logthis('Attempted switch user '
|
|
Line 510 sub handler {
|
Line 510 sub handler {
|
| #
|
#
|
| my $lonhost = $r->dir_config('lonHostID');
|
my $lonhost = $r->dir_config('lonHostID');
|
| my $hostintdom = &Apache::lonnet::internet_dom($lonhost);
|
my $hostintdom = &Apache::lonnet::internet_dom($lonhost);
|
| if ($hostintdom ne $uintdom) {
|
if ($hostintdom ne $suintdom) {
|
| &Apache::lonnet::logthis('Attempted switch user on a '
|
&Apache::lonnet::logthis('Attempted switch user on a '
|
| .'server with a different "internet domain".');
|
.'server with a different "internet domain".');
|
| } else {
|
} else {
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth