1 /* vim:expandtab:shiftwidth=2:tabstop=2:smarttab:
5 * Copyright (C) 2011 Data Differential, http://datadifferential.com/
6 * Copyright (C) 2006-2009 Brian Aker All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
12 * * Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
15 * * Redistributions in binary form must reproduce the above
16 * copyright notice, this list of conditions and the following disclaimer
17 * in the documentation and/or other materials provided with the
20 * * The names of its contributors may not be used to endorse or
21 * promote products derived from this software without specific prior
24 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
25 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
26 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
27 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
28 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
29 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
30 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
31 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
32 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
33 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
34 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38 #include <libmemcached/common.h>
39 #include <libmemcached/memcached/protocol_binary.h>
41 memcached_return_t
memcached_delete(memcached_st
*memc
, const char *key
, size_t key_length
,
44 return memcached_delete_by_key(memc
, key
, key_length
, key
, key_length
, expiration
);
47 static inline memcached_return_t
ascii_delete(org::libmemcached::Instance
* instance
,
50 const size_t key_length
,
52 const bool is_buffering
)
54 libmemcached_io_vector_st vector
[]=
57 { memcached_literal_param("delete ") },
58 { memcached_array_string(instance
->root
->_namespace
), memcached_array_size(instance
->root
->_namespace
) },
60 { " noreply", reply
? 0 : memcached_literal_param_size(" noreply") },
61 { memcached_literal_param("\r\n") }
64 /* Send command header, only flush if we are NOT buffering */
65 return memcached_vdo(instance
, vector
, 6, is_buffering
? false : true);
68 static inline memcached_return_t
binary_delete(org::libmemcached::Instance
* instance
,
71 const size_t key_length
,
73 const bool is_buffering
)
75 protocol_binary_request_delete request
= {};
77 bool should_flush
= is_buffering
? false : true;
79 initialize_binary_request(instance
, request
.message
.header
);
83 request
.message
.header
.request
.opcode
= PROTOCOL_BINARY_CMD_DELETE
;
87 request
.message
.header
.request
.opcode
= PROTOCOL_BINARY_CMD_DELETEQ
;
89 request
.message
.header
.request
.keylen
= htons(uint16_t(key_length
+ memcached_array_size(instance
->root
->_namespace
)));
90 request
.message
.header
.request
.datatype
= PROTOCOL_BINARY_RAW_BYTES
;
91 request
.message
.header
.request
.bodylen
= htonl(uint32_t(key_length
+ memcached_array_size(instance
->root
->_namespace
)));
93 libmemcached_io_vector_st vector
[]=
96 { request
.bytes
, sizeof(request
.bytes
) },
97 { memcached_array_string(instance
->root
->_namespace
), memcached_array_size(instance
->root
->_namespace
) },
101 memcached_return_t rc
;
102 if (memcached_fatal(rc
= memcached_vdo(instance
, vector
, 4, should_flush
)))
104 memcached_io_reset(instance
);
107 if (memcached_has_replicas(instance
))
109 request
.message
.header
.request
.opcode
= PROTOCOL_BINARY_CMD_DELETEQ
;
111 for (uint32_t x
= 0; x
< memcached_has_replicas(instance
); ++x
)
115 if (server_key
== memcached_server_count(instance
->root
))
120 org::libmemcached::Instance
* replica
= memcached_instance_fetch(instance
->root
, server_key
);
122 if (memcached_fatal(memcached_vdo(replica
, vector
, 4, should_flush
)))
124 memcached_io_reset(replica
);
128 memcached_server_response_decrement(replica
);
136 memcached_return_t
memcached_delete_by_key(memcached_st
*memc
,
137 const char *group_key
, size_t group_key_length
,
138 const char *key
, size_t key_length
,
141 LIBMEMCACHED_MEMCACHED_DELETE_START();
143 memcached_return_t rc
;
144 if (memcached_fatal(rc
= initialize_query(memc
, true)))
149 if (memcached_fatal(rc
= memcached_key_test(*memc
, (const char **)&key
, &key_length
, 1)))
151 return memcached_last_error(memc
);
156 return memcached_set_error(*memc
, MEMCACHED_INVALID_ARGUMENTS
, MEMCACHED_AT
,
157 memcached_literal_param("Memcached server version does not allow expiration of deleted items"));
160 uint32_t server_key
= memcached_generate_hash_with_redistribution(memc
, group_key
, group_key_length
);
161 org::libmemcached::Instance
* instance
= memcached_instance_fetch(memc
, server_key
);
163 bool is_buffering
= memcached_is_buffering(instance
->root
);
164 bool is_replying
= memcached_is_replying(instance
->root
);
166 // If a delete trigger exists, we need a response, so no buffering/noreply
167 if (memc
->delete_trigger
)
171 return memcached_set_error(*memc
, MEMCACHED_INVALID_ARGUMENTS
, MEMCACHED_AT
,
172 memcached_literal_param("Delete triggers cannot be used if buffering is enabled"));
175 if (is_replying
== false)
177 return memcached_set_error(*memc
, MEMCACHED_INVALID_ARGUMENTS
, MEMCACHED_AT
,
178 memcached_literal_param("Delete triggers cannot be used if MEMCACHED_BEHAVIOR_NOREPLY is set"));
182 if (memcached_is_binary(memc
))
184 rc
= binary_delete(instance
, server_key
, key
, key_length
, is_replying
, is_buffering
);
188 rc
= ascii_delete(instance
, server_key
, key
, key_length
, is_replying
, is_buffering
);
191 if (rc
== MEMCACHED_SUCCESS
)
193 if (is_buffering
== true)
195 rc
= MEMCACHED_BUFFERED
;
197 else if (is_replying
== false)
199 rc
= MEMCACHED_SUCCESS
;
203 char buffer
[MEMCACHED_DEFAULT_COMMAND_SIZE
];
204 rc
= memcached_response(instance
, buffer
, MEMCACHED_DEFAULT_COMMAND_SIZE
, NULL
);
205 if (rc
== MEMCACHED_DELETED
)
207 rc
= MEMCACHED_SUCCESS
;
208 if (memc
->delete_trigger
)
210 memc
->delete_trigger(memc
, key
, key_length
);
216 LIBMEMCACHED_MEMCACHED_DELETE_END();