loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.303, 2005/12/09 21:17:16	version 1.305, 2006/01/17 21:00:00
Line 1978 sub update_resource_handler {	Line 1978 sub update_resource_handler {
new Cache::Memcached({'servers'=>['127.0.0.1:11211']});	new Cache::Memcached({'servers'=>['127.0.0.1:11211']});
my $url=$fname;	my $url=$fname;
$url=~s-^/home/httpd/html--;	$url=~s-^/home/httpd/html--;
	$url=~s-\.meta$--;
my $id=&escape('meta:'.$url);	my $id=&escape('meta:'.$url);
$memcache->delete($id);	$memcache->delete($id);
}	}
Line 3596 sub dump_dcmail_handler {	Line 3597 sub dump_dcmail_handler {
my $match = 1;	my $match = 1;
my ($timestamp,$subj,$uname,$udom) =	my ($timestamp,$subj,$uname,$udom) =
split(/:/,&unescape(&unescape($key)),5); # yes, twice really	split(/:/,&unescape(&unescape($key)),5); # yes, twice really
$timestamp = &unescape($timestamp);
$subj = &unescape($subj);	$subj = &unescape($subj);
$uname = &unescape($uname);
$udom = &unescape($udom);
unless ($startfilter eq '.' \|\| !defined($startfilter)) {	unless ($startfilter eq '.' \|\| !defined($startfilter)) {
if ($timestamp < $startfilter) {	if ($timestamp < $startfilter) {
$match = 0;	$match = 0;