version 1.439, 2010/04/12 19:15:57
|
version 1.444, 2010/06/18 19:19:33
|
Line 975 sub read_profile {
|
Line 975 sub read_profile {
|
&GDBM_READER()); |
&GDBM_READER()); |
if ($hashref) { |
if ($hashref) { |
my @queries=split(/\&/,$what); |
my @queries=split(/\&/,$what); |
|
if ($namespace eq 'roles') { |
|
@queries = map { &unescape($_); } @queries; |
|
} |
my $qresult=''; |
my $qresult=''; |
|
|
for (my $i=0;$i<=$#queries;$i++) { |
for (my $i=0;$i<=$#queries;$i++) { |
Line 3874 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 6390 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 7184 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"); |
Line 7934 string.
|
Line 7937 string.
|
|
|
=back |
=back |
|
|
|
=back |
|
|
|
|
=cut |
=cut |