From ab04e13314d14468c0f627791ce959ce643f2cbc Mon Sep 17 00:00:00 2001
From: Sergio Rubio <rubiojr@frameos.org>
Date: Mon, 4 Mar 2013 12:39:57 +0100
Subject: [PATCH] [digitalocean|compute] added some more request

- create_ssh_key
- list_ssh_keys
---
 lib/fog/digitalocean/compute.rb               |  2 ++
 .../requests/compute/create_ssh_key.rb        | 26 +++++++++++++++++++
 .../requests/compute/list_ssh_keys.rb         | 25 ++++++++++++++++++
 3 files changed, 53 insertions(+)
 create mode 100644 lib/fog/digitalocean/requests/compute/create_ssh_key.rb
 create mode 100644 lib/fog/digitalocean/requests/compute/list_ssh_keys.rb

diff --git a/lib/fog/digitalocean/compute.rb b/lib/fog/digitalocean/compute.rb
index cf77223cf..e00e9d064 100644
--- a/lib/fog/digitalocean/compute.rb
+++ b/lib/fog/digitalocean/compute.rb
@@ -33,6 +33,8 @@ module Fog
       request      :power_off_server
       request      :power_on_server
       request      :shutdown_server
+      request      :list_ssh_keys
+      request      :create_ssh_key
 
       # request :digitalocean_resize      
 
diff --git a/lib/fog/digitalocean/requests/compute/create_ssh_key.rb b/lib/fog/digitalocean/requests/compute/create_ssh_key.rb
new file mode 100644
index 000000000..232b715a9
--- /dev/null
+++ b/lib/fog/digitalocean/requests/compute/create_ssh_key.rb
@@ -0,0 +1,26 @@
+module Fog
+  module Compute
+    class DigitalOcean
+      class Real
+
+        def create_ssh_key( name, pub_key )
+          request(
+            :expects  => [200],
+            :method   => 'GET',
+            :path     => 'droplets/new',
+            :query    => { 'name' => name, 'ssh_pub_key' => pub_key }
+          )
+        end
+
+      end
+
+      class Mock
+
+        def create_ssh_key( name, pub_key )
+          Fog::Mock.not_implemented
+        end
+
+      end
+    end
+  end
+end
diff --git a/lib/fog/digitalocean/requests/compute/list_ssh_keys.rb b/lib/fog/digitalocean/requests/compute/list_ssh_keys.rb
new file mode 100644
index 000000000..5e69a285f
--- /dev/null
+++ b/lib/fog/digitalocean/requests/compute/list_ssh_keys.rb
@@ -0,0 +1,25 @@
+module Fog
+  module Compute
+    class DigitalOcean 
+      class Real
+
+        def list_ssh_keys(options = {})
+          request(
+            :expects  => [200],
+            :method   => 'GET',
+            :path     => 'ssh_keys'
+          )
+        end
+
+      end
+
+      class Mock
+
+        def list_ssh_keys
+          Fog::Mock.not_implemented
+        end
+
+      end
+    end
+  end
+end