loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.502, 2013/08/10 01:27:31	version 1.504, 2013/12/05 13:16:00
Line 1685 sub read_lonnet_global {	Line 1685 sub read_lonnet_global {
sub server_devalidatecache_handler {	sub server_devalidatecache_handler {
my ($cmd,$tail,$client) = @_;	my ($cmd,$tail,$client) = @_;
my $userinput = "$cmd:$tail";	my $userinput = "$cmd:$tail";
my ($name,$id) = map { &unescape($_); } split(/:/,$tail);	my $items = &unescape($tail);
&Apache::lonnet::devalidate_cache_new($name,$id);	my @cached = split(/\&/,$items);
	foreach my $key (@cached) {
	if ($key =~ /:/) {
	my ($name,$id) = map { &unescape($_); } split(/:/,$key);
	&Apache::lonnet::devalidate_cache_new($name,$id);
	}
	}
my $result = 'ok';	my $result = 'ok';
&Reply($client,\$result,$userinput);	&Reply($client,\$result,$userinput);
return 1;	return 1;
Line 6496 sub make_new_child {	Line 6502 sub make_new_child {
&Authen::Krb5::init_context();	&Authen::Krb5::init_context();
unless (($dist eq 'fedora5') \|\| ($dist eq 'fedora4') \|\|	unless (($dist eq 'fedora5') \|\| ($dist eq 'fedora4') \|\|
($dist eq 'fedora6') \|\| ($dist eq 'suse9.3') \|\|	($dist eq 'fedora6') \|\| ($dist eq 'suse9.3') \|\|
($dist eq 'suse12.2') \|\| ($dist eq 'suse12.3')) {	($dist eq 'suse12.2') \|\| ($dist eq 'suse12.3') \|\|
	($dist eq 'suse13.1')) {
&Authen::Krb5::init_ets();	&Authen::Krb5::init_ets();
}	}