version 1.301, 2005/10/17 20:09:01
|
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 3594 sub dump_dcmail_handler {
|
Line 3595 sub dump_dcmail_handler {
|
if ($hashref) { |
if ($hashref) { |
while (my ($key,$value) = each(%$hashref)) { |
while (my ($key,$value) = each(%$hashref)) { |
my $match = 1; |
my $match = 1; |
my ($timestamp,$subj,$uname,$udom) = split(/:/,&unescape($key),5); |
my ($timestamp,$subj,$uname,$udom) = |
$timestamp = &unescape($timestamp); |
split(/:/,&unescape(&unescape($key)),5); # yes, twice really |
$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; |