util/memcache.lua

changeset 17
5bede08f2f55
parent 16
906615e293de
child 19
61c4d7f8279c
equal deleted inserted replaced
16:906615e293de 17:5bede08f2f55
18 if expires <= max_expires_seconds then 18 if expires <= max_expires_seconds then
19 expires = now() + expires; 19 expires = now() + expires;
20 end 20 end
21 _expiry[key] = expires; 21 _expiry[key] = expires;
22 end 22 end
23 _deleted[key] = nil;
23 _data[key] = data; 24 _data[key] = data;
24 return true; 25 return true, true;
26 end
27
28 function cache:add(key, flags, expires, data)
29 if not(_data[key]) and (not(_deleted[key]) or _deleted[key] < now()) then
30 return self:set(key, flags, expires, data);
31 end
32 return true, false; -- No error, but data was not stored
33 end
34
35 function cache:replace(key, flags, expires, data)
36 if _data[key] and (not(_deleted[key]) or _deleted[key] < now()) then
37 return self:set(key, flags, expires, data);
38 end
39 return true, false; -- No error, but data was not stored
25 end 40 end
26 41
27 function cache:exists(key) 42 function cache:exists(key)
28 return not not _data[key]; 43 return not not _data[key];
29 end 44 end

mercurial