loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.296, 2005/09/01 07:49:43	version 1.298, 2005/10/06 20:48:33
Line 1973 sub update_resource_handler {	Line 1973 sub update_resource_handler {
alarm(0);	alarm(0);
}	}
rename($transname,$fname);	rename($transname,$fname);
	use Cache::Memcached;
	my $memcache=
	new Cache::Memcached({'servers'=>['127.0.0.1:11211']});
	my $url=$fname;
	$url=~s-^/home/httpd/html--;
	my $id=&escape('meta:'.$url);
	$memcache->delete($id);
}	}
}	}
&Reply( $client, "ok\n", $userinput);	&Reply( $client, "ok\n", $userinput);
Line 4865 sub make_new_child {	Line 4872 sub make_new_child {
# my $tmpsnum=0; # Now global	# my $tmpsnum=0; # Now global
#---------------------------------------------------- kerberos 5 initialization	#---------------------------------------------------- kerberos 5 initialization
&Authen::Krb5::init_context();	&Authen::Krb5::init_context();
if ($dist ne 'fedora4') {	unless (($dist eq 'fedora4') \|\| ($dist eq 'suse9.3')) {
&Authen::Krb5::init_ets();	&Authen::Krb5::init_ets();
}	}