@@ -350,6 +350,10 @@ user and password set on the instance." [#^String name #^String password] (is-successful? #(execute "rabbit_access_control" "add_user" [name password]))) +(defn change-password + [#^String name #^String password] + (is-successful? #(execute "rabbit_access_control" "change_password" [name password]))) + (defn delete-user [#^String name] (is-successful? #(execute "rabbit_access_control" "delete_user" [name]))) @@ -414,7 +418,7 @@ user and password set on the instance." (is-successful? #(with-channel @*server* vhost user password (.exchangeDelete name)))) (defn add-binding - [#^String vhost #^String user #^String password queue exchange routing-key] + [#^String vhost #^String user #^String password #^String queue #^String exchange #^String routing-key] (is-successful? #(with-channel @*server* vhost user password (.queueBind queue exchange routing-key)))) (defn- is-user @@ -422,6 +426,7 @@ user and password set on the instance." (= (otp->pullv tuple 0) "user")) + (defn valid-user [#^String name #^String password] (is-user (execute src/com/leftrightfold/trixx.clj e6656fa8262edcea5a1dcbd58015bd4b8e060c47 Aaron Feng aaron.feng@gmail.com http://github.com/aaronfeng/trixx/commit/461168e990cfc91a7006ec124647609e76065561 461168e990cfc91a7006ec124647609e76065561 2009-10-26T07:50:49-07:00 2009-10-26T07:50:49-07:00 added change-password 22c58731fb0841d6a73ecf372b32b61f856cea11 Aaron Feng aaron.feng@gmail.com