From 4aa9a677ca40113d10929e5f060d9676fe93d296 Mon Sep 17 00:00:00 2001
From: Azul <azul@riseup.net>
Date: Mon, 31 Dec 2012 15:14:08 +0100
Subject: include functions for retrieving certs from couch

---
 lib/leap_ca/cert.rb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lib/leap_ca/cert.rb b/lib/leap_ca/cert.rb
index 0587a54..8f1c9e9 100644
--- a/lib/leap_ca/cert.rb
+++ b/lib/leap_ca/cert.rb
@@ -32,6 +32,22 @@ module LeapCA
       view :by_random
     end
 
+    class << self
+      def sample
+        self.by_random.startkey(rand).first || self.by_random.first
+      end
+
+      def pick_from_pool
+        cert = self.sample
+        raise RECORD_NOT_FOUND unless cert
+        cert.destroy
+        return cert
+      rescue RESOURCE_NOT_FOUND
+        retry if self.by_random.count > 0
+        raise RECORD_NOT_FOUND
+      end
+    end
+
     #
     # generate the private key and client certificate
     #
-- 
cgit v1.2.3