sakura_cloud 0.0.1

data/.autotest

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+
+require 'autotest/restart'
+
+# Autotest.add_hook :initialize do |at|
+#   at.extra_files << "../some/external/dependency.rb"
+#
+#   at.libs << ":../some/external"
+#
+#   at.add_exception 'vendor'
+#
+#   at.add_mapping(/dependency.rb/) do |f, _|
+#     at.files_matching(/test_.*rb$/)
+#   end
+#
+#   %w(TestA TestB).each do |klass|
+#     at.extra_class_map[klass] = "test/test_misc.rb"
+#   end
+# end
+
+# Autotest.add_hook :run_command do |at|
+#   system "rake build"
+# end

data/History.txt

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2012-01-24
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,7 @@
+.autotest
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/sakura_cloud.rb
+test/test_sakura_cloud.rb

data/README.txt

@@ -0,0 +1,51 @@
+= sakura_cloud
+
+* http://github.com/xibbar/sakura_cloud
+
+== DESCRIPTION:
+
+Sakura Cloud Ruby API
+
+== FEATURES/PROBLEMS:
+
+* Later... (list of features or problems)
+
+== SYNOPSIS:
+
+  Later... (code sample of usage)
+
+== REQUIREMENTS:
+
+* Ruby-1.9.2 or later
+* json
+* net/https
+* uri
+
+== INSTALL:
+
+* sudo gem install sakura_cloud
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2012 xibbar (xibbar@ruby-lang.org)
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,12 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+Hoe.spec 'sakura_cloud' do
+  developer('xibbar', 'xibbar@ruby-lang.org')
+
+  # self.rubyforge_name = 'sakura_cloudx' # if different than 'sakura_cloud'
+end
+
+# vim: syntax=ruby

data/lib/sakura_cloud.rb

@@ -0,0 +1,111 @@
+require 'json'
+require 'net/https'
+require 'uri'
+class SakuraCloud
+  VERSION = '0.0.1'
+  API_URL_BASE='https://secure.sakura.ad.jp/cloud/api/cloud/0.2'
+
+  def initialize(api_key, api_secret)
+    @api_key=api_key
+    @api_secret=api_secret
+    api_uri=URI.parse(API_URL_BASE)
+    @api_server=Net::HTTP.new(api_uri.host,api_uri.port)
+    Net::HTTP.version_1_2
+    if api_uri.scheme=="https"
+      @api_server.use_ssl=true 
+      @api_server.verify_mode = OpenSSL::SSL::VERIFY_NONE
+    end
+  end
+  class Server
+    def initialize(api_key,api_secret,api_server,server_id)
+      @api_key=api_key
+      @api_secret=api_secret
+      @api_server=api_server
+      @server_id=server_id
+    end
+    def profile
+      response=get(@api_server,"/server/"+@server_id)
+    end
+    alias :server :profile
+    def plan=(plan_id)
+      response=put(@api_server,"/server/#{@server_id}/to/plan/#{plan_id}")
+    end
+    def status
+      response=get(@api_server,"/server/#{@server_id}/monitor")
+    end
+    def power
+      response=get(@api_server,"/server/#{@server_id}/power")
+    end
+    def turn_on
+      response=put(@api_server,"/server/#{@server_id}/power")
+    end
+    def turn_off
+      response=delete(@api_server,"/server/#{@server_id}/power")
+    end
+    def reset
+      response=put(@api_server,"/server/#{@server_id}/reset")
+    end
+    def keyboard(*keys) #ex keyboard(["ctrl","alt","delete"])
+      response=put(@api_server,"/server/#{@server_id}/keyboard","Keys"=>keys)
+    end
+    def vnc_snapshot
+      response=get(@api_server,"/server/#{@server_id}/vnc/snapshot.png")
+    end
+    private
+    def get(server,path,option={})
+      response=api_request(:get,server,path,option)
+      begin
+        JSON.parse(response.body)
+      rescue
+        response
+      end
+    end
+    def post(server,path,option={})
+      response=api_request(:post,server,path,option)
+      begin
+        JSON.parse(response.body)
+      rescue
+        response
+      end
+    end
+    def put(server,path,option={})
+      response=api_request(:put,server,path,option)
+      begin
+        JSON.parse(response.body)
+      rescue
+        response
+      end
+    end
+    def delete(server,path,option={})
+      response=api_request(:delete,server,path,option)
+      begin
+        JSON.parse(response.body)
+      rescue
+        response
+      end
+    end
+    def api_request(method,server,path,option={})
+      response=nil
+      server.start do|http|
+        case method
+        when :get
+          request =Net::HTTP::Get.new(API_URL_BASE+path)
+        when :put
+          request =Net::HTTP::Put.new(API_URL_BASE+path)
+        when :delete
+          request =Net::HTTP::Delete.new(API_URL_BASE+path)
+        when :post
+          request =Net::HTTP::Post.new(API_URL_BASE+path)
+        end
+        request.basic_auth @api_key, @api_secret
+        request.set_form_data option
+        response = http.request(request)
+      end
+      response
+    end
+  end
+  def server(server_id)
+    Server.new(@api_key,@api_secret,@api_server,server_id)
+  end
+end
+

data/test/test_sakura_cloud.rb

@@ -0,0 +1,8 @@
+require "test/unit"
+require "sakura_cloud"
+
+class TestSakuraCloud < Test::Unit::TestCase
+  def test_sanity
+#    flunk "write tests or I will kneecap you"
+  end
+end

metadata

@@ -0,0 +1,86 @@
+--- !ruby/object:Gem::Specification 
+name: sakura_cloud
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.0.1
+platform: ruby
+authors: 
+- xibbar
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-01-25 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rdoc
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "3.10"
+  type: :development
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "2.12"
+  type: :development
+  version_requirements: *id002
+description: Sakura Cloud Ruby API
+email: 
+- xibbar@ruby-lang.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- .autotest
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/sakura_cloud.rb
+- test/test_sakura_cloud.rb
+- .gemtest
+homepage: http://github.com/xibbar/sakura_cloud
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: []
+
+rubyforge_project: sakura_cloud
+rubygems_version: 1.8.15
+signing_key: 
+specification_version: 3
+summary: Sakura Cloud Ruby API
+test_files: 
+- test/test_sakura_cloud.rb