luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a few more commands that may be useful to JVM-based applications

Browse source 
Clojure is unlikely to be a good choice for devops tools, so we don't
implement convenience functions for sharding, replication, et cetera.
This commit is contained in:
Michael S. Klishin 2012-06-08 22:04:46 +04:00
parent 1c686c1766
commit 1184fce8c3
1 changed files with 32 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/monger/command.clj
View file

@ -28,11 +28,41 @@
(defn reindex-collection
([collection]
"Forces an existing collection to be reindexed using the reindexCollection command"
([^String collection]
(reindex-collection monger.core/*mongodb-database* collection))
([^DB database collection]
([^DB database ^String collection]
(monger.core/command database { :reIndex collection })))
(defn rename-collection
"Changes the name of an existing collection using the renameCollection command"
([^String from ^String to]
(reindex-collection monger.core/*mongodb-database* from to))
([^DB database ^String from ^String to]
(monger.core/command database { :renameCollection from :to to })))
(defn convert-to-capped
"Converts an existing, non-capped collection to a capped collection using the convertToCapped command"
([^String collection ^long size]
(convert-to-capped monger.core/*mongodb-database* collection size))
([^Db database ^String collection ^long size]
(monger.core/command database {:convertToCapped collection :size size})))
(defn empty-capped
"Removes all documents from a capped collection using the emptycapped command"
([^String collection]
(empty-capped monger.core/*mongodb-database* collection))
([^Db database ^String collection]
(monger.core/command database {:emptycapped collection})))
(defn compact
"Rewrites and defragments a single collection using the compact command. This also forces all indexes on the collection to be rebuilt"
([^String collection]
(compact monger.core/*mongodb-database* collection))
([^Db database ^String collection]
(monger.core/command database {:compact collection})))
(defn server-status
([]