|
version 1.441, 2010/05/22 14:36:13
|
version 1.444, 2010/06/18 19:19:33
|
|
Line 3877 sub dump_course_id_handler {
|
Line 3877 sub dump_course_id_handler {
|
| if ($items->{'owner'} eq $cloner) { |
if ($items->{'owner'} eq $cloner) { |
| $canclone = 1; |
$canclone = 1; |
| } |
} |
| } elsif ($cloner eq $udom.':'.$items->{'owner'}) { |
} elsif ($cloner eq $items->{'owner'}.':'.$udom) { |
| $canclone = 1; |
$canclone = 1; |
| } |
} |
| if ($canclone) { |
if ($canclone) { |
|
Line 6393 sub make_new_child {
|
Line 6393 sub make_new_child {
|
| my $cipherkey = pack("H32", $key); |
my $cipherkey = pack("H32", $key); |
| $cipher = new IDEA($cipherkey); |
$cipher = new IDEA($cipherkey); |
| print $client "ok:local\n"; |
print $client "ok:local\n"; |
| &logthis('<font color="green"' |
&logthis('<font color="green">' |
| . "Successful local authentication </font>"); |
. "Successful local authentication </font>"); |
| $keymode = "local" |
$keymode = "local" |
| } else { |
} else { |
|
Line 7187 sub sethost {
|
Line 7187 sub sethost {
|
| eq &Apache::lonnet::get_host_ip($hostid)) { |
eq &Apache::lonnet::get_host_ip($hostid)) { |
| $currenthostid =$hostid; |
$currenthostid =$hostid; |
| $currentdomainid=&Apache::lonnet::host_domain($hostid); |
$currentdomainid=&Apache::lonnet::host_domain($hostid); |
| &logthis("Setting hostid to $hostid, and domain to $currentdomainid"); |
# &logthis("Setting hostid to $hostid, and domain to $currentdomainid"); |
| } else { |
} else { |
| &logthis("Requested host id $hostid not an alias of ". |
&logthis("Requested host id $hostid not an alias of ". |
| $perlvar{'lonHostID'}." refusing connection"); |
$perlvar{'lonHostID'}." refusing connection"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom